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Introduction 



For most of my adult life I've pursued what some 
might consider a hopelessly disorganized diversity of 
projects. I've developed books, records, games and toys 
— and an occasional script or song — for the Children's 
Television Workshop (producers of Sesame Street and 
The Electric Company), and, on the side, I've written and 
edited satiric pieces for the National Lampoon and other 
publications. People often ask me if I think it's 
"sensible" to spread myself over so many media. "My 
activities really are all related," I answer, somewhat 
defensively. "At least somewhat..." 

The truth is that it's the very variety of my work that's 
kept me interested and challenged. And, not coinci- 
dentally, I'm convinced that it's the unlikely mixture of 
media and people — of humor with curriculum content, 
of children's games with rock'n'roll music, of animation 
with phonics lessons; of child psychologists with 
puppeteers — that has made Sesame Street so vital, so 
exciting, and so successful. 

One world that always did seem irrelevant to my 
pursuits, however, was computing. Oh sure, computers 
might store information, or generate lists of words 
recognizable to five-year-olds, or index research 
results, or handle accounts, or, of course, invade my 
privacy. In short, they might be a useful tool for 
someone else (probably someone pretty different from 
me). But computers as a creative medium— much less a 
medium I could actually feel comfortable with? Never! 

Then, one day a few summers back, my wife, 
Genevieve— then an engineering student at Columbia- 
showed me a book called Basic Computer Games, by 
David Ahl. To my amazement, it had funny pictures in it. 
It was full of games — many of them delightfully silly. 
And — wonder of wonders! — at least some of it 
(sample runs of the games, for example) was not hope- 
lessly beyond my comprehension. 

I was intrigued, and when, months later, I visited the 
Boston Children's Museum and actually got to play with 
acomputer, I was hooked. The terminals at the museum 
played many of the games in David AhPs book. What's 
more, they actually called me by name, and made 
humorous comments about my playing skill. After 
several hours of trying to land a capsule on the moon 
(only to be told that I'd created several hundred new 
craters, and that Neil Armstrong "did it right the first 
time"), I had to be dragged away from the keyboard — it 
was past closing time, the museum personnel insisted. 
From that day on, the development of computer 
games — to entertain and to educate — has been a high 
priority activity for us at CTW. (As I write this, we're de- 
signing a prototype computer game center to open, near 
Philadelphia, in 1980 — a project in which David Ahl has 
taken a pioneering role). For the computer combines the 
possibility of fun, education, challenge, personaliza- 
tion, humor and — most important — interaction, in a 
way that no other medium can. Computers are infinitely 
patient, not minding (unless they're programmed to 
mind) if you take all day to respond to a question or 
move a game "piece". If there's something you don't 
understand, you don't have to be embarrassed to ask a 
computer for help. A computer can adjust the difficulty 
level of a game or activity to suit your ability — some 



programs even learn how to beat you as you continue to 
play against them. Armed with the proper software, a 
computer can play a song (or allow you to play one), 
paint a picture, write a poem or tell a story. Or it can 
plunge you into a whole new world, so you can learn by 
doing (or just escape, fora few moments, into a delight- 
ful fantasy). 

The games in this, David Ahl's second collection, 
demonstrate many of these attributes. Try Camel, for 
example, in which you're left alone in the Gobi Desert 
with one quart of water and a bunch of Wild Berbers hot 
on your trail. (You'll learn something about resource 
management even if you don't escape to use your new 
knowledge.) Or type Concentration into the computer, 
and letyourchildren perfect their matching and memory 
skills without showing you up. Become a starshlp 
captain and practice navigating a three-dimensional 
universe, in Maneuvers. Turn on Father so your kids can 
argue with the computer — instead of you — if they 
want to stay out late on Saturday night. Or — the ulti- 
mate trip — play Millionaire and start your whole life 
over again (complete with such decisions as what job to 
apply for, what investments to make, and what to do 
when an airplane crashed into your magnificent new 
home)! 

The main point of all this Is that whatever else 
computers are meant to be, they can- be turned into 
magical multi-media machines that put you squarely in 
the center of the action. And, as Dave Ahl has continu- 
ally demonstrated, they're an awful lot of fun. Turn the 
page and see. 

Christopher Cerf 

About this edition 

Since the TRS-80 is screen oriented, the sample 
output (which was printed on a line printer) is not always 
identical to what is seen on the screen. The up arrow (^ is 
printed in the runs as a left bracket ( [ ). 

Where graphics are used, graphic pixels (blocks) are 
printed as a period (a). Each screen location can display 
either one ASCII character or six graphics pixels 
(blocks). In other words, a character (letter, number, 
etc.) is two pixels wide and three pixels high. If any of 
the six pixels is "lit," it is printed as a single dot (®) in the 
sample runs. 

Clearing the entire screen in the sample run is 
indicated by: 
CLS 

Blank lines have not been retained in all cases, so 
the exact screen formatting is not shown. Nevertheless, 
the sample runs indicate how the program is executed. 

It is the hope of the people here at Creative Comput- 
ing who have worked on this book that you enjoy the 
games. We also hope that you will add your own 
enhancements. Graphics, personalization, additional 
skill levels and humorous remarks are obvious places to 
start. As you gain experience, try changing the playing 
algorithms or make a deterministic game into a heuristic 
one. Try new approaches, write your own variation, 
experiment, but above all, have fun! 



Morristown, New Jersey 
June 1979 



David H. Ahl 
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PLAYER 3 SHOOTING AT? i 

FIRING RNGLE? 88. 5 

VOU UNDERSHOT BV 371 341 FEET. 

PRESS ANY KEY TO CONTINUE 

els 



ROM) 2 

PLflVER 1 SHOOTINCi f)T? 2 

FIRING RNGLE? 78 

VOU OVERSHOT BV £87. 63 FEET. 

PLflVER 2 SHOOTINC AT? 3 

FIRING RNGLE? 84 

VOU UNDERSHOT BV 1204. 44 FEET. 

FtflVER 3 SHOOTING fVT? i 

FIRING RNGLE? 73 

VOU OVERSHOT BV £97. 64 FEET. 

PRESS RNY KEY TO CONTINUE 
els 



ROW 3 



COPVRIGHT 197S 



RRTILLERY3 
SERTIVE COtffUTING 
els 



HORRISTOHN, NJ 



DO VOU MEED INSTRUCTION ;? YES. 

Cls 

THIS IS R HAR GAE TO OR THREE FtfiVERS ARE GIVEN 
(THEORETIC*) CffilNONS U TH WHICH THEV ATTEMPT TO SHOOT EACH 
OTHER. THE PARAMETERS F R DISTANCES AM) HUZZLE VELOCITIES ARE 
SET AT THE GEGIHIING OF THE GAKE. THE SHOTS ARE FIRED BV 
GIVING A FIRING ANGLE, I XPRESSED IN DEGREES FROM HORIZONTAL 

THE COHPUTER HILL KEEP ' RRCK OF THE GflHE AM) REPORT HI 
MOVES. A 'HIT' IS SCORE! BV FIRING A SHOT HITHIN Si OF THE 
TOTAL DISTANCE FIRED OVS R. GOOD LUCK! 

PRESS ANV KEV TO CONTINUE 

ols 



'2588 



NO OF PLOVERS? 


7 




DISTANCE (FT. > 


i 


TO . 


DISTRNCE (FT. ) 


2 


TO 


DISTANCE (FT. ) 


3 


TO 



MUZZLE VELOCITV (FT. /SB . ) Of 1 ' 
HUZZLE VaOCITV (FT. /SB. » OF 2 ' 
HUZZLE VELOCITY (FT. /SE( . ) OF 3 ' 

cls — 

ROW) 1 

PLAYER i SHOOTING AT? 3 

FIRING ANGLE? 68 

VOU UNDERSHOT BV 547. 8Z FEET. 

PLAYER 2 SHOOTING AT? 3 

FIRING RNGLE? 73 

YOU UNDERSHOT BV 565. 84; FEET. 



358 



PLAYER 1 SHOOTING AT? 2 

FIRING ANGLE? 68 

VOU OVERSHOT BV 1425. 67 FEET. 

PLAYER 2 SHOOTING AT? 3 

FIRING ANGLE? 78 

VOU OVERSHOT BV 458. 484 FEET. 

PLAYER 3 SHOOTING AT? i 

FIRING ANGLE? 76 

VOU UNDERSHOT BV 152. 322 FEET. 

PRESS ANY KEY TO CONTINUE 
cls 



ROUND 4 

PLAYER 1 SHOOTING AT? 2 

FIRING RNGLE? 74 

YOU OVERSHOT BV 4J8. 891 FEET. 

PLAYER 2 SHOOTING AT? 3 

FIRING ANGLE? 73 

VOU OVERSHOT BV 111 325 FEET. 

PLAYER 3 SHOOTING AT? 1 

FIRING ANGLE? 72 

VOU OVERSHOT BV 438. 631 FEET. 

PRESS RNY KEV TO CONTINUE 
cls 



ROUND 5 

PLAYER 1 SHOOTING AT? 2 

FIRING ANGLE? 76.5 

YOU OVERSHOT BV 277. 366 FEET. 

PLAYER 2 SHOOTING AT? 3 

FIRING RNGLE? 75 

A HIT - 3 IS DEFUNCT. 

PRESS ANY KEY TO CONTINUE 
els 



ROTO 6 

PLflVER 1 SHOOTING AT? 2 

FIRING (WOE? 78 

YOU OVERSHOT BY 144. 346 FEET. 

PLAYER 2 SHOOTING AT? 1 

FIRING ANGLE? 78 

VOU OVERSHOT BV 556. 619 FEET. 

PRESS ANY KEY TO CONTINUE 

0l8 



ROM) 7 

PLRVER 1 SHOOTING AT? 2 
FIRING ANGLE? 79.4 
A HIT - 2 IS DEFUNCT. 

GfK OVER 1 KINS. 



18 OS: PRINTM1L "ARTILLERY 3" 

28 PRINT: PRINT TAB(?) 'COPYRIGHT 1973 CREATIVE COMPUTING HORRISTOW, HJ" 

38 PRIHTB96B, "; . INPUT "DO VOU NEED INSTRUCTIONS"! I* 

48T=8 

58 DINS<2,9> 

68 DIM V(3),X(3),P(3),R(3.3) 

78 DATA 1,2,2,2,3,1,1,2,2,2,2,1,2,3,3,1,1,2,0 

88 IF LEFTt(I$,l)="V" THEN 1248 RSE OS 

90 PRINT 

198 PRINT "NO. OF PLAYERS"; 

110 INPUT N 

128 IF N=2 THEN 170 

138 IF N=3 THEN 288 

148 PRINT "ERROR-TIM OR THREE PLAYERS!" 

150 PRINT 

168 GOTO 98 

170 m=i 

188 PRINT "* 

190 GOTO 228 

288N1=N 

218 PRINT "" 

228 FOR M TO HI 

238 READ R.B 

248 PRINT "DISTANCE (FT. > ";Ai" TO ";B; 

250 INPUT R(A,B) 

260 R(B,A)=R(A,B> 

278 NEXT J 

288 PRINT " 

290 RESTORE 

388 IF N=2 THEN 390 

310 FOR J=i TO N 

320 READ A,B,C,D,E,F 

338 IF R<A,B)<R(C,DHR(E,F> THEN 378 

348 PRINT "ERROR-ILLEGAL TRIANGLE. RE-ENTER RANGES. " 

350 RESTORE 

268 GOTO 220 

278 NEXT J 

388 PRINT 

398 FOR J=i TO N 

488 PRINT "MUZZLE VELOCITY (FT. /SEC. ) OF ";J; 

418 INPUT V(J) 

420 NEXT J 

430 PRINT " 

440 FOR M TO N 

458 X(J)=VU)[2/32 

460 NEXT J 

478 FOR A=l TO N 

488 FOR B=i TO N 

493 IF X(A)>R(A,B> THEN 548 

588 PRINT "ERROR-"! Aj" CANNOT REACH ";B 

518 PRINT "HHAT IS THE MUZZLE VELOCITY OF "!Aj 

528 INPUT V(A) 

538 GOTO 449 

548 NEXT B 

550 NEXT A 

568 N1=N 



578 PRINT " 

588 PRINT "' 

598 OS: PRINT "ROUND "iT+1 

688 PRINT 

618 FOR 11=1 TO N 

620 IF N=3 THEN 688 

638 C=l 

648 IF HOI THEN 668 

658 C=2 

668 PRINT "PLAYER"! Hi "SHOOTING AT'iC 

678 GOTO 888 

688 IF P(M)=12 THEN 1198 

690 PRINT "PLflYER'i Hi "SHOOTING AT"i 

788 INPUT C 

718 ON C GOTO 748,740,740 

720 PRINT "ERROR-PLAYERS DESIGNATED 1,2,3. " 

738 GOTO 690 

748 IF COM THEN 770 

758 PRINT "ERROR-CANNOT SHOOT SELF. " 

768 GOTO 698 

778 IF P(C)012 THEN 888 

783 PRINT "ERROR -"iCi "IS DEFUNCT. " 

798 GOTO 698 

888 PRINT "FIRING ANGLE"! 

818 INPUT A3 

828 IF A3<0 MN 850 

838 IF A3>180 THEN 858 

848 GOTO 888 

858 PRINT "ERROR - FIRED INTO GROUND. "iMi"NOH DEFUNCT. " 

868 P(M>=12 

878 GOTO 698 

888 IF A3<98 THEN 910 

898 PRINT "ERROR - FIRED WRONG HAY, LOSE SHOT. " 

988 GOTO 698 

918 Z=SIN(A3*.8349864)*V(M)[2/32 

928 X=<R(M,C>/1888*RND(0»-(R(H,C>/i888*RHD(0» 

930 D=X+Z 

948H=R(H,C>*.05 

958 IF D<D1 THEN 998 

968 IF BBS(D-R(H,C»<Di THEN 1828 

978 IF D<R(N,C) THEN 1858 

988 IFD>R(H,C> THEN 1878 

990 PRINT "TOO CLOSE -Ml; 'IS DEFUNCT. « 

1888 P(M>=12 

1810 GOTO 1890 

1020 PRINT "A HIT -";Ci "IS DEFUNCT. " 

103O P(CM2 

1048 GOTO 1890 

1050 PRINT "YOU UNDERSHOT BY"iB8S(D-R(M,C»;"FEET. " 

1868 GOTO 1188 

1870 PRINT "YOU OVERSHOT BY"iABS(D-R(H,C»i»FEET. " 

1080 GOTO 1180 

1898 ftt=Hl-l 

1188 IF ND1 THEN 1188 

1118 FOR m=i TO N 

1120 IF P(Hl)=i2 THEN 1168 

1138 PRINT 

1148 PRINT "GAME OVER. "iMli "HINS. " 

1158 GOTO 1378 

1168 NEXT HI 

1178 STOP 

1188 PRINT " 

1198 NEXT M 

1200 M+l 

1210 PRINT0979, "PRESS ANY KEY TO CONTINUE"! 

1220 IF INKEY$=" THEN 1220 ELSE ttS 

1238 GOTO 588 

1248 OS; PRINT TAB(27>"ARTILLERY 3": PRINT 

1258 PRINT "THIS IS A HAR GAME. TO OR THREE PLAYERS ARE GIVEN" 

1268 PRINT "(THEORETICAL) CANNONS HITH HHICH THEY ATTEMPT TO SHOOT EACH" 

1278 PRINT "OTHER. THE PARAMETERS FOR DISTANCES AND MUZZLE VELOCITIES ARE" 

1288 PRINT "SET AT THE BEGINNING OF THE GAME THE SHOTS ARE FIRED BY" 

1290 PRINT "GIVING A FIRING ANGLE, EXPRESSED IN DEGREES FROM HORIZONTAL. " 

1300 PRINT 

1310 PRINT "THE COMPUTER HILL KEEP TRACK OF THE GAME AND REPORT ALL" 

1228 PRINT "MOVES. A 'HIT' IS SCORED BY FIRING A SHOT HITHIN 52 OF THE" 

1228 PRINT "TOTAL DISTANCE FIRED OVER GOOD LUCK!" 

1248 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

1258 IF INKEYJ="" THEN 1350 ELSE CLS 

1368 GOTO 98 

1370 END 
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Games of the bacca 
de fer family originatec 
that became popular 
casinos in the 1830's. 
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as nearly nine as poss 
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zero; aces, one each; ar 
number. Units of ten 
regarded, so that nine p 
as six, not sixteen. 
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in his first two cards : 
immediately. He has a 
hand wins (but a natu 
natural eight). Natura 
number tie, and there 

When the result is n 
natural, the banker mu 
his opponent on reque 
nent may stand. The 
stand on six or seven, 
zero, one, two, three, 
the option on five. The 
if given, is face up. 



'at and chemin 
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In the present 
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throughout the 
las resulted in 
/ing rules and 
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s here is more 
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s follows: Eight 
uffled together 
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t one by one. 
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Then the banker decides whether to 
stand or take a card. 



IF BANKER GIVES 

Face card or ten 

Nine 

Eight 

Seven or six 

Five or four 

Three or two 

Ace 

Opponent stands 



BANKER STANDS ON BANKER DRAWS TO 



4, 5, 6. 7 

4, 5, 6, 7 (or 3) 

3, 4, 5. 6, 7 
7 

6,7 

5, 6, 7 

4, 5, 6, 7 

6, 7 



3, 2, 1,0 

2, 1,0 (or 3) 

2, 1,0 

6, 5,4, 3, 2, 1,0 
5,4,3,2, 1,0 

4, 3, 2, 1, 

3, 2, 1,0 

5, 4,3,2, 1,0 



Neither player may have more than 
one additional card, giving him three 
cards at the most. When each player 
has exercised his option, the cards are 
shown. If the totals are the same, the 
bets are off and may be withdrawn and 
new bets are placed exactly as before 
for another deal. If the opponent has a 



higher number than the banker's, each 
player collects such portion of the bank 
as he has covered. 

In the game of chemin defer, the role 
of banker rotates among the players 
after each hand; in baccarat, it does 
not. 



BACCARAT 
C0PVRIGHT 1979 CREATIVE COMPUTING MORRISTONN, NJ 



■ els • 



DO V0U NEED INS1RUCTI0NS? VES. 
els 



BACCARAT IS H VERV POPULAR GAME IN LAS 
VEGAS. THE PLAVER AND BANKER EACH RECEIVE 
TWO CARDS FROM fl 'SHOE' CONTAINING 8 DECKS 
OF CARDS. ALL CARD COMBINATIONS TOTALING 
TEN ARE NOT COUNTED. THE ONE THAT ENDS UP 
CLOSER TO NINE J INS. THE STAKES ARE HIGH, 
ALL OF THE PLBViRS START WITH TEN THOUSAND 
DOLLARS. V0U CUM BET ON THE DEALER OR THE 
PLAVER. A THI<D CARD IS GIVEN 0NLV UNDER 
CERTAIN CONDITIONS, AS VOU WILL SEE. LET 
US BEGIN. (MOD LUCK! 

PRESS RNY KEV TO CONTINUE 

— — els 



HOW MANV PLAVERS? 1 

WHAT IS THE NAME OF PLAVER 1 ? CHRIS 

els 

CHRIS HAS $10, (130. SET' 500 
(1> BANKER OR <2> PLAVER? 1. 

els 



BANKER 



FOUR OF HEARTS 
FOUR OF SPADES 



PLAVER MUST DRAII. 
PLAVERS TOTAL. 2 



PLAVER 



ACE OF CLUBS 
THREE OF DIAMONDS 



EIGHT OF DIAMONDS 



BANKER CANNOT DRAW. BANKERS TOTAL. 8 
********** BANKER WINS ! ! ********** 
CHRIS WINS $ 500 - TOTAL * 1O5B0 

PRESS ANV KEV TO CONTINUE 
els 



CHRIS HAS *ia 580. BET' 1008 
(1) BANKER OR <2> PLAVER? 2. 

els 



- els - 



BANKER 



ACE OF HERRTS 
EIGHT OF SPADES 



JACK OF CLUBS 
NINE OF DIAMONDS 



FLflVER CANNOT DRBM. PLAYERS TOTRL : 9 

BANKER CANNOT DRAM. BANKERS TOTAL: 9 
IT'S A TIE. THE HAND IS PLAVED OVER. 

PRESS RNV KEV TO ENTER 

CHRIS HAS $10,588 BET? 1668 
(1) BANKER OR (2) PLAYER? 1. 
els 



BANKER 



THREE OF DIAMONDS 
ACE OF SPRDES 



PLAYER 



QUEEN OF DIAMONDS 
TEN OF DIAMONDS 



PLAYER MUST DRAW. FIVE OF CLUBS 
PLAYER CANNOT DRAW. PLAYERS TOTAL: 5 

BANKER MUST DRAW. QUEEN OF DIRMONDS 
BANKERS TOTAL: 4 

********** PLAYER WINS ! ! ********** 
CHRIS LOSES $ 1688 - TOTAL * 9586 

PRESS ANY KEY TO CONTINUE 
els 



118 PRIHT Mi 
129 PRINT Mi 
138 PRIHT Mi 
148 PRIHT Mi 
158 PRINT Mi 
168 PRIHT Rli 



18 CLEAR. 1688: OS: PR1HT8412, 

28 PRINT: PRIHT TRB<7) "COPYRIGHT 1379 CREATIVE COMPUTING HORRISTOW, NJ" 

38 PRINT6968, "i : INPUT "DO YOU HEED IKSTRUCTIONS'i IS 

48 IF LEFT«»,1)0"Y" THEN 198 

56 CIS: PRINT TAB<28>; 'BACCARAT': PRINT: ftt=STRINGK18, 22) 

68 PRIHT: PRINT Mi " BACCARAT IS ft VERY POPULAR GfflE IN LAS' 

78 PRIHT Mi "VEGAS. THE PLRYER TO BANKER EACH RECEIVE" 

S8 PRIHT Mi "TWO CARDS FROfl A 'SHOE' COHTAINING 8 DECKS" 

98 PRIHT Mi "OF CARDS, ft! CARD CC«IHATIONS TOTALING' 

188 PRIHT Mi "TEH ARE HOT COUNTED. THE ONE THAT ENDS UP" 
"CLOSER TO NINE WINS. THE STAKES PRE HIGH " 
"ALL OF THE PLAYERS START HITH TEN THOUSAND" 
"DOLLARS. YOU CRH BET ON THE DEALER OR THE" 
•PLAYER A THIRD CARD IS GIVEN ONLY UNDER" 
•CERTAIH CONDITIONS, AS YOU HILL SEE LET" 
'US BEGIN GOOD LUCK!" 

178 PRIHT8973, "PRESS ANY KEY TO CONTINUE"; 

188 IF INKEY*=" THEN 188 

198 OS: DIH H<28>,F1<26>,F<28),M(L3>,Y(13),GS<28) 

288DMZ(3,18>,Q(4,12) 

218 FOR X=2 TO 6 

228 FOR V=l TO 16 

238 READ Z(X,Y> 

248 NEXT Y,X 

258 FOR Sl=l TO 18: READ H(S1): NEXT 

268 FOR Sl=l TO 4: READ M<S1): NEXT 

278 FOR Sl=l TO 13: READ BJ(S1): NEXT 

288 FOR 51=1 TO 12: READ V(S1): NEXT 

298 PRINT 

288 PRIHT "H0H HANY PLAYERS"; 

218 INPUT PI 

228 IF Pl>8 THEN PRIHT 'HftXIMUH OF 8 PLAYERS": GOTO 298 

228 PRIHT 

248 FOR J=l TO PI 

258 PRIHT'NHAT IS THE HAS OF PLAYER'i Ji 

268 INPUT 6$(J) 

278 HUM8888 

288 NEXT J 

298 PRIHT 

488 FOR Sl=l 10 4 

418 FOR SM TO 12 

426Q(SLS2>=8 

438 NEXT S2 

448 NEXT SI 

458 FOR J=l TO 6 

468 C=IHT(ltRND(8)*4) 

478 D=1HT',1+RKD<8>*12> 

4B8 Q(C,D)=0(C,D)*i 

498 IF 0<C,D)>22 THEN 468 

586 B(J)=V(0) 

518 C$(J)=M(D)+" OF "+M(C) 

528 NEXT ] 

528 Hl=2 

548 FOR: M TO Fl 

558 IF HUX1 THEN 678 

568 CLS: PRINT GSU), " HAS. "i 

578 PRIHT USING "«IS,fSS", HU); : PRINT" BET"i 



589 INPUT F(J) 

598 IF fOYMU) THEH 568 

688 IF F(J)OIHT(F(J» THEN 568 

618 IF FU><1 THEH 568 

628 PRIHT "(1) BANKER OR (2) PLAYER'i 

628 INPUT F1U) 

648 IF F1(J)M668 THEH 568 

658 IF <FlU)-»*<Fl(J)-2>08 THEH 628 

668 PRINT 

678 NEXT J 

688 J=8 

693 T1=B(1HB<2) 
768 T2=8(2)+B(4) 
718 PRINT 
728 CLS: PRIHT "BAHKER'i TRB(28)i "PLAYER" 

738 PRIHT " "; TAB(28)i ; " 

748 PRINT Cl(2)i TAB(28)i Cttl) 

758 PRINT C*(4)i TRB(28)i «<2) 

768 PRIHT 

778 IF TK18 THEN 798 

783 T1=T1-16 

798 IF T2<18 THEH 818 

689 T2=T2-18 

819 IF H(Tltl)=8 THEN 888 
828 PRIHT ■PLAYER MUST DRAH "i 
838 PRINT C$(5) 
848 T1=T1+B<5> 
856 IF Tiae THEN 888 
868 Ti=Tl-16 
878 GOTO 988 

888 PRIHT "PLRYER CANNOT DRAR "i 
898 J=il 

986 PRIHT "PLAYERS TOTAL: "; Tl 
918 PRIHT 

928 IF T2<3 THEN 986 
928 IF T2>6 THEH 1848 
948 IF JOll THEH 978 
958 IF T2=6 THEH 1848 
968 GOTO 988 

978 IF 2<T2,B(5)+1)=8 THEH 1648 
938 PRIHT "BANKER BUST DRRR "; 
998 PRIHT CK6) 
1638 T2=T2+B(6> 
1818 IF T2<18 THEH 1828 
1828 T2=T2-16 
1628 GOTO 1658 

1848 PRIHT "B»KER CANNOT DRAR. "i 
1658 PRIHT 'BANKERS TOTAL: "; T2 
1868 IF T20T1 THBI 1168 

1878 PRIHT 'IT'S A TIE THE HAND IS PLAYED OVER 
1888 PRIHTS979, "PRESS ANY KEY TO EHTER'i 
1896 IF INKEY*=" THEN 1698 ELSE 459 

1168 IF T2<T1 THEN 1149 

iuem=i 

1128 PRIHT "********** BANKER HINS!! *********** 

1128 GOTO 1158 

1146 PRIHT *********** FLAYER HIHS 

1159 FOR M TO PI 

1169 IF HUX=8 THEH 1248 
1178 PRINT (SO); " "; 
1188 IF Fl(J)=m THEN 1228 
1198 HUHKJJ-F'J) 

1268 PRINT'LOSB f; F(J) 
1218 GOTO 1249 

1228 HU)=NU)+FU> 

1229 PRINT'HIHS *"; F(J); 
1248 NEXT I 
1258 FOR J=i TO Pi 

1269 IF MJ)C8 THEN 1388 
1276 NEXT J 

1288 PRIMT8968, "THANK YOU FOR YOUR HONEY, TO 
1298 GOTO 1428 
1288 PRIHTS979, 
1218 IF IHKEY*=" 
1228 FOR X=l TO 4 

1338 FOR Y=l TO 1 

1348 IF G(X,Y)OB THEH 459 

1359 NEXT Y,X 

1268 GOTO 468 

1278 DATA LLLLL LI, 1,8, 1,8,9, LI, 1,1,1,1,8,8 

1388 DATA 8, 8, 8, 8, LLLL 9, 9, 9, 8, 8, 8, 8, 8, LI, 8, 6 

1399 DATA L L L L L L 9, 6, 8, 8, SPADES, HERRTS, DIAHONDS 

1469 DATA CLUBS, ACE, TWO, THREE, FOUR, FIVE SIX, SEVEN, EIGHT 

1418 DATA NINE, TEN, JACK, QUEEN, KING, L 2, 2, 4, 5, 6, 7, 8, 9, 6, 8, 

1428 PRIHT "THANK YOU FOP: PLAYING. "; 

1428 END 



**********" 



• TOTAL »"; HO), 



■ TOTAL *"i HU), 



'PRESS ANY KEY TO COHTINUE"; 
THEH 1219 



BIBLE QUIZ is a program which 
administers up to 25 questions about 
the Bible to the user. If the answer given 
to a question is correct, the program 
proceeds to the next question. If an 
incorrect answer is given, the program 
gives the correct answer. I neither case, 
the biblical reference is given. 

Note that Statements 250 to 570 
could serve as the basis for any type of 
CAI dialogue with instructions 
preceeding Statement 250 and the 
questions and answers in the data 
statements. 

This program was written by Steve 
Wentworth of Muskingum College. It 
originally appeared in Creative Com- 
puting, Mar/Apr 1977. 



QUESTION I 4 



WHAT HAS THE NAJE OF THE FIRST CITV EVER BUILT? BRYONE 

INCORRECT RNSWER 

TIC CORRECT ANSWER IS ENOCH. GEN. 4:17 

PRESS RNY KEY TO CONTINUE 



• els 



QUESTION « 5 



MHO MRS TIC FIRST PERSON KILLED? JIMMY HOFFR 

INCORRECT ANSWER. 

THE CORRECT ANSWER IS ABEL GEN 4:8 

PRESS RNY KEY TO CONTINUE 



cla ■ 



QUESTION I 6 



BIBLE QUIZ 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOKN, NJ 



■ els 



DO YOU NEED INSTRUCTIONS? YES. 

THIS GAME IS A QUIZ WHICH TESTS 
YOUR KNOWLEDGE OF BIBLICAL EVENTS, PLACES, 
AND PERSONS. 

I HILL ASK YOU A QUESTION AND THEN WIT 
FOR YOUR ANSWER IF YOUR ANSWER IS CORRECT, 
I HILL PROCEED TO THE NEXT QUESTION IF YOUR 
ANSWER IS INCORRECT, I HILL GIVE YOU THE 
CORRECT ANSWER AND THEN PROCEED TO THE 
NEXT QUESTION 

ALL ANSWERS ARE ONE HORD, AND MUST BE 
CORRECTLY SPELLED 

THERE ARE 25 QUESTIONS. 

HOW MANY QUESTIONS DO YOU WISH TO TRY? 28. 

. els 



QUESTION t 1 



WHO HAS. THE FIRST CHRISTIAN MARTYR? ZORBfl THE GREEK 

INCORRECT ANSWER. 

THE CORRECT ANSWER IS STEPHEN ACTS 7 

PRESS ANY KEY TO CONTINUE 



- els 



QUESTION i 



WHO ACCIDENTLY HANGED HIHSELF IN A TREE? TRRZAN 
INCORRECT ANSWER. 

THE CORRECT ANSWER IS ABSALOM. 2 SRM. 18:9 
PRESS ANY KEY TO CONTINUE 



els ■ 



QUESTION ! 



WHO KILLED GOLIATH? DAVID 

CORRECT ANSWER - VERY GOOD! 1 SAW. 17:49 



PRESS RNY KEY TO CONTINUE 

els 



QUESTION I 



WHAT PHYSICIAN HAS AN AUTHOR? HOWARD THE DUCK 

INCORRECT ANSWER 

THE CORRECT ANSWER IS LIKE COL 4:14 

PRESS AW KEY TO CONTINUE 



■ els 



QUESTION i 9 



WHO KILLED HIS BROTHER FOR HUMBLING HIS SISTER? UNCLE FLOYD 

INCORRECT RNSWER 

THE CORRECT ANSWER IS ABSALOM. 2 SRM 13 

PRESS ANY KEY TO CONTINUE 

els 



QUESTION » 18 



WHAT HEBREW SERVED A QUICK LUNCH UNDER A TREE? JOES BAR 
INCORRECT RNSWER 

THE CORRECT ANSWER IS ABRAHAM. GENESIS 18:6-8 
PRESS ANY KEY TO CONTINUE 



• els 



QUESTION I 



MHO DROVE FURIOUSLY? NETTO 

INCORRECT RNSWER 

THE CORRECT ANSWER IS JEHU. 2 KINGS 9:28 

PRESS RNY KEY TO CONTINUE 

— els 



QUESTION S 11 



WHO HAS BURIED IN A CAVE WITH HIS WIFE? AL HURT 
INCORRECT ANSWER. 

THE CORRECT ANSWER IS ABRAHAM. GEN 25:9-18 
PRESS RNY KEY TO CONTINUE 



■ els 



WHAT BOY HRD A VARIEGATED COAT? THE INCREDIBLE HULK 

INCORRECT RNSWER • 

THE CORRECT ANSWER IS JOSEPH GEN 37:3 

PRESS RNY KEY TO CONTINUE 

els 



QUESTION I 12 



WHAT BLIND HAH KILLED THREE THOUSAND RT A REL1G0US FEAST? HOE 
INCORRECT ANSWER. 

TOE CORRECT RHSICR IS SAMSON. JUDGES 16:23-38 
PRESS ANY KEV TO CONTINUE 

ols 



QUESTION # 13 



MHO SLEPT ON AN IRON BEDSTEAD OVER THIRTEEN FEET LONG? S. WHITE 

INCORRECT RNSHER. 

TIE CORRECT fWSER IS OG. DUET. 3:11 

PRESS ANY KEY TO CONTINUE 



0l8 • 



QUESTION t 14 



MHO FELL ASLEEP DURING A LONG SERMON? Nt BILL 
INCORRECT RNSHER. 

THE CORRECT ANSWER IS EUTYCHUS. ACTS 20:9 
PRESS RNY KEY TO CONTINUE 



■ els • 



QUESTION I 15 



WHO CL1H8ED A TREE TO SEE JESUS? BEN DOVER 
INCORRECT ANSWER 

THE CORRECT ANSWER IS ZACCHREUS. LUKE 13:4 
PRESS ANY KEY TO CONTINUE 



• els ■ 



QUESTION » 16 



WAT CITY IS CALLED THE CITY OF PALH TREES? 
INCORRECT ANSWER. 

THE CORRECT ANSWER IS JERICHO. DUET. 34:3 
PRESS RNY KEY TO CONTINUE 



16CLS 

29 PRINT 8 411 'BIBLE QUIZ" 

38 PRINT 

46 PRINT TA8(7)"C0PYR16HT 1979 CREATIVE C0KPUT1NG HDRSISTOHL NJ" 

58 PRINT 9 968,"; 

68 INPUT'DO YOU NEED INSTRUCTIONS"; H 

78 IF LEFTtUt, 1>="Y" THEN 188 

88CLS 

98 GOTO 228 

188 CLS 

118 PRINT" THIS GfifE IS fl QUIZ MICH TESTS " 

128 PRINT "VOW KNOWLEDGE OF BIBLICAL EVENTS, PLACES, " 

138 PRINT "AND PERSONS. " 

148 PRINT " I HILL ASK YOU A QUESTION AND THEN HAIT " 

158 PRINT "FOR YOUR ANSWER. IF YOUR ANSWER IS CORRECT, " 

168 PRINT "I HILL PROCEED TO THE NEXT QUESTION. IF YOUR " 

178 PRINT "ANSWER IS INCORRECT, I HILL GIVE YOU THE " 

188 PRINT "CORRECT ANSWER BKD THEN PROCEED TO THE " 

138 PRINT "NEXT QUESTION. " 

288 PRINT " ALL ANSWERS ARE ONE WORD, AND HUST BE" 

218 PRINT "CORRECTLY SPELLED. ■ 

228 PRINT « 768, "THERE ARE 25 QUESTIONS. " 

238 PRINT 

248 PRINT "HOW WHY QUESTIONS DO YOU WISH TO TRY"; CKRtGl); 

258 INPUT N 

268 IF K>25 OR N<i THEN 228 

278 CLS 



288 DIH S(25) 

298 C=8 

388N1=8 

318 PRINT CHR$<28); 

328 RESTORE 

338 IF C=N THEN 558 

340OC+1 

350 PRINT 

368 PRINT "QUESTION l";C 

378 PRINT " "; CKRtGl) 

388 PRINT 

398 PRINT 

488 X=RND<25) 

418 IF S(X)=1 THEN 488 

428 S(XM 

438 FOR 0=1 TO X 

448 READ 9t, At, Vt 

458 NEXT Q 

468 PRINT «i 

478 INPUT R$ 

488 IF Rt=flt THEN 528 

498 PRINT "INCORRECT ANSWER * 

588 PRINT "THE CORRECT ANSWER IS ";R»;*. ";Yt 

518 GOTO 968 

528 PRINT "CORRECT ANSWER - VERY GOOD! ";Y* 

538W=N1+1 

548 GOTO 968 

558 PRINT 6 832, "OUT OF"; N; "QUESTIONS YOU ANSWERED"; Hi; "CORRECTLY. ■ 

568 P=INT«m/H)*168+. 5) 

578 PRINT "YOU! PERCENTAGE OF CORRECT ANSWERS IS";P; CH»<8>; "X" 

588 DATR "WHO SET FIRE TO THREE HUNDRED FOXES TAILS", "SANSON" 

598 DATA "1 JUDGES 15:4,5" 

688 DATA "WHAT HEBREW SERVED A QUICK LUNCH UNDER A TREE" 

616 DATA "ABRAHAHV GENESIS 18:6-8" 

628 DATA "WHAT HUNGRY HAN CURSED A FRUITLESS FIG TREE", "JESUS" 

638 DATA " HARK 11:12-14" 

648 DATA "WHO KILLED HIS BROTHER FOR HUMBLING HIS SISTER" 

658 DATA "ABSALOM", "2 SRH. 13" 

668 DATA "WHO HAD THREE HUNDRED CONCUBINES", "SOLOHON", "1 KINGS 11:1-3" 

678 DATA "WHAT BOY HAD A VARIEGATED COAT", "JOSEPH", • GEN 37:3" 

688 DATA "WHO HAD R SERKLESS CORT". "JESUS", " JOHN 19:23" 

698 DRTA "WHO TOOK OFF HIS SHOE TO BIKD A CONTRACT", "BOAT.", "RUTH 4:7-9" 

788 DATA "WHO SLEPT ON AN IRON BEDSTERD OVER THIRTEEN FEET LONG' 

718 DATA "OG", " DUET. 3:11" 

728 DATR "WHO WAS THE FIRST CITY-BUILDER". "CAIN"," GEN. 4:17* 

738 DATA "WHAT PHYSICIAN WAS AN AUTHOR", "LUKE", " COL 4:14" 

748 DATA "WHAT SONG-COWOSER IS CREDITED WITH 1835 SONGS". "SOLOMON" 

758 DATA "1 KINGS 4:32" 

768 DATA "WHO HAS THE FIRST PERSON KILLED", "REEL", » GEN 4:8' 

778 DATA "WHO WAS BURIED IN A CAVE WITH HIS WIFE", "ABRAHAM" 

788 DATA " GEN. 25:9-18" 

798 DATA "WHO ACCIDENTLY HANGED HIHSELF IN A TREE", "ABSALOM" 

888 DRTR "2 SAH. 18:9" 

816 DATR "HURT BLIND KAN KILLED THREE THOUSAND RT A RELIGOUS FEAST" 

828 DATR •SAMSON", " JUDGES 16:23-38" 

838 DATR "WHAT WflS THE NAHE OF THE FIRST CITY EVER BUILT" 

848 DATA "ENOCH", " GEN 4:17" 

850 DATA "MHO WAS A NIGHTY HUNTER", "HIHKOD", " GEN. 18:9-12" 

868 DATA 'WHO DROVE FURIOUSLY", "JEHU". '2 KINGS 9:28" 

878 DATA "WHO MRS THE FIRST CHRISTIAN MARTYR', "STEPHEN", " ACTS 7" 

888 DATR "WHO FELL ASLEEP DURING A LONG SERHON", "EUTYCHUS" 

898 DATA " ACTS 28:9' 

988 DATR "WHAT CITY IS CALLED THE CITY OF PALH TREES", "JERICHO" 

918 DATA " DUET. 34:3" 

928 DATA "WHO CLIMBED A TREE TO SEE JESUS", "ZACCHREUS", " LUKE 19:4" 

938 DATA "WHO KILLED GOLIATH", "DRYID","1 SAH. 17:49" 

948 DATA "WHO WAS CAST INTO A DEN OF LIONS", "DANIEL"," DAN. 6:16" 

958 END 

968 PRINT § 53L "PRESS ANY KEY TO CONTINUE"; 

978 IF INKEYt ='" THEN 978 ELSE 318 



Hill 



tsSs i'J 



(,' 
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BIG 6 

CtfPVRIGHT 1973 CREATIVE COMPUTING MORRISTOHN, NJ 

ola 



DO TO HEED INSTRUCTIONS? VES. 
Cl8 • 



THIS PROGRAM IS A DICE HHEEL GAME IN WHICH 
VOU CAN BET OH ANV NUMBER BETWEEN ONE AND SIX 
AM> UP TO THREE NUMBERS. 
THE HOUSE LIMIT IS FR0I1 *1 TO *580 
TO END THIS PROGRAM TYPE THE WORD 'STOP' 
GOOD LUCK! 



PRES! 



ANV KEV TO CONTINUE 
_ c!S 



HON MANV NUHBERS : VOU HANT TO BET OH? . 
HURT NUMBER? 4 
HAGER? 18 



VOU LOSE ON 4. 
YOU'RE BEHIND $-11 



Cl8 ■ 



HOH HflNV NUMBERS DO VOU HfiHT TO BET ON? . 
HHfiT TOO NUMBERS? 2, 4 
HRGER ON BOTH? 5, 19 



VOU H1N 1 TIME ON I 
YOU LOSE ON 4. 
VOU'RE BEHIND *-i'5. 



els ■ 



HOH I1HHV NUMBERS ! VOU WANT TO BET ON? . 

HHfiT THREE NUMBER;'' 1,3,5 

HAGER ON EACH Of "KE THREE? 5,5,5 



VOU LOSE ON 1 
VOU LOSE ON 1 
VOU WIN 1 TINE ON : 
VOU'RE BEHIND $-21.'. 



■ els ■ 



HOH MANY NUMBERS 10 VOU HANT TO BET ON? . 
HHfiT TOO NUMBERS? 1,2 
HA6ER ON BOTH? 10. 10 



VOU LOSE OH 1 

VOU WIN 1 TIME OH 2 

VOU'RE BEHIND I-2P 



els ■ 



HON HflNV NUMBERS 10 VOU WANT TO BET ON? . 
WHAT TOO NUMBERS? 2, 4 
HAGER ON BOTH? 25,25 



VOU LOSE ON 2. 
VOU LOSE ON 4. 
VOU'RE BEHIND t-7£ 



• els • 



HOH MANV NUMBERS CO VOU HANT TO BET ON? 
NHRT TOO NUMBERS? 2, 4 
HRGER ON BOTH? IS, 10 



VOU LOSE OH 2. 

VOU HIN 1 TIME ON 4. 

VOU'RE BEHIND t-lt 



■ CIS ■ 



HOH MANV NUMBERS DJ VOU HUNT TO BET ON? STOP. 
HHfiT TOO NUHBERS? 2,4 
HAGER OH BOTH? 18, 10 



VOU LOSE OH 2. 
YOU H1H 1 TIME OH 
VOU'RE BEHIND $-78 



■ els 



HOH MAHV NUHBERS DO VOU HANT TO BET ON? STOP 

SO VOU HANT TO CBS I IN VOUR CHIPS, I SEE! ! ! 

VOU DIDN'T HIN ANV HONEY, BUT I'M HILLING TO CALL IT EVEN!! 

READY 



els • 



18 CIS: CLEAR IBM: PRINT8412, "BIG 6" 

29 PRINT: PRINT TRB(?> "COPYRIGHT 1979 CREATIVE C0HPUTIN6 M0RR1STOHN, NJ" 

28 PRINT8968, "": INPUT "DO VOU NEED INSTRUCTIONS": 1$ 

48 OS: GOSUB 1848 

58 IF LEFT«I$,DO"V" THEN 188 

69 PRINT TRB<28> "BIG 6": PRINT 

78 PRINT " THIS PROGRAM IS fl DICE WHEEL GAME IN WHICH" 

88 PRINT "VOU CAN BET ON ANY NUMBER BETWEEN ONE AND SIX" 

98 PRINT "AND UP TO THREE NUMBERS. " 

189 PRINT 

118 PRINT " THE HOUSE LIMIT IS FROM tl TO «88. " 

128 PRINT 

128 PRINT " TO END THIS PROGRAM TYPE THE HORD 'STOP' " 

149 PRINT 

158 PRINT "GOOD LUCK!" 

168 PRINT0979, "PRESS ANY KEY TO CONTINUE"! 

178 IF IHKEVt="" THEN 178 ELSE CLS 

188 DIN SG) 

138 GOTO 216 

288 PRINT "VOU CANNOT BET ON LESS THAN ONE OR MORE TORN THREE NUMBERS. " 
218 PRINT88, "HON MANY NUMBERS DO YOU HANT TO BET ON"; 

228 INPUT N»:IF H$="STOP" THEN PRINT CHR«31)i : GOTO 988 

228 N=VRL<N*> 

248 IF N=2 THEN 480 

258 IF N=2 THEN 548 

268 IF H>2 OR NO. THEN 289 

278 PRINT "WHAT NUMBER"! 

289 INPUT V 

299 IF V<=6 OR VM THEN 226 

368 PRINT "YOU CRN ONLY BET ON AN INTEGER FROM ONE TO SIX. " 

218 GOTO 278 

228 PRINT "HRGER"; 

229 INPUT F 

248 IF K=588 OR F M THEN 279 

259 PRINT "THE HOUSE LIMIT IS FROM *1 TO $588. " 
268 GOTO 229 

279 GOSUB 699 

288 S2=V: S2=F GOSUB 828 

398 GOTO 948 

488 PRINT "HHHT TWO NUMBERS"! 

418 INPUT V,P 

428 IF VOb OR VM OR P<=6 OR PM THEN 459 

438 PRINT "YOU CAN ONLY BET ON AH INTEGER FROM ONE TO SIX. " 

448 GOTO 488 

458 PRINT "HRGER ON BOTH"! 

468 INPUT F, 1 

478 IF F<=588 OR FM OR K=588 OR D=l THEN 589 

488 PRINT "THE HOUSE LIMIT IS FROM $1 TO $588. " 

498 GOTO 458 

589 GOSUB 699 

519 S2=V: S3=F GOSUB 838 

528S2=P' S2=I: GOSUB 828 

539 GOTO 948 

548 PRINT "HHflT THREE NUMBERS"! 

558 INPUT V, P, S 

568 IF VC=6 OR VM OR P<=6 OR PM OR S<=6 OR S>=1 THEN 598 

578 PRINT "YOU CRN ONLY BET ON fill INTEGER FROM ONE TO SIX " 



"f»(RND<6)>" "R*(RND(6)>; 



"A*<S<2»" »R$<SG»; 



588 GOTO 549 

598 PRINT "HRGER ON EACH OF THE THREE"! 

688 INPUT F, I, J 

618 IF F<=588 OR FM OR K=589 OR IM OR K=560 OR JM THEN 648 
628 PRINT "THE HOUSE LIMIT IS FROM «L TO 1588. * 
638 GOTO 598 
646 GOSUB 698 
658 S2=V: S3=F GOSUB 838 
660S2=P' S3=I: GOSUB 838 
678 S2=S. £3=J: GOSUB 828 

689 GOTO 946 
699 X=-l 

768 R=INT(6*RND(8)+1) :B=INT(6*RND(9)+1) :C=INT(6*RND(8)+i> 
718 S(i)ni:S(2)=B:SG>=C 
728 FOR Y=l TO 2 
738 FOR X=i TO 3-Y 
748 IF S(XX=S(X+i) THEN 769 
758 TE=S(X>: S(X)=S(X+1): S(X+1)=TE 

760 NEXT X: NEXT Y 

778 FOR TX=1 TO RKD<16)+16 

788 PRIHT8256, A*(RND<6»" 

798 NEXT TX 

888 PRIHT8256, A*<S(1»" 

818 PRINT(S12, CHRJG1); 

828 RETURN 

838 Cl=9 

848 IF S2=A THEN Cl=Ci+l 

859 IF S2=B THEN Cl=Ci+i 

869 IF 52=C THEN Ci=Ci+l 

878 IF Cl>9 THEN 989 

880 S3=S3*C-1) 

896 PRINT "YOU LOSE ON"; 52; CHR$(8); " "• GOTO 928 

989 S3=S2*C1 

916 IF Cl=i THEN PRINT "YOU WIN 1 TIME 0N"iS2;CHR*<8>;' " 

928 l*WS2 

929 RETURN 

948 IF H=0 THEN PRINT "YOU'RE EYEN!!"' PRINT: GOTO 218 

958 IF H>8 THEN PRINT "YOU'RE AHEM) $'; Hi CHR$<8>; ". "• PRINT: GOTO 218 

968 IF 1KB THEN PRINT "YOU'RE BEHIND $"; It CHR$<8>; " "' PRINT: GOTO 210 

979 REM 

988 PRINT: PRINT: PRINT "SO YOU WANT TO CASH IN YOUR CHIPS, I SEE!!!": PRINT 

998 IF H>9 THEN 1828 

1898 PRINT "YOU DIDN'T KIN ANY HONEY, BUT I'M HILLING TO Cflti IT EVEN!!" 

1918 GOTO 1026 

1928 PRINT "YOU HON EXfiCTLY fill;"!! NOT BAD !!!" 

1828 END 

1848 FOR A=l TO 6: FOR B=i TO 2: FOR D=l TO 5: READ C 

1856 f»<fl)=A«R)+CHR«C+100>: NEXT D 

1668 A$<R)=A$<A)+CHR«26)+STRING$<5,8):HEXT B 

1876 A$<R>=Rt(A>+STRIHGK5,22HSTRlNG«3,2?>: NEXT fl 

18B0 DATR 28, 76, 88, 28, 28, 28, 28, 91, 28, 28, 28, 48, 43, 48, 28 

1696 DATA 76, 48, 48, 46, 76, 76, 40, 40, 48, 31 43, 40, 40, 48, 48 

1188 DATA 76, 48, 48, 48, 76, 28, 28, 46, 46, 79, 31, 46, 48, 40, 31 

1116 DATA 28, 28, 76, 88, 28, 88, 79, 76, 91 76, 28, 28, 28, 43, 28 

1129 DATA 88, 49, 48, 40, 49, 31, 31 31 31 88, 31 48, 48, 48, 31 

1138 DATA 28, 76, 48, 28, 28, 91 49, 40, 49, 76, 31 48, 49, 49, 31 

1148 RETURN 





This game tests your skills in binary- 
to-de ;imal and decimal-to-binary con- 
version. You are given twenty conver- 
sion trials. Numbers are chosen 
randomly and your score is printed at 
the ei id. The answer to any conversion 
you miss is displayed; if the next 
conversion is presented, you may 
assume you got the previous one 
corre:t. 



There are several possible 
modifications for this program such as 
timing the response, allowing the user 
to specify ;he number range, checking 
for duplicate numbers, or extending it 
to other bases. 

This program was written by Ted 
Park of Pacific Union College. It 
originally .appeared in Creative Com- 
puting, Mar/Apr 1975. 



BINflRV 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTONN, NJ 



10 CLS. PRINTC412, "BINflRV" 

20 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINT0960, "-■■ . INPUT "HIT ENTER TO START"; I* 

40 CLS 





UI3 






50 B$="01" 


HIT ENTER TO START' . 






68 T0=26 


BINflRV: 00111 


DEIIMAL. ? 7 






78 FOR 1=1 TO 10 


BINARV- 00111 


DECIMAL. ? 7 






80 GOSUB 480 


BINflRV- 11100 


DECIMAL. ■> 27 


CORRECT ANSWER: 


28 


90 PO=PEEK<16416)+PEEK(16417)*256-15360 


BINflRV: 01000 


DECIMAL. ■> 8 






100 PRINT "BINAR. 1 : "; 


BINARV' 11110 


DECIMAL. ? 32 


CORRECT ANSWER: 


30 


119 FOR J=i TO 5 


BINflRV: 00101 


DECIMAL. ? 5 






120 PRINT I1ID$(£ (, BOJH1, 1); 


BINflRV- 01111 


DECIMAL. "> 15 






130 NEXT J 


BINARV' 00101 


DECIMAL. ? 5 






140 PRINT " DECIMAL: "; 


BINARV' 00001 


DECIMAL: ? 1 






150 INPUT A 


BINflRV' 01011 


DECIMAL. ■> . 
els 






160 IF fl=D THEN 190 

170 PRINT0PO+38, "CORRECT ANSWER: ";D 

180 T0=T0-1 

196 REM 


DECIMAL. 31 


BHARV' ■> 11111 






263 NEXT I 


DECIMAL. 11 


BIN1RV: ' 01011 






216 FOR fl=l TO 508: NEXT CLS 


DECIMAL. 30 


BINIRV' ■> 11110 






220 FOR 1=1 TO 1J 


DECIMAL. 26 


BINIRV- ■> 11010 






230 GOSUB 480: FO=PEEK<16416>+PEEK<16417)*256-15360 


DECIMAL. 6 


BINAIV- ■> 00110 






240 PRINT "DECIM-IL. ";D; 


DECIMAL. 15 


BINIRV: ? 01100 


CORRECT ANSWER: 


01111 


250 PRINT " BINflRV- "; 


DECIMAL: 9 


BINAi V- ? 01001 






260 I*="00000" 


DECIMAL. 14 


BINIRV- ■> 01110 






270 INPUT U 


DECIMAL. 30 


BlftiRV: ? 11110 






280 IF LEN<I*)>13 THEN 350 


DECIMAL. 27 


BIN IRV- •> 10601 


CORRECT ANSWER: 


11011 


298 I$="00000"+I £ 

380 I$=RIGHT*<I* 5) 

310 FOR 3=1 TO 5 


VOUR SCORE. 75 








320 IF MID*<B*,B :.D+1, l)OMID*<I$, J, 1) THEN 350 
330 NEXT J 


TRV AGAIN? . 








340 GOTO 400 

350 PRINT0PO+39, "CORRECT ANSWER: ".; 










360 FOR J=l TO 5 

370 PRINT MID$<Bs,B<JHl,l>; 

380 NEXT J- PRIN" 

390 T0=T0-1 

460 REM 

410 NEXT I 

420 PRINT 

439 PRINT 

440 PRINT "VOUR SCORE: "; INTCT0/. 2+ 5); "X" 
450 PRINT 

460 INPUT "TRV AGAIN"; HNS* 

470 IF LEFT*<ANS»,1>="V" THEN CLS: GOTO 50 ELSE END 

480 D=0 

490 FOR J=l TO 5 

500 B<J)=INT<RND,0)+ 5) 

510 D=D*2+B<J) 

520 NEXT J 

530 RETURN 
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laekbo: 



%1 «l "3o -21 2® 1? 3& 2S 



I 1 l«i»l 1 1 ! 

1 _ 1 !__j 1 j 1 1 


> ! 1 i i [ i 



i ! 




■£ 



24 

1 21 
j 20 



9 SO II 12, »5 l<* 13 1% 



Description: Black Box is a computerized version of the 
game that appeared in the August 1977 issue of Games 
and Puzzles. The Black Box is an 8-by-8 square in which 
several atoms are hidden. The object of the game is to 
discover the positions of the atoms by projecting rays at 
them from the sides of the box and noticing how these rays 
are deflected, reflected, or absorbed. Rays enter the box 
across one of the four edges and travel horizontally or 
vertically. The entry points are numbered from 1 to 32, 
counterclockwise, starting at the top of the left edge. 

To play the game, you first specify how many atoms to 
place in the Black Box. Then you type in the point at which 
you send the ray into the box, and you are told whether the 
ray was absorbed or where it emerged. Type a zero to end 
the game and print the board. The path of the ray is 
governed by the following rules: 

(1) Rays that strike an atom directly are absorbed. 

(2) Rays that come within one square of an atom in a 
diagonal direction (so that they would pass next to the 
atom if they continued) are deflected by 90 degrees. 

(3) Rays aimed between two atoms one square apart are 
reflected. 

(4) Rays that enter on either side of an atom on the edge 
of the box are reflected. 

(5) Rays otherwise travel in straight lines. 

The game is pretty interesting with four or five atoms, 
but can get out of hand with too many more. Occasionally, 
an atom can be masked by others. This doesn't occur 
often, but sometimes the position is truly ambiguous 
(more often, there Is only one place the atom can be). For 
competitive play, score one point for reflections and 
absorptions, two for rays which emerge from the box, and 
five points for each atom guessed incorrectly. 

This program and description were written by Jeff 
Kenton. A previous version appeared in Creative Com- 
puting, May/Jun 1978. 
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BLACK BOX 
COPYRIGHT 1979 C iEATIYE COMPUTING HORRISTOHN, NJ 



HIT EHTER TO START? . 



DO. OF ATOMS? 2_ 



■ els ■ 



THE BLRCK BOX 



22 31 39 29 28 27 a 25 

81 24 

82 23 

93 22 

94 21 

65 29 

66 19 
97 18 
98 17 

99 19 11 12 13 14 il 16 



RAY? 1 RBSREO. FAY? 28 ffiSRBD. RRV? 11 TO 38 RAY? 6 TO 19 
RAY? 15 TO 3 PAY? 23 1BSRBD. WW? 26 ABSRBD. RflV? 25 I 
RflV? 8. 



-- Cl3 



noh TaL me, Here do vc j think the atoms are? 

UN P*COLUHN FORMAT PI 3ASE) 
ATOM S 1 ■> 1,5 
RTOMt 2 "> 2,8_ 



■ els • 



22 31 38 29 28 27 2f 25 

81 24 

92. 23 

93 22 

94 21 
65 20 
96 19 
87 18 
98 17 

89 19 11 12 13 14 i; 16 



YOU GUESSED 2 OUT OF 2 f 'OHS CORRECTLY! ! 
YOUR SCORE FOR THIS ROUS > MRS 11 POINTS. 



] THE BLOCK BOX 



CARE TO TRV AGAIN? NO. 



■ Cl8 ■ 



18 OS: PRINTM11 "BLACK BOX" 

29 PRINT: PRINT TW7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOM, HJ" 

39 PRINT8969, "; INPUT "HIT ENTER TO START"; It 

48 OS: PRINT 'NO. OF ATOMS"; INPUT N: OS; GOSUB 568 

59 FOR J=9 TO 9: : 0R 1=8 TO 9: B(I,J)=8: NEXT I, J 

69 FOR 1=1 TO N 

78 X=RND<8): Y=RN1><80 IF B(X,V)08 THEN 79 

88 B(X,Y)=1: NEXT I 

98 5=8: C=0 

189 P0=PO+8: IF P0=969 THEN P0=ii*64 

118 PR1NT8P0, "RRV";CHR$<38); P0=P0+8: INPUT R: IF R<1 THEN 380 

128 ON (R-1V8+1 GOTO 146,159,168,178 

138 PRINT "ERROR" GOTO 198 

148 X=8: Y=R: U=l Y=8: GOTO 189 

158 X=R-8: Y=9: U=8: V=-l: GOTO 189 

169 X=9: Y=25-R: l.i=-l: Y=8: GOTO 188 

176 X=33-R: Y=8: 1J=9: V=l 

188 X1=X+U: Yi=Y+« 

198 IF U=8 THEN X2=Xi-l: X3=X1+1: Y2=Yi: Y3=Yi: GOTO 218 

268 V2=V1-1: V3=Y:.+1: X2=X1: X3=X1 

216 GOSUB 648: ON 3*B<XL. Yi)*BO& Y2)+2*e<X2, Y3H1 GOTO 238,246,256,248 
226 PR1NT6P0, "RBSBD. ": S=S+i: GOTO 186 
238 X=X1: Y=Y1: GOTO 288 
246 M: GOTO 268 
259 Z=-l 

269 IF U=9 THEN IK: V=3: GOTO 286 
276 U=9: V=Z 

288 ON (X+15V8 GOTO 328,388,338 
298 STOP 

289 ON <Y+15)/8 GOTO 249,186,356 
316 STOP 

328 2=Y: GOTO 368 

228 2=25-V: GOTO 039 

246 Z=22-X: GOTO 366 

256 2=8+X 

268 IF 2=R THEN PI:INT8P0, "RFLCTD. "■ S=S+1: GOTO 188 

270 PR1NW0, "TO";Z: S=S+2: GOTO 189 

389 COS: PRINT "Nlil TELL ME, WERE 00 YOU THINK THE ATOMS ARE?" 

296 PRINT "(IN R011, COLUMN FORMAT PLEASE )' 

488 FOR Q=l TO N 

410 PRINT "RTOH«";Q; 

426 INPUT I, J 

438 IF B<J, D=9 THEN S=S+5: GOTO 459 

448 OC+i 

458 HEXT Q 

469 CLS: GOSUB 5ff ■: FOR J=l TO 8: FOR 1=1 TO 8: FL=-1 

479 IFB<I,J)=8THEN493 

488X1=I:V1=J:G0S13 649 

499 NEXT I: NEXT 3 

598 PRINT811*64, ' YOU GUESSED"; C; "OUT OF"; Hi "ATOMS CORRECTLY ! ! " 

518 PRINT "YOUR SCORE FOR THIS ROUND HAS";S; "POINTS. " 

528 PRINT 

536 INPUT "CARE TO TRY AGAIN"; 01 

548 IF LEFT«fl$,i:="Y* THEN CLEAR: GOTO 49 

558 END 

568 PRINT: A$="eiM6223832264216528861997189817" 

578 FOR L0=8 TO 7 FRt=MIM(A$, L0*4+l, 2) : LN$=MD$(A$, L0*4+3, 2) 

586 PRINT FR$; " "; CH»(191); STRINGK23, 32); CHR«191>; " ";LN»: NEXT 

598 PRINT " "; CHR«2?); STRINGK23, 176) 

689 PRINT " 99 18 11 12 13 14 15 16" 

619 PRINT68, " CKR$<26); STRINGS(22, 131); 

629 PRINT60, " 32 31 39 29 28 27 26 25"; 

638 PRINT9292,CHM<93);" THE BLACK BOX"; P0=li*64-8: RETURN 

648 IF Xl=6 OR X1--9 OR Vl=8 OR Vi=9 THEN RETURN 

658 PR=PEEK(Y1*640<1*3+1+15269): IF PR022 THEN CR=12*PR ELSE CR=140 

668 PRINT8Y1*64+X1«2+L CHR*(CR); IF FL THEN RETURN 

679 PRINT8Yi*64+Xi*3+l, CHRJ(PR); RETURN 
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;ones 



The idea for this number game was 
derived from a contest called 
"Bobstones" described in the novel 
Watership Down. The object of 
Bobstones is to guess three things 
about the roll of a pair of dice. 

1. If the sum of the dice 

is odd or even 1 point 

2. The sum of the dice 2 points 

3. The number on each 

of the two dice 3 points 

The winner is the first player to score 
eleven points. If atie results, the winner 
is the first player to break the tie. 

In this computerversion of the game, 
you are playing against the computer. 
However, the computer makes its 
guess before the dice are "rolled." 
Hence, it has no real advantage over its 
human opponent. 

This game was written by Dohn 
Addleman. It originally appeared in 
Creative Computing Mar/Apr 1976. 



COPYRIGHT 1379 



BOBSTONES. 
CREATIVE COMPUTING 
els 



HORRISTOHN, NJ 



DO VOU NEED INSTRUCTIONS? YES. 
els 

BOBSTONES 

THIS IS fl NUMBER GAME CALLED BOBSTONES. THE OBJECT OF 

BOBSTONES IS TO GUESS THREE THINGS ABOUT THE ROLL OF A FAIR 

OF DICE ON EACH TURN, THE COMPUTER SIMULATES THE ROLL OF 

THE DICE. THEN, YOU OR THE COMPUTER (YOUR OPPONENT) GUESS 



1 IF THE SUM OF THE DICE IS ODD OR EYEN 

t THE SUM OF THE DICE 

3. THE NUMBER ON EACH OF THE THO DICE 



SCORE 

i POINT 

2 POINTS 

3 POINTS 



THE HINDER IS THE FIRST PLAYER TO SCORE 11 POINTS. IF fl 
TIE RESULTS, THE WINNER IS THE FIRST PLAYER TO BREAK THE TIE 

PRESS ANY KEY TO START 
els 



YOU FIRST OR ME? ME 



PRESS ANY KEY TO CONTINUE 
. els 



YOUR TURN. 

IS THE SUM ODD OR EVEN? ODD 

SORRY, THE SUM IS 10. 

PRESS ANY KEY TO CONTINUE 



■ CIS ■ 



MY TURN. 

*** ON THIS ROLL OF THE DICE, THE TOO NUMBERS. ARE 5 AND 2. 

*** THE SUM IS 7. 

NY GUESS IS THAT THE SUM IS EVEN. 

AW I RIGHT OR WRONG? HRONG 



THE SCORE IS ME. 8 - YOU: 0. 

PRESS ANY KEY TO CONTINUE 


YOUR TURN 

IS THE SUM ODD OR EVEN? ODD 

SORRY, THE SUM IS 8. 

PRESS ANY KEY TO CONTINUE 
els 



els 

MY TURN. 

«** ON THIS ROLL OF THE DICE, THE THO NUMBERS. ARE 5 AND ! 

«* THE SUM IS 10. 

MY GUESS IS THAT THE SUM IS ODD. 

m I RIGHT OR HRONG? HRONG 



THE SCORE IS ME. - YOU: 



els ■ 



'ODD 



YOUR TURN. 

IS THE SW ODD OR EVEN? 
VOU ARE CORRECT 
NOH, GUESS THE SUM? 7 
SORRY, THE SUM IS 9. 

PRESS ANY KEY TO CONTINUE 
els 



MY TURN. 

*** ON THIS ROLL OF THE DICE, THE THO NUMBERS ARE 1 AND 1 

«* THE SUM IS 2. 

MY GUESS IS THAT THE SUM IS ODD. 

AM I RIGHT OR HRONG? HRONG 

THE SCORE IS ME. 6 - YOU: 1 

PRESS ANY 1 KEY TO CONTINUE 
els 



YOUR TURN. 

IS THE SUM ODD OR EVEN? EVEN 

YOU ARE CORRECT. 

NOW, GUESS THE SUM? 6 

YOU ARE CORRECT. 

WHAT ARE THE THO NUMBERS WHICH PRODUCED 6 " 4 

?? 2 

SORRY, THE NUMBERS ARE 3 AND 3. 

PRESS ANY KEY TO CONTINUE 

els — — 

MV TURK. 

*** ON THIS ROLL OF THE DICE, THE THO NUMBERS ARE 3 AND 4. 

«* THE SUM IS 7. 

MV GUESS IS THAT THE SUM IS ODD. 

AH I RIGHT OR HRONG? RIGHT 

MY GUESS OF THE SUM IS 7. 

AH I RIGHT OR HRONG? RIGHT 

MY GUESS IS THAT THE NUMBERS. ARE 6 AND 1 

AM I RIGHT OR WRONG? HRONG 



THE SCORE IS ME. 3 - YOU: 4. 



• 0l8 ■ 



18CLS 

28 PRINT 8 411, "BOBSTONES" 

38 PRINT 

46 PRINT TAB(7)"C0PVR1GHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ" 

50 PRINTS 968,""; 

68 INPUT-DO YOU HEED INSTRUCTIONS"; It 

70 IF LEFT«K, i)="Y" THEN CLS. PRINT e 27, "BOBSTONES" • PRINT ELSE 238 

88 PRINT" THIS IS A NUMBER GAME CALLED BOBSTONES. THE OBJECT OF" 

98 PRINTBOBSTOHES IS TO GUESS THRE THINGS ABOUT THE ROLL OF A PAIR" 

168 PRIHT"0F DICE ON EACH TURN, THE COMPUTER SIMULATES THE ROLL OF" 

110 PRIHT'THE DICE THEN, YOU OR THE COMPUTER (YOUR OPPONENT) GUESS" 

128 PRINT 

138 PRINT" SCORE" 

148 PRINT" " 

150 PRINT" 1 IF THE SUM OF THE DICE IS ODD OR EVEN 1 POINT" 

160 PRINT" 2. THE SUN OF THE DICE 2 POINTS" 

178 PRINT" 3. THE NUMBER ON EACH OF THE THO DICE 3 POINTS" 

188 PRINT 

198 PRINT" THE H1NNER IS THE FIRST PLAYER TO SCORE 11 POINTS, IF A" 

288 PR1NT"TIE RESULTS, THE WINNER IS THE FIRST PLAYER TO BREAK THE TIE. " 

218 PRINT 8 979, "PRESS ANY KEY TO START"; 

220 IF INKEYJ- =*" THEN 228 

230 DIM A(2) 

248 A(l)=6 

258 fl(2)=8 

268 Zl=-i 

270 Z2=-i 

288 Z3=-l 

298 Z4=-i 

380 25=-l 

318 Jl=8 

328 CLS 

330 PRINT'VOU FIRST OR HE": 

348 INPUT Z( 

358 Zf=LEFT«Z$, 1) 
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368 IF a=T THEM 468 

278 IF Zt="H" THEN 488 

288 PRINT"/// TYPE THE H( 

298 GOTO 328 

488 D1=RND(6) 

418 IF Zl=6 THEN 438 

428 Z1=0 

438 D2=R1«6) 

448 S=D1+D2 

458 IF Jl=8 THEN 598 

460 IF ZfO"N" THEN 538 

478 IF J206 THEN 1128 

488 PRINT 

498 PRINT'THE SCORE IS N 

588 IF fifl»=ll THEN 1921 

518 IF R(2»=li TIEN 1921 

528 GOTO 616 

538 IF ZJO'Y" THEN 2856 

548 IF J201 THEN 618 

558 PRINT 

568 PRINT'THE SCORE IS VI 

576 IF A<1)>=11 THEN 192( 

588 IF R<2»=il THEN 192C 

598 Ji=-i 

688 IF »="V THEN 1120 

616 PRINT C< 979, "PRESS f» 

628 IF 1IKEY* ="" THEN S 

638 PRINT CHR$(28)CHT»(3: 

648 J2=l 

658 R=S-< INT<S/2>*2) 

669 PRINT-IS THE SUB ODD 

676 INPUT (S 

688 R*=LEFTKR*, 1) 

698 IF f»='0" THBI 736 

788 IF Af="E" THEN 766 

718 mtli"/// TVPE THE UC 

728 GOTO 668 

738 IF R=i THEN 786 

748 PRINT -SORRY, THE SUM 

758 GOTO 488 

768 IF R=6 THEN 788 

778 GOTO 748 

788 PRINT-TO PRE CORRECT 

798 fl(l>=fl<l>+i 

868 PRINT-NOH GUESS THE 

818 INPUT Gl 

320 IF GK2 THEN 859 

838 IF Gl>12 THEN 859 

848 GOTO 878 

856 PRINT,'// THE SUN JDS 

868 GOTO 886 

878 IF 61=5 THEN 986 

886 PRINT-SORRV, THE SUM 

898 GOTO 468 

988 PRINT-VOU RRE CORRECT 

918 ACi>=fi(l>+2 

928 PRINT-HOT ARE THE TI 

938 INPUT Hi, N2 

948 IF NKi THEN 396 

958 IF N2<i THEN 998 

366 IF HD6 THEN 996 

976 IF H2>6 THEN 998 

988 GOTO 1918 

998 PRINT'/,'/ THE NIWEK 

1689 GOTO 928 

1618 IF N1=D1 THEN 1858 

1628 IF N2=M THEN 1876 

1838 PRINT-SORRV, THE NUT 

1848 GOTO 486 

1658 IF 1)2=02 THEN 1698 

1866 GOTO 1638 

1876 IF NI=02 THEN 1898 

1888 GOTO 1836 

1698 PRIHT-VOU ARE CORREC 

1168 R<i>=A(iH2 

1116 GOTO 488 

1128 J2=6 

1136 PRINT 9 979, "PRESS F 

1140 IF INKEW ="" THEN 1 

1158 as 

1168 PRIHT-HV TURN. " 



'YOU' OR THE WORD 'HE' 



";A<2);" - YOU:"; (1(1); CHR*(8>; 

J:";A<1>;" - NE:";A<2>; CHR*<8); 

V KEY TO CONTINUE"; 

8 

>"YOURTURN." 

3R EVEN"; 

!0 'ODD' OR THE HORD 'EVEN'. " 
ISVS; CHR*<8);" " 



f BE BETWEEN 2 AND 12. 



IS"; Si CHR$<8>;" - 



J NUHBERS WHICH PRODUCED"; S; 



NUST BE BETWEEN 1 f 



iERSRRE-;Dl;"RND-;D2; CHR«8>; 



IV KEY T6 CONTINUE"; 



1178 PRINT"*** ON THIS ROLL OF THE DICE, THE TWO NUHBERS ' 

1188 PRINT-ARE - ; M;"HND-;D2i CHRJC8);" " 

1198 PRINT"*** THE SUN IS";S; CHR*(8);" " 

1288 R1=IHT<2*RND«.<+1> 

1218 IF Z2=0 THEN 1238 

1220 22=8 

1228 IF Al=l THEN 1266 

1246 PRIHT-HV GUESS IS THAT THE SUN IS ODD. ■ 

1256 60TU 1276 

1268 PRIHT-NV GUESS IS THAT THE SUN IS EVER " 

1278 PRINT-AM I RICHT OR MRONG"i 

1288 INPUT D* 

1296 Dt=LEFT$(D», 1) 

1380 IF M="R" THEK 1348 

1316 IF D*=-W" THEN 466 

1328 PRINT"/// TVPE THE HORD 'RIGHT' OR THE IBRD 'WRONG' ' 

1338 GOTO 1279 

1348 R<2)=A<2>+1 

1358 IF Al=l THEN 1418 

1368 81=IHT(5*RND(Ei+l) 

1376 IF Z3=6 THEN 1296 

1388 23=8 

1398 B2=B1+B1+1 

1408 GOTO 1430 

1410 B1=RND(6> 

1428 B2=B1+B1 

1439 PR1HT"HV GUESS OF THE SUN IS";B2; CHRK8);" " 

1449 PRINT"RH I RIGHT OR WRONG"; 

1458 INPUT D» 

1460 Dt=LEFT«Dt, 1 > 

1478 IF D*="R" THB 1516 

1488 IF D*="H" THB 488 

1498 PRINT"/// TYPE THE HORD 'RIGHT' OR THE NORD 'WRONG' ! 

1568 GOTO 1446 

1518 A<2)=A(2>+2 

1528 IF B202 THEN 1566 

1536 Cl=i 

1540 C3=l 

1558 GOTO 1826 

1568 IF B203 THEN 1688 

1578 Cl=l 

1588 C2=2 

1598 GOTO 1828 

1666 IF B2011 THE! 1648 

1616 Cl=5 

1628 82=6 

1628 GOTO 1828 

1648 IF B2012 THH: 1688 

1658 Cl=6 

1668 C2=6 

1678 GOTO 1826 

1688 IF B2>7 THEN 1758 

1698 K1=B2-1 

1768 Cl=INKKl*RHD<e>+l) 

1719 IF 24=0 THEN 1736 

1726 24=6 

1736 C2=B2-C1 

1748 GOTO 1828 

1758 l'd=B2-6 

1768 K3=K1-1 

1778 K2=7-K1 

1786 Cl=( IHT(K2*RKK0)+iHI3) 

1798 IF Z5=0 THEN 1816 

1889 Z5=6 

1818 C2=B2-C1 

1828 PRINTMY GUIS! IS THAT THE NUHBERS RRE"; CI; "AND"; C2; CHR$(8); 

1836 PRINT"AH I RIOT OR WRONG"; 

1848 INPUT M 

1858 Dt=LEFT«D», i) 

1866 IF D*="R* THB 1988 

1878 IF M="H- THET 488 

1888 PRINT"/// TVPE THE HORD 'RIGHT' OR THE NORD 'WRONG' " 

1830 GOTO 1838 

1988 fK2)=A(2H2 

1916 GOTO 488 

1928 IF R(i)OR<2)THEN 1956 

1938 IF J2O0 THEN 1126 

1946 GOTO 616 

1958 IF fi(l»R<2)TPEH 2668 

I960 PRINT 

1978 PRINT"! HIN! FiiOTHER GABE"; 



1386 INPUT C* 

1990 Ct=LEFT*<0, 1) 

2688 IF C*='Y" THEN 246 

2019 IF C$="N" THEN 2646 

2826 PRINT"/// TVPE THE HORD 'YES' OR THE I 

2939 GOTO 1988 

2848 PRINT-SEE YOU LATER. " 

2959 END 

2868 PRINT 

2878 PRINT-VOU MINI ANOTHER GAME"; 

2838 GOTO 1988 
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Bocce 



BOCCE 



COPYRIGHT 1973 CREATIVE COMPUTING HORRISTOW, NJ 



Italian 
"lawn 



line 



This program simulates the 
game of Bocce also called 
bowls" or just "bowls." 

The instructions starting at the 
1280 explain the game. 

This is the four-ball version (Q=5). 
Allowing more balls in the game 
(raising Q) will increase central 
processing time since the chances of 
collision will rise and the resulting 
position of each ball has to be recom- 
puted. However, the delay is short and 
we routinely play six to eight balls. 
Increasing Q beyond 9 will require 
redimensioning the arrays at line 80. 

It is important to remember that the 
object is to get close to the jack and not 
to hit it. Upon collision, trie jack will 
move off more quickly than a ball 
because it is smaller and lighter. A 
careless shot can turn a good game 
into a disaster. 

It requires some imagination to play 
the game well. It goes best if you 
imagine that you are standing at 
coordinates 0,0 and are looking out 
along the X-axis. 

This game and the description above 
were written by Victor Bendall of 
Eastern Kentucky University. It 
originally appeared in Creative Com- 
puting, Jul/Aug 1977. 



DO TO REED INSTRUCTIONS? YES- 
Cl8 ■ 



IN THIS GAME TO ROLL 4 BULLS SUCCESSIVELY AT ft TARGET 
BALL (CALLED A JACK). THE 06JECT IS TO GET THE BALLS AS CLOSE 
TO THE JACK AS POSSIBLE THE BALLS ARE 18 CM. IN DIAMETER AND 
ARE HEIGHTED SO THAT THEY ROLL IN A CURVE TO HILL HAVE TO 
ROLL THEM AT AN ANGLE TO THE LINE FROM TO AT COORDINATES 8,8 
TO THE JACK AT COORDINATES X,Y. A POSITIVE ANGLE Mia HAKE 
THE BALL CURVE CLOCKWISE. A NEGATIVE ANGLE MILL HAKE IT CURVE 
ANTI-CLCCKHISE THE JACK IS 4 CM. HIDE AND HILL ROLL 
STRAIGHT IF TO HIT IT. BALLS HIT BY YOUR THROWN BAU KAY 
CURVE IN EITHER DIRECTION. 

HINT. TRY AN INITIAL VELOCITY OF 568 AND AN ANGLE OF IB. 
PRESS ANY KEY TO CONTINUE 

THE JACK IS LOCATED AT 2624,-21 
BdLl 



VELOCITY? 588 
ANGLE? 56- 



• ols ■ 



BAU VELOCITY = Z 87864 

JACK AT COORDINATES 2624.-21 

BALL 1 AT COORDINATES 2424,-495 IT IS 583. 662 FROH THE JACK 

VECH! OVER 16 FEET AHAY! 
SHORT AND TO THE RIGHT. 

BM12 



VELXITY?568 
ANGLE? 51. 



0l8 • 



F«i VELOCITY = 287864 

JACK AT COORDINATES 2624,-21 

BAa 1 AT COORDINATES 2434,-495 IT IS 581 662 FROM THE JACK 

BAa 2 AT COORDINATES 2434,-495 IT IS 583.662 FROM THE JACK 

VECH! OVER 16 FEET AHAY! 
SHORT AND TO THE RIGHT. 



Bfta3 



VaOCITY?528 
ANGLE? 68- 



ola ■ 



BRi VELOCITY = 135858 

JACK AT COORDINATES 2624,-21 

BALL 1 AT COORDINATES 2434,-495 IT IS 583. 662 FROM THE JACK 

Bfla 2 AT COORDINATES 2434,-495 IT IS 581 662 FROM THE JACK 

BALL 3 AT COORDINATES 2633,-535 IT IS 587. 679 FROH THE JACK 

YECH! OVER 16 FEET AHAY! 
LONG AND TO THE RIGHT. 

Bfia4 




VELOCITY? 5 
ANGLE? 5. 



els • 



BTCL VaOCITY = . 8788882 

JACK AT COORDINATES 2624, -a 

Bfla 1 AT COORDINATES 2434, -,35 IT IS 583. 662 FROM THE JACK 

B«a 2 AT COORDINATES 2434,-495 IT IS 581 662 FROM THE JACK 

Bfla 3 AT COORDINATES 2633,-535 IT IS 587.879 FROM THE JACK 

Bfla 4 AT COORDINATES 8,-1 IT IS 2617. 88 FROM THE JACK 

YECH! OVER 85 FEET AHAY! 
SHORT AND TO THE LEFT. 



THE TOTAL DISTANCE OF Aa B«aS FROM THE JRCK IS 561662 CM 
DON'T PLAY THIS GAME FOR MONEY! ! 



CARE TO TRY AGAIN? HL 
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IB as 

28 PRINT 9 413, "80CCE" 

28 PRINT 

48 PRINT TAB(?)-COPVRIG 

58 PRINT 8 968,"; 

68 INPUT-DO VOU SEED IN 

78QZ=5 

88DIHBK9), B1K9), 

98 IF LEFTttK, 1)="Y" 

188 Pi! =114159 

118 SI! =8 

128S2!=8 

138 fl!=-49. 3 

148 XZ(l)=INT<2838+?68* 

158 YZ<1>=INK283-4B8*R! 

168 OS 

178 PRIIIT'TK JACK IS U 

188 PRINT 

198 FOR PZ=2 TO QZ 

288 JZ=PZ 

218 GOSUB 968 

228 NEXT pz 

238 FOR JZ=2 TO Q 

248 D1!=D1!-H)!<X:> 

258 NEXT JZ 

268 PRINT 

278 PRBIT'THE TOTAL OIS 

288 PRINT DUi'ai" 

298 IF MK0H2 THEN PR 

388 IF Di!<QZt2 THEN 371 

318 IF [ii!<2*£Kt2 THEN I 

328 IF DUCWBX2 THEN I 

238 IF DiKMBK TIEN I 

348 IF Dl!<10*fiZl2 THEN 

358 IF Di!<28*822 THEN 

368 PRIHT'DOH'T PLAY TH! 

378 FOR JX=i TO 02 

388B!<JZ>=8 

398 Bi!<,TZ)=8 

489 D!(JZ)=8 

418 V!(J/i>=8 

428X!(JZ)=8 

438 Y!<JZ)=8 

448 NEXT JZ 

458 PRINT 

468 INPUTCARE TO TRY A( 

478 PRINT 

488 IF LEFT«W, i)="V 

498 GOTO 1438 

588KlZ=-28 

518 IF JZ=i THEN K1Z=8 

528 Rl!=fl!»COS(B!<JX))+l 

538 A2!=fl!*SIN(B!(JZ»H 

548S3!=V!(JZ)*C0S<B!<J; 

55eS4!=Y!(J2>*SIN<BKj; 

568 B!<JZ>=ATN««!<JZ)*! 

578 IF Bi!<JZ><8 TIEN 9 

588 S5!=51!*S3! 

598 S6!=52!+S4! 

688 IF JZ=i THEN 628 

618 IF RBSCS5!-X!<1»<? 

628 FOR KZ=2 TO 02 

638 IF IS2=J2 OR X2<KZ)=< 

648 IF (BS(S5!-X!(K2»e 

658 NEXT KX 

668 PRINT 8 8, "BOLL VEU 

678 IF¥KJ2XABS<A!*.8S 

688V!(JZ)=Y!(JZH<A!*.l 

698 S1!=S5! 

788 S2!=S6! 

718 GOTO 588 

728 GOTO 588 



I 1979 CREATIVE COTOTING HORRISTOHN, NJ- 
TRUCTI0N5"; » 



(9), V!<9), X!<9), V!<9) 
HEN GOSUB 1278 



ND(8» 
D(6» 



CflTEDflT";X2(l); CHR$(8)i ", ■; YZ<1>; CHR$(8)i 



ANCE OF ALL BflLLS FRON TIE JACK IS"i 

NTTOIIFICEKT BOHLING! MHAT AN EYE!!" 

RIHT"EXCELLENT, BUT COULD BE BETTER. ■; GOTO 378 
RINT'GOOO, BUT MEEDS SOKE ItTCOVEHENT. "' GOTO 378 
RINT'FAIR - VOU NEED RORE PRACTICE. ': GOTO 378 
PRINT'FDOR - TRV TO BE KORE CONSISTENT. ■• GOTO 378 
PRINT-TOUR GAHE NEEDS LOTS OF HORK. ': GOTO 378 
S GAKE FOR HONEY!!" 



1IN";Y$ 
THEN 119 



l?.«C0S«Pl!/2)+B!(J!!» 

L2*SIN«Fi!/2HBKJX)) 

»*.85+125£-83*Ai! 

»*.85+125E-B3*R2! 

IN<B!(JZ>>+A2!*.85)/<V!<JZ>*C0S<B!<JZ>>+fll!*.e5» 

!=-S4! 



TO RBS<S6!-Y!<1))<7 TIEN KM: GOSUB 948 



THEN 658 
3 RND ABS<S6!-YZ<K2»<18 THEN GOSUB 858 



CI1V =• Vf(JX) 

)MN738 
5) 



738 XZ<JZ)=X2<J2)--55! 

748 YZ<J2)=YX(JZ>-S6! 

758S1!=8 

76BS2!=8 

778S5!=8 

788 S6!=8 

798 FOR L2=i TO OK 

888 IF V!(LZ»P£S;fi!*.85>THEN JZ=LZ: GOTO 588 

818 B!CLZ>=8 

828 V!(LX)=8 

838 (EXT L2 

848 GOTO 1878 

858 B!<KZ)=HTN«Y;;<KZ)-$2!)/<XZ<KZ>-Sl!)> 

B68 PRINT CHRK7); 

878 IF J2=i TIEN V!<J2)=V!(J2V5 

888Y!<JZ)=ABS(Y!<J2>*S!N<8!<JZ>-B!(KZ))) 

898 V! (KZ>=fiBS(V! >:JZ)*COS(B! (JZ)-B! <KZ>» 

988B!<JZ)=«Fi!/2)<B!«Z)> 

918 S5!=S1! 

928S6!=S2! 

938 IF KX=1 THEN V!<K2)=5*VKKZ) 

948 IF J2=l THEN < ! !<JZ)=5*Y!<J2> 

958 RETURN 

968PRINT'Eai"i(,iX-l) 

978 PRINT" ,: 

988 INPUT"VELOCIT" , ;Y!<JZ) 

998V!<JZ>=fiBS<V!>J2)> 

1838 IF V!(JZ»iera THEN PRINT'VELOCITV TOO HIGH ": GOTO 988 

1818 IKPUT"ANGLE"i31!UZ) 

1828 OS 

1838 IF PfiS(Bl!(Ji:>»89 THEN PR1NTANGLE TOO BIG ": GOTO 588 

1848 PRINT 

1858 B!<JZ)=flBS<B (JZ)*?l!/18e) 

1868 GOTO 598 

1878 PRINT-JOCK Hi COORDINATES'; XZtt); CHR*(8); ", ■; YZ<1); CKR*<8);"." 

1888 FOR IE=2 TO K 

1898 D!=< SQR«YZa>-YZ(KZ)H2+<XZ<i>-XZ<HZ»t2»-7 

1188 D!(H2)=D! 

1118 IF D!<8 THEN D!(HZ>=8 

1128 PRIHT"BALLMHZ-i);"AT COORDINATES"; XZ(HZ); CHRS<8>;V;Y2<KZ); 

1138 PRINT -IT IS'iDKtTOi'FROH THE JACK' 

1148 NEXT HZ 

1158 PRINT 



■EXCELLENT SHOT! "; ; GOTO 1218 
"GOOD SHOOTING! "i : GOTO 1218 
■NICE TRV !V GOTO 1218 
■VECH! 0VER";INT<D!(P2Y38.48>; 



1168 IF D!<PZK18 THEN PRINT TA8U5);' 

1178 IF DKPZX28 THEN PRINT TRB(15)i" 

1188 IF DKPZX38 THEN PRINT TAB<15>;' 

1198 IF D!(PZ»56() THEN PRINT TAB<5>;" 

1288 IF DKPZ»58S< THEN PRINT-FEET AHAY!" 

1216 IF X2(PZ»XZ<i)THEN PRIKPLONG AND '; 

1228 IF XZ(PZ)<XZil)THEN PRINT'SHORT AW) -i 

1238 IF VX<PZ)>VM>THEI PRINT-TO THE LEFT. " 

1248 IF YOTOflffiOTOEH PRINT"TO TIE RIGHT. ■ 

1258 PRINT 

1268 RETURN 

1278 OS 

1288 PRINT-IN THIS GPfE VOU ROLL"; QMi "BALLS SUCCESSIVELV AT A TARGET" 

1298 PRINT-BALL ((TILED A JACK). THE OBJECT IS TO GET THE BflLLS AS aOSE" 

1388 PRINT-TO THE JACK OS POSSIBLE. TIE BflLLS ARE 18 CM. IN DIRHETER AND' 

1318 PRINT-ARE HE1GHTED SO THAT THEV ROLL IN A CURVE VOU HILL HAVE TO" 

1328 PRINT'ROLL TliEH AT AN ANGLE TO THE LINE FROH VOU AT COORDINATES 8,8" 

1338 PRINT-TO TIE JACK AT COORDINATES X,V. A POSITIVE ANGLE HILL HAKE" 

1348 PRINT-THE BULL CURVE aOCKHISE A NEGATIVE ANGLE HILL HAKE IT CURVE' 

1358 PRIHPRNTI-aOCKHISE. THE JACK IS 4 CH. HIDE AND HILL ROLL" 

1368 PRINTSTRfllGirr IF YOU HIT IT. BflLLS HIT BY VOIR THROWN BALL HAY' 

1378 PRINT-CURVE IN EITHER DIRECTION. ■ 

1388 PRINT 

1398 PRINT'HIHT. "RY AH INITIAL VaOCITY OF 583 AND ftN ABLE OF 18. " 

1488 PRINT 8 979, 'PRESS ANY KEV TO CONTINUE"; 

1418 IF IKKEVJ ="' THEN 1418 

1428 RETURN 

1438 END 
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A Boga is a bogus animal or mythical 
beast in the Hurkle family, Like a 
Hurkle, the Boga hides on a grid with 
dimensions upto16by 16. It sends out 
clues that tell you which direction to 
move from where you are to where it is. 
However, one major difference 
between a Boga and a Hurkle is the 
Boga is also seeking you out at the 
same time you are looking for it. You 
don't have to tell it which directions to 
go after each of its guesses to get 
closer to you. It apparently has a very 
good nose and can tell on its own. 
However, it plays fairly and gives you 
the first gusss, and then it takes its 
guess. Guesses continue alternately 
until one or the other, human or boga, 
find the opposing player. At the begin- 
ning of the game, you may print out the 
grid if you wish to make your guessing 
job slightly easier. Remember, direc- 
tions in this game correspond to the 
diagram; that is, north is up and east is 
to the right. 

This game was created by David 
Strickler. 



N 



W 



COPYRIGHT 1979 



BOGfl II 

CREATIVE COMPUTING 
— ols 



MORRISTORN, NJ 



DO VOU NEED INSTRUCTIONS? YES. 
els - 



THE BOGfl IS HIDING ON fl GRID (YOU SPECIFY THE LENGTH 
AND HIDTH). TRV TO GUESS HIS POSITION USING THE HINTS 
I GIVE VOU. EACH GUESS IS THO NUMBERS SEPARATED BV 
fl COTR PLEASE KEEP IN HIND THAT THE BOGA IS ALSO 
SEARCHING FOR VOU! !! ! 

HOW BIG SHOULD THE GRID BE (12 MAXIMUM)? IB. 
Cl8 



91234567899 

*********** 
*********** 
*********** 
*********** 
*********** 
*********** 
*********** 
*********** 
*********** 
*********** 
*********** 



THE GRID 



Ci8 ■ 

CHOOSE YOUR POSITION? 4,7 
THE BOGA PICKS HIS POSITION! 
GUESS » 1 ° 7,7. 

els ■ 

VOU GUESSED 7 , 7. 

HE'S MORE TO THE HEST. 
THE BOS) GUESSES 5 , 5. 



GUESS I 2 ? 7,5. 



ols ■ 



VOU GUESSED 7 , 5. 

HE'S MORE TO THE HEST. 
TIE BOGfl GUESSES 4 , 7. 

THE BOGfl GUESSED VOIR POSITION IN 2 GUESS(ES)! 

THE BOGA HAS AT 7 . 4. 

DO YOU HANT TO PLAY AGAIN? YES 

HON BIG SHOULD THE GRID BE (12 HAXIMUM)? 5. 

els 



9 12345 

9 ****** 

1 ****** 

2 ****** 

3 ****** ] THE GRID 

4 ****** 

5 ****** 



els ■ 

CHOOSE YOUR POSITION? 2,4 
THE BOGA PICKS HIS POSITION! 
GUESS i 1 ? 5,5. 

els ■ 

YOU GUESSED 5 . 5. 

HE'S BORE TO THE NORTHTCST. 
THE BOGA GUESSES 2 . 2. 



GUESS I 2 •> 2,3 



- els 



VOU GUESSED 2 , 1 

HE'S MORE TO THE WEST. 
THE BOGfl GUESSES 2 , 4. 

TIE BOGA GUESSED YOUR POSITION IN 2 GUESS(ES)! 

THE BOGA NAS AT 2 , 2. 

DO VOU HflNT TO RAY AGAIN? NO. 
els 
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10 OS: PRIKTM13, "BOM 
29 PRINT: PRINT TfB<7) "I 

28 clear m-. PRiirresee, 

46 IF LEFT$(»,DO"Y" Tl 

59 OS: PRIHT829, "BOGA 

68 PRINT " THE BOGfl IS I 

78 PRINT "AND WIDTH). Tl 

88 PRINT "I GIVE YOU. El 

98 PRINT "R COHHB. PLEfl! 

168 PRINT "SEARCHING FOR 

118 PRINT: PRINT 

128 U=8 

130 K=i 

146 F=8 

158 INPUT "HOH BIG SHOUU 

168 IF G>12 OR GO. THEN I 

178 5=G 

188 REN: PRINTS TIC GRID 

198 0S 

288 H$=" 

218 IF GOB THEN 278 

226 FOR X=1B TO G 

238 X1=INT<X/10) 

248 B«=f»tCHR$(Xl+48H" 

250NEXTX 

268 PRINT TAB(25>; A* 

278 P*=" 

288 FOR X=8 TO G 

298 Xi=X-INT(X/10>*18 

388 R$=»tCHRKXi+48H" 

318 NEXT X 

328 PRINT TAB(5);fl* 

338 A*=" 

348 FOR X=8 TO G 

358 fl$=fttf* " 

368 NEXT X 

378 FOR X=8 TO G 

388 PRINT USING Wi* ; 

398 NEXT X 

408 PRINT§INT(X/2«1)*64+; 

418 FOR IH TO 2568: NE 

428 H=i 

438 INPUT "CHOOSE VOUR PI 

448 IF X1>G OR Xl<8 OR V: 

458 PRINT "THE BOGfl PICK 

468 X2=lNT<RND<e>»0) 

478 Y2=INT(RND(8)«G> 

488 PRINT "GUESS 9"Ki 

498 INPUT X3.Y3: OS 

588 IF X35G OR X3<8 OR Y 

518 K=K+1 

528F=F+i 

538 IF K=18 THEN 1838 

540 IF R8S(X3-X2)*flBS(V3- 

558 PRINT "YOU GUESSED'X 

568 PRINT 

578 PRINT "HE'S HORE TO 



II" 

OPYRIGHT 1979 CREATIVE COWWING HORRISTONN, NJ" 

"; ; INPUT "DO YOU NEED INSTRUCTIONS"; 1$ 

EN CLS; GOTO 126 

I": PRINT 

IDING ON A GRID (YOU SPECIFY THE LENGTH" 

Y TO GUESS HIS POSITION USING THE HINTS" 

CH GUESS IS TWO NUWERS SEPARATED BY" 

E KEEP IN HIND THAT THE BOGfl IS ALSO" 

YOU!!!!" 



THE GRID BE (12 MAXIHUH)";G 
RINT: GOTO 158 



PRINTTAB(5);A* 



»2+18, CHR$(92>;" 
T: CLS 



• THE GRID". 



SITION'iXiYl 

>G OR Yl<6 THEN PRINT: GOTO 438 
HIS POSITION!" 



>G OR Y3<8 THEN PRINT: GOTO 488 



Y2>=8 THEN 1888 
","Y3iCHR$(8)i". 



HE "; 



588 IF X2=X3 THEN 638 

598 IF X2>X3 THEN £28 

688 PRINT "NORTH"; 

618 GOTO 638 

623 PRINT 'SOUTH"; 

639 IF Y2=Y3 THEN (58 

648 IF Y2>Y3 THEN 678 

658 PRINT "REST"; 

668 GOTO 698 

678 PRINT "EAST"; 

688 REH: LINES 788-978 AM) lUB-ii58=B0GAS GUESSING FORMULA 

698 PRINT" V IF H=8 THEN 728 

788X4=INT(.5*S) 

710 Y4=INT(. 5*5) 

728 PRINT "THE BOGfi GUESSES"X4", "Y4; CHRK8); * " 

738 1MJ+1 

746 PRINT "" 

758 SHBS(Yl-Y4)+«iS(Xl-X4) 

760 IF 0=8 THEN 970 

778 H=6 

788 IF Y4=Y1 THEN S:?8 

790 R=l 

838 IF HBS(Y4-Yi)<:: THEN 828 

818 GOSUB 1128 

828 IF Y4<Yi THEN 658 

838 Y4=INT(flBS<Y4-H)> 

848 GOTO 878 

858 Y4=INT<ABS<Y4+n» 

868 IF Y4>G THEN 1(98 

878 IF X4=X1 THEN »SB 

880 (K 

898 IF ABS(X4-X1)C! THEN 916 

900 GOSUB 1128 

910 IF X4<X1 THEN 948 

928 X4=IHT(ft8S(X4-fD) 

938 GOTO 968 

948 X4=INT(A8S<X4+li» 

958 IF X4>G THEN I'.iB 

960 GOTO 488 

978 PRINT "THE BOGB GUESSED YOUR POSITION IN"U"GUESS(ES) ! " 

988 PRINT 

998 GOTO 1040 

1830 PRINT "YOU GUBSED THE BOGA'S POSftlON IN"F"GUESS<ES) ! " 

1818 PRINT 

1828 GOTO 1848 

1038 PRIHT "YOU USED UP ALL OF YOUR GUESSES. " 

1848 PRINT "THE BOOfl HAS AT"X2". "Y2; CHRS(8); " " 

1858 PRINT 

1868 INPUT "DO YOU tiANT TO PLAY AGAIN"; 05 

1878 IF LEFT«Q*.i>="Y" THEN 128 

1888 GOTO 1140 

1898 Y4=. 5*G 

1168 GOTO 878 

1U0 X4=, 5*G 

1128 A=2 

1138 RETURN 

1148 END 
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Bombrun 



Bomb Run is an extremely accu- 
rate simulation of an aircraft drop- 
ping a bomb on a very small target. 
You may specify whether the aircraft 
is climbing, diving, and the angle in 
degrees. You may specify speed in 
feet per second; you may also 
specify at what point you wish to 
drop the bomb. The program gives 
you four passes over the target. 

A perfect hit is possible but 
extremely difficult to achieve. A hit 
within 300 feet of the target is 
considered "threatening" while hits 
outside of that range may be consid- 
ered a negative commentary on your 
knowledge of physics. 

This program was originally writ- 
ten by Jim Prelesnik. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 



■ cls • 



ELAPSED TIME. ... SECONDS VELOCITV 746. 899 FT/SEC 

PRESENT ANGLE LEVEL DEG ALTITUDE 118. 821 FEET 

RESULTANT ANGLE. . DEG LEVEL DISTANCE FROM SITE. . 4500 FEET 

ETA 6. 024S SEC 



MAINTAIN RESULTANT ANGLE? VES. STANDING BV. 
els 



ELAPSED TIME SECONDS VELOCITV 746. 899 FT/SEC 

PRESENT ANGLE LEVEL DEG ALTITUDE 118. 821 FEET 

RESULTANT ANGLE. . 8 DEG LEVEL DISTANCE FROM SITE. . 4500 FEET 

ETA. 6. 0249 SEC 



AIRSPEED? 880- 



■ Cls ■ 



ELAPSED TIME 1 SECOND 

PRESENT ANGLE LEVEL DEG 

RESULTANT ANGLE. . . DEG LEVEL 
ETA 4. 6250 SEC 

BOMB COMMAND? STAND BV_ 
els 



VELOCITV. 800. 000 FVSEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE. . 3708 FEET 



ELAPSED TIME 1 SECOND 

PRESENT ANGLE LEVEL DEG 

RESULTANT ANGLE. . DEG LEVEL 
ETA 4. 6250 SEC 



VELOCITV. 800. 00B FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE . 3700 FEET 



MAINTAIN RESULTANT ANGLE? N0. 
els 



STANDING BV. 



BOMB RUN 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



DO VOU NEED INSTRUCTIONS? V_ 



• els ■ 



VOU HAVE THE OPTION OF MAKING FOUR PASSES OVER THE TARGET 
HITH THE ABILITV TO DROP A BOMB ONCE DURING EACH OF 
THESE PASSES. ALTITUDE CHANGES MAVBE MADE THROUGH THE 
'CLIMB/DIVE' COMMAND BV PRINTING 'CLIMB' OR 'DIVE', FOL- 
LOWED BV A COMMA AND THE DESIRED ANGLE (IN DEGREES). NEW 
VELOCITIES (RANGING FROM 300 TO 980 FEET PER SECOND) MHV 
BE INPUT AFTER THE 'AIRSPEED' QUESTION MARK. 'CLIMB/DIVE' 
UNGUES, VHRVING FROM TO 15 DEGREES, MILL ADD AS SPEC- 
IFIED BV 'CLIMB' OR 'DIVE' COMMANDS TO VIELD A NET INCLIN- 
ATION/DECLINATION ANGLE BETWEEN TO 68 DEGREES, CLIMBING 
OR DIVING. A MINIMUM ALTITUDE OF 100 FEET MUST ALSO BE 
MAINTAINED. WILLFULLV EXCEEDING ANV OF THE MAX ,'MIN. SPECS 
HILL RESULT IN THE CRASH OF VOUR BOMBER. ALSO, A BOMB 

PRESS ANV KEV TO CONTINUE 

els 

COMMAND OF 'DROP' DURING A DIVE WILL GIVE VOUR BOMB AN 
INITIAL DOWNWARD VELOCITV, SHORTENING THE DROP TIME, AS A 
'CLIMB' COMMAND WILL LENGTHEN THIS TIME. THE BOMB WILL BE 
LAUNCHED IMMEDIATELY FOLLOWING THE MOST RECENT 'STATS' READ- 
OUT UPON 'DROP' COMMAND, AND WILL BE HELD FOR FURTHER 
POSITIONING INFORMATION UPON THE COMMAND 'STAND BV. THE 
TARGET IS 1 FOOT IN DIAMETER. GOOD LUCK! 

PRESS ANV KEV TO CONTINUE 
els 



ELAPSED TIME 8 SECONDS 

PRESENT ANGLE LEVEL DEG 

RESULTANT ANGLE. . 8 DEG LEVEL 

ETA 6. 0249 SEC 

BOMB COMMAND? STAND BV. 
els 



VELOCITV. 746. 899 FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE. . 4500 FEET 



ELAPSED TIME 1 SECOND 

PRESENT ANGLE LEVEL DEG 

RESULTANT ANGLE. . . 8 DEG LEVEL 
ETA 4. 6258 SEC 

'CLIMB/DIVE' COMMAND? CLIMB, 18. 
els 



VELOCITV. 888. 888 FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE . . 3708 FEET 



ELAPSED TIME 1 SECOND VELOCITV. 888. 000 FT/SEC 

PRESENT ANGLE. .... LEVEL 8 DEG ALTITUDE 118. 821 FEET 

RESULTANT ANGLE. . DEG LEVEL DISTANCE FROM SITE. . 3708 FEET 

ETA 4. 6258 SEC 



AIRSPEED? 680. 



cls • 



ELAPSED TIME 2 SECONDS VELOCITV. 600. 000 FVSEC 

PRESENT ANGLE CLIMB 10 DEG ALTITUDE 223. 089 FEET 

RESULTANT ANGLE 18 DEG CLIMBING DISTANCE FROM SITE. . 3189 FEET 
ETA 5. 2618 SEC 



BOMB COMMAND? DROP. 



• Cls ■ 



ELAPSED TIME 2 SECONDS VELOCITV. 608. 880 FVSEC 

PRESENT ANGLE. . . . CLIMB 18 DEG ALTITUDE 223. 009 FEET 

RESULTANT ANGLE 10 DEG CLIMBING DISTANCE FROM SITE. . 3109 FEET 
ETA. 5. 2618 SEC 



BOMB DROPPED. 

TIME TO EXPLOSION. . 
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8. 16732 SECONDS 
cls 




ELRPSED TIME 2 SECONDS VELOCITY 680. 800 FT/SEC 

PRESENT ANGLE. . . . C .1MB 18 DEG ALTITUDE 223. 089 FEET 

RESULTANT ANGLE 10 ■ €G CLIMBING DISTANCE FROM SITE. . 3109 FEET 
ETR 5. 2618 SEC 

THE BOMB LANDED 171 ;. 83 FEET BEVOND THE TARGET'S CENTER. 
VOU HAVE THUS FAR C IMPLETED 1 RUN. MOULD VOU LIKE TO 
MAKE ANOTHER PASS? L 

DURING VOUR 1-PASS 30MBRUN, VOU FAILED TO EVEN 
THREATEN THE TARGET WITH A HIT. BETTER LUCK NEXT TIME. 

LOOK OVER THE PHVSI ;S LAWS GOVERNING FALLING BODIES, 
AND RETURN TO PLAV 1GAIN SOON. 



■ els ■ 



10 OS. CLEAR 561 
20 F*=" HS. If 
38 PRIHT8412, "BOMB RUf 
40 PRINT: PRINT TRB<?) 
50PRINT0968, "; INPl 

69 X5=3880 

70 IFLEFT$(I*,1)="V" 1 
88 CLS: PRINT TflB(28); 
38 PRINT "VOU HAVE THE 
188 PRINT "WITH THE RBI 
110 PRINT "THESE PASSE! 
128 PRINT "CLIMB/DIVE- 
138 PRINT "LOME!) BV A I 
140 PRINT "VELOCITIES ' 
158 PRINT "BE INPUT BFT 
168 PRINT "ANGLES, VAR' 
178 PRINT "IFIEO BV 'CI 
188 PRINT 'ATIOH/DECLII 
190 PRINT "OR DIVING. 
208 PRINT "HMNTRINED. 
218 PRINT "HILL RESULT 
228 PRINT8979, "PRESS I 
238 IF !NKEVS=" THEN . 
248 PRINT "COMMAND OF 
258 PRINT ■INITIAL DOM 
260 PRINT "'CLUB' CON 
278 PRINT "LAUNCHED IK 
280 PRINT "OUT UPON 'W 
298 PRINT "POSITIONING 
388 PRINT "TARGET IS 1 
310 PRIHT0979, "PRESS 
328 IF INKEW=" THEN 
338 CLS: 71=1888 

340 22=1088 
358 23=1888 
368 24=1888 
370 PRINT8448, 
280 R=R+1 
398 Hl=8 
408 X2=8 
418 H3=8 
428 H4=0 
438 T-8 
448 Al=8 
458 A=8 
468 V1=RND(8) 

478 v=vi*ieee 

488 IF V<368 OR V)980 

498 V1=RKD(8) 

508 V=V1*598 

516 IF V<168 THEH498 

528 X=4588 

538E=X/V 

548 GOTO 1348 

558 141=8 



CR$= iTRI«»(5, 148)+CHR$(143) 



'COPVRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ" 
i "DO VOU NEED INSTRUCTIONS"; W 

€N 88 ELSE GOTO 338 
•B0H8 RUN"' PRINT 

DPTION OF MAKING FOUR PASSES OVER THE TARGET" 
„ITV TO DROP A BOHB ONCE DURING EACH OF" 
ALTITUDE CHANGES HAV BE HADE THROUGH THE" 

COMMAND BV PRINTING 'CLIMB' OR 'DIVE',FOL-" 
OfflA RH) THE DESIRED ANGLE (IN DEGREES). NET 
RANGING FROM 388 TO 988 FEET PER SECOND) HAV 
zR THE 'AIRSPEED' QUESTION HARK. 'CLIMB/DIVE'* 
IHG FROM TO 15 DEGREES, WILL ADD AS SPEC-" 
1KB' OR 'DIVE' COMMANDS TO ViaD A NET INCL1N-" 
ATION ANGLE BETWEEN 8 TO 68 DEGREES, CLIMBING" 
A MINIMUM ALTITUDE OF 168 FEET MUST ALSO BE" 

HILLFULLV EXCEEDING RNV OF THE MAX. /Mill SPECS" 
IN THE CRASH OF VOUR BOMBER ALSO, A BOMB" 
NV KEV TO CONTINUE": 
30 ELSE PRINT 1128, CHISG1); 
DROP' DURING A DIVE HILL GIVE VOUR BOMB AN" 
HARD VELOCITV, SHORTENING THE DROP TIME, AS A" 
AND HILL LENGTHEN THIS TIME THE BOHB HILL BE" 
EDIATELV FOLLOMNG THE HOST RECENT 'STATS' READ-" 
OP' COMMAND, AND HILL BE HELD FOR FURTHER" 
INFORMATION UPON THE COMMAND 'STAND BV' THE" 
FOOT IN DIAMETER GOOD LUCK!"' PRINT: PRINT 
NV KEV TO CONTINUE"; 
28 ELSE as 



TRINGf 64, 176) : PRINT0448, CHR$(188)i CHRK191); CHR«188>; 



WEN 468 



560 H2=8 
578 10=8 
588 H4=8 

598 PRINT6832, "BOW COMMAND"; CHRK31); 

608 INPUT C* 

618 IF LEFT$(C*,1-="S" THEN 628 ELSE IF LEFTKK, 1)="D" THEN 1628 

628 PRINT6864, "S ANDING BV. "; 

638 GOTO 678 

648 A=A-A1 

658 T=T-1 

660 GOTO 788 

678 PRINTC832, "BMNTA1N RESULTANT fWGLE"; 

688 INPUT P* 

690 IF LEFT*(PS,1>="N" THEN 780 ELSE IF LEFT*<P*,1)="V THEN 1858 

708 PRINT8832, "'CLIMB/DIVE' COMMAND"; CHR$G1); 

718 INPUT «,ffl. 

720 IF AK8 THEN ?50 

738 IF RD15 THEN 790 

740 GOTO 858 

758 PR1NT8832, "ASM INPUT MUST BE POSITVE IF HECESSflRV, CHANGE THE" 

768 PRINT "DIVE' COMMAND TO 'aiMB', OR VICE VERSA, " 

778 FOR 1=1 TO 2033: NEXT: PRINT8832, CHR$G1) 

788 GOTO 788 

798 W14U>i 

888 IF 141=2 THEN 2218 

810 PRINT8832, "VOUR BOMBER CAKNOT TOLERATE THE STRESS CAUSED BV ANGLE" 

828 PRINT "INPUTS EXCEEDING 15 DEGREES. RECONSIDER VOUR CHOICE " 

838 FOR 1=1 TO 2608: NEXT: PRINT8832, CHRJG1) 

848 GOTO 788 

850 IF LEFT$C«,1)="C" THEN 878 

868 A1=-A1 

878A=A+A1 

880 IF A<-60 THB> 910 

898 IF R068 THEN 988 

988 GOTO 1068 

918 H2=H2+i 

928 IF N2=2 THEN 2250 

930 PRIHT8832, "SOUR PRESENT 'DIVE' COMMAND HILL EXCEED THE MAXIMUM RE-" 

948 PRINT "SULTANT DM RNGLE OF 68 DEGREES, CAUSING AN IRREVERSIBLE* 

950 PRINT "NOSEDIVE RECONSIDER VOUR CHOICE. "; 

960 FOR 1=1 TO 2588: NEXT: PRINT0832, CHRfGi) 

970 GOTO 648 

980H3=H3+1 

998 IF H3=2 THEN 2290 

1088 PRINT0832, 'VOUR PRESENT 'CLIMB' COMMAND H1U EXCEED THE MAXIMUM RE-" 
1818 PRINT "SULTKfT CLIMB ANGLE OF 68 DEGREES, CAUSING VOUR ENGINES" 

1020 PRINT "TO FAIL AND VOUR PLANE TO CRASH. RECONSIDER VOUR CHOICE"; 

1038 FOR 1=1 TO 2588: NEXT: PRINT8832, CHRK31) 

1048 GOTO 648 

1050 REM 

1868 PRIHT0832, 'AIRSPEED"; CHRSG1); 

1678 INPUT V 

1888 IF V>988 THEN 1110 

1090 IF VG88 THEN 1158 

1188 GOTO 1218 

1118 PRINT8832, 'VOUR BOMBER ISN'T CAPABLE OF ATTAINING THAT VELOCITV. " 

1128 PRINT "INPUT AN AIRSPEED LESS THAN 988 FEET PER SECOND. "; 

1138 FOR 1=1 TO 2888: NEXT: PRINT0832, CHR*G1) 

1140 GOTO 1060 

1150 H44I4+1 

1168 IF H4=2 THEN 2330 

1178 PRIHTJ832, "IF VOUR VELOCITV ISN'T INCREASED IMMEDIATELY VOUR BOMBER" 

1188 PRINT "HILL FALL TO EARTH AND BE DESTROVED. "; 

1198 FOR 1=1 TO 2888: NEXT: PRINT8832, CHRJG1) 

1280 GOTO 1868 

1218 T=T+1 

1220B=A*3.1415S..'180 

1238 V=V+V*SIN<E> 

1240 IF V>188 THEN 1318 

1258 H5=H5+1 

1268 IF 145=2 THEN 2370 

1270 PRINTO832, "IF VOUR ALTITUTE ISN'T INCREASED IMMEDIATELV TO A HIN-" 

1288 PRINT "IN* OF 108 FEET, A CRASH IS IMMINENT. "; 

1298 FOR 1=1 TO 2888: NEXT: PRINT8832, CHRK31) 

1388 GOTO 648 

1318 X=X-V*COS«) 

1328 IF X<=8 THEN 2428 

1330 E=XAV*COS<B» 

134B IF NOT(T=i: THEN 1378 

1350 PRINT8512, "ELAPSED TIME 1 SECOND" 

1368 GOTO 1388 



20 



1378 PRINT6512, "; PRINT USING "ELAPSED TINE HI SECONDS": T 

1386 IF H0T(ftt=8) THEN 1416 

1399 PRINTI576, "PRESENT ANGLE .... LEVEL 6 DEG" 

1468 GOTO 1458 

THEN 1448 

: PRINT USING "PRESENT RNGLE DIVE « DEG"; -fil 



1418 IF A*="CLIHB' 

1428 PRINT6576, " ! 

1438 GOTO 1458 

1448 PRIHT8576, "' 

1459 IF fK8 THEN 1438 

1466 IF fl>8 THEN 1518 

1478 PRINT0648, "RESULTANT RNGLE 

1488 GOTO 1528 



PRINT USING "PRESENT ANGLE .... CLIMB H DEG'iPd 



8 DEG LEVa" 



1458 PRIHT6648, 
1588 GOTO 1526 
1518 PRINT0648, 
1520 PRINT8544, 
1538 PRINT0608, 
1548 PRINTK72, 
1558 PRINT800, 



PRINT USING "RESULTANT ANGLE. H DEG DIVING"; -HI 



"; ; PRINT USING 
""; : PRINT USING 
""; PRINT USING 
"J ' PRINT USING 
STR1N6»(6,32); 



'RESULTANT ANGLE tt DEG CLIMBING 1 

'VELOCITY. HI. f tt FT/SEC 

'ALTITUDE. Hit. M FEET' 

'DISTANCE FROM SITE . . Htt FEET' 



1568 XX=INK7-INKY/100))*64+INT(X/100)+1: IF ffi<8 THEN 1588 

1578 PRINT9XX, CR$; O0=XX: GOTO 1680 

1589 PRINTei5, 'VOUR AIRCRAFT IS OFF OUR RADAR"' FOR TI=i TO 1568: NEXT 

1598 PRINT86, CHRK30) 

1668 PRINTC'784, "; PRINT USING "ETA tt. Hit SEC"; E 

1610 PRINT 

1628 GOTO 556 

1639 PRINTS832, "BOMB DROPPED. '; CHR«3i) 

1648 T3=<SQR«Y*SIN(B»[2+64. 4*Y)+Y*SIN(B»/32 2 

1656 PRINT "TINE TO EXPLOSION... ■; T3; "SECONDS"" X4=X 

1669 M-V*C0S<B>*T3 
1676 X=INT<X*106>/188 

1680 ON ERROR GOTO 1738: IF X5>ABS(X5) THEN X5=ABS(X5)' 0A=4 

1698 FOR TI=6 TO B STEP .3: AL=«32 2*TI-V*SIN(B))[2-<V*SIN<B»[2>/64.4 

1799 DI=X4-V*C0S(B)*TI: RL=1NKAL/18> : AL=AL/16: DI=1NT(DI/188) 

1718 AL=Y-RL*188: fiL=AL/188: R£SET(i+0D*2, 24-OA*3) : SET(1+DI*2, 24-AL*3) 

1728 0D=D1: OA=AL. NEXT: IF DK8 OR ORC8 THEN 1798 ELSE 1740 

1738 RESUJE 1728 

1740 00=01*2+1: 0A=24-AL*3: SEKOD, OA-1) : SETCOD+L OA-1) 

1750 SEKOD+LOA): 5EK0D, OA-2) : SET(0D+2, Cfl-2) 

1766 SET(0D+2,0A): SET(0D,0A): FOR XS=1 TO 48: ICXT 

1778 RESET(OD,Ofl-l): RESET(OD+i, OA-1) : RESET(ODttOA): RESET < OD, OA-2) 

1780 RESET(0D+1 OA-2): RESEKOD+2, 08) : RESEKOD, Ofl) 

1790 IF X<- 5 THEN 1836 

1808 IF XX 5 THEN 1858 

1818 PRINT0832, "CONGRATULATIONS, YOU SCORED A PERFECT HIT. " 

1820 GOTO 2158 

1830 PRIHT8832, "THE BOMB LANDED" ;-X; "FEET BEYOND THE TARGET'S CENTER. " 

1840 GOTO 1868 

1858 PRINTO832, "THE BOMB LANDED"; X; 'FEET IN FRONT OF THE TARGET'S CENTER " 

1869 IF R=l THEN 1988 

1878 IF R=2 THEN 1928 

1886 IF R=3 THEN 1946 

1890 IF R=4 THEN 1966 

1969 21=ABS<X) 

1918 GOTO 2488 

1926 22=HBS(X) 

1938 GOTO 2588 

1346 Z3=ABS(X) 

1956 GOTO 2528 

1968 Z4=ABS(X) 

1978 Zl=Zie<l) :22=Z10(2) :23=Z10<3) :Z4=Z18<4) 

1988 FOR 1=1 TO 1500: NEXT 

1998 FOR M=i TO 4 

2808 FOR m= 4 TO 1 STEP-1 

2010 IF Z18<H)<Zie<Nl) THEN Z16(M)=X5 

2828 IF M=M1 AND M=i THEN 2949 

2838 NEXT Ml 



2040 NEXT M 

2658 PRINT 

2866 IF X5<= 388 THEN 2120 

2979 OS. PRINT "DURING YOUR"; Ri CHRK8); "-PASS 80MBRUN, YOU FAILED TO EVEN" 

2688 PRINT "THREATEN THE TARGET WITH A HIT. BETTER LUCK NEXT TINE " 

2896 IF LEFT*<R$,1)="N" THEN 2678 

2108 GOTO 2160 

2118 GOTO 2690 

2128 CLS: PRINT "DURING YOUR*; R; CHR*<8); "-PASS BONBRUN, YOU MANAGED TO STRIKE" 

2138 PRINT "WITHIN"; X5; "FEET OF THE TARGET. •> 

a40 PRINT 

2158 IF R$="NO" THEN 2676 

2166 PRINT "MOULD YOU LIKE TO RELOAD AND PLAY AGAIN"; 

2178 INPUT fit 

2188 IF LEFT*(A$,1)="Y" THEN 2198 ELSE GOTO 2678 

2138 R=0 

2288 GOTO 339 

2216 CLS: PRINT "YOU TORE THE MINGS OFF OF VOUR BOMBER BY EXCEEDING THE" 

2228 PRINT "MAXIMUN ANGLE INPUT OF 15 DEGREES. NEXT TIME TAKE MY ADVICE. " 

2238 H=l 

2248 GOTO 1370 

2250 CLS: PRINT "THE STEEP DIVE ANGLE DESIRED CAUSED AN IRREVERSIBLE NOSE-" 

2260 PRINT "DIVE, RESULTING IN THE DESTRUCTION OF VOUR BOMBER. " 

2270 H=l 

2286 GOTO 1378 

2238 CLS: PRINT "THE ENGINES OF YOUR BOMBER FAILED WILE CLIMBING THE" 

2388 PRINT "STEEP ANGLE INPUT DURING YOUR RNGLE COMMAND OPPORTUNITY. " 

2316 H=l 

2320 GOTO 1978 

2330 CLS: PRINT "THE VELOCITY OF YOUR BOMBER HAS INSUFFICIENT TO SUPPORT" 

2340 PRINT "ITS WEIGHT, AND CONSEQUENTLY IT CRASHED. " 

2356 H=i 

2368 GOTO 1978 

2376 CLS: PRINT "YOUR BOMBER FAILED TO MAINTAIN THE LOH ALTITUTE YOU DE-" 

2386 PRINT "SIRED RHD SOON CRASHED. " 

2398 PRINT "BETTER LUCK NEXT TIME " 

2480 H=l 

2410 GOTO 1376 

2420 CLS; PRINT "VOUR BOMBER JUST PASSED UP THE TARGET, AND NEEDLESS TO" 

2438 PRINT "SfiV, YOU NO LONGER THREATEN ITS EXISTHNCL " 

2440 PRINT 

2458 IF R=2 THEN 2569 

2466 IF R=3 THEN 2528 

2476 IF R=4 THEN 1978 

2488 et="SECOND" 

2490 GOTO 2530 

2568 Q*="THIRD" 
2516 GOTO 2530 

2528 Q*=*FOURTH AND FINAL" 

2538 IF R>1 THEN 2570 

2546 PRINT "YOU HAVE THUS FAR COMPLETED 1 RUN WOULD YOU LIKE TO" 

2550 PRINT "MAKE ANOTHER PASS"; 

2569 GOTO 2599 

2578 PRINT 'YOU HAVE THUS FAR COMPLETED"; Pj "RUNS. WOULD YOU LIKE TO " 

2580 PRINT "MAKE ANOTHER PASS"; 

2538 INPUT R* 

2666 IF LEFT«R»,1)="Y" THEN 2610 ELSE IF LEFTKRt, 1)="N" THEN 1370 

2610 CLS 

2628 PRINT "YOUR PLANE HAS CIRCLED, AND IS NOH IN POSITION TO MAKE" 

2630 PRINT "ITS "; QJ; " PASS. "• PRINT 

2648 PRINT "ENTER 'RETURN' NHEH YOU ARE READY. "; 

2658 IF IHKEY$=" THEN 2658 

2668 OS. GOTO 376 

2679 PRINT: PRINT "LOOK OYER THE PHYSICS LANS GOVERNING FALLING BODIES, " 

2688 PRINT "AND RETURN TO PLAY AGAIN SOON " 

2698 END 
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Bridge-it is a two-player pencil and 
paper logic game. One player is 
rep esented by X's, the other by O's, 
The X's and O's are arranged in an 
alte mating grid pattern so that X's may 
be joined to one another by a line 
without crossing an O and O's may be 
joir ed to one another without crossing 
an <. The object of the game is for the 
X's to draw a line from the top to the 
bottom of the board. The O's must 
cor nect a continuous chain from the 
right to the left of the board. Players 
mo/e alternately and may go any place 
on the grid. Any two of your symbols, 

BRIDGE IT 
COPYRIGHT : 979 CREATIVE COMPUTING MORRISTOWN, NJ 



■ CIS - 



DO VOU NEED INSTRI CTIONS? VES_ 
els 



THE OBJECT OF ' HIS GAME IS FOR VOU TO GO FROM THE LEFT 
COLUMN TO THE RIGI T COLUMN BY CONNECTING THE O'S. THE 
COMPUTER MUST GO I ROM THE TOP TO THE BOTTOM BV CONNECTING 
THE X'S. 

VOU MAKE VOUR I OVES BV TVPING IN THE COORDINATES <X, V) OR 
(COLUMN, ROW) OF ' HE '0' VOU WISH TO MOVE FROM AFTER THE 
COMPUTER TYPES: 

VOUR MOVE FROM' 
AND BV TYPING IN ' HE COORDINATES OF THE '0' VOU WISH TO MOVE 
TO AFTER THE COMF1 TER TVPES: 

TO? 

PRESS ANV KEY TO CONTINUE 

els 

VOU CAN HOVE EITHf R VERTICALLV OR HORIZONTALLY BUT NOT 
DIAGONALLY. VOU ( ANNOT MOVE VERTICALLY IN EITHER THE FIRST 
COLUMN OR THE THII TEENTH COLUMN. THE COMPUTER MILL MOVE FIRST. 



NOTE. ALL MOVES MIST BE ENTERED 


IN AS A TWO DIGIT NUMBER 


SUCH AS: 
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PRESS ANY KEV TO CONTINUE 
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either X's or O's, may be connected 
, together on a given move. 

In this particular version of the game, 
the computer is your opponent. The 
computer plays the X's and you play 
the O's. The computer moves first, 
which gives it a very slight advantage. If 
you find it is too formidable an oppo- 
nent you may wish to modify the 
program to allow the player to move 
first. At any point during the game you 
may ask for a printout of the board and 
see how the play is progressing. 

This program was written by Michael 
Kass, Miles Barel, and Alan Segal. 



• els ■ 



1 2 3 4 5 6 7 8 9 10 11 12 13 
13 X X X X X X 

12 0000000 

11 X X X X X X 

10 0000000 
9 X X X X X X 
80000000 
7 X X X X X X 
60000000 
5 X X X X X X 
40.00 

3 XX X X X X 
2000 

1 X X X X X X 
INVALID MOVE — TRY AGAIN 

I MOVE FROM 4 , 1 TO 4,3 

els 

1 2 3 4 5 6 7 8 9 10 11 12 13 

13 X X X X X X 

12 0000000 

11 X X X X X X 

10 0000000 
9 X X X X X X 
80000000 

7 X X X X X X 
60 0..0 
5 X X X X X X 

4 C .. 

3 X X X X X X 

2 C . 

1 X X X X X X 
VOUR MOVE FRCM — > 03, 06 TO — > 05, 06 

I MOVE FROM 4 , 1 TO 4.3 

els 

A 2 3 4 5 6 7 8 9 10 11 12 13 

13 X X X X X X 

12 

11 X X X X X X 

10 

9 X X X X X X 

8 000000 
7 X X X X X X 
SO 0..0 

5 X XX X X X 

4 ... 

3 X X X X X X 

2 0.0 
1 X X X X X X 

VOUR MOVE FROM > 05, 04 TO > 05, 06 

I MOVE FROM 6 , 5 TO 6,7 
els 
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els 

1 2 3 4 5 S 7 8 9 10 11 12 13 
O X X X X X X 

12 0000000 
11 X X X X X X 

IB 0000000 
9 X X X X X X 

80 0.0 

7 X X X X X X 

60 ... . 

5 X XX X X X 

40.0.0.0 

3 XX X X X X 

20.0.0 

1 X X X X X X 

VOUR MOVE FROM > 05, 08 TO — > 07, 08 

I MOVE FROM 6 , 3 TO 6,5 



■ els • 



1 2 3 4 5 6 7 8 9 10 11 12 13 
13 X X X X X X 

12 0000000 

11 X X X X X X 

18 0,0 

9 X X X X X X 

80 0.00 

7 X X X X X X 

60 .. . . 

5 X XX X X X 

4 0. ..0.0.0 
3 XX X X X X 
20.0.0 
1 X X X X X X 

VOUR MOVE FROM — > 07, 10 TO — > 69, 18 
I MOVE FROM 8 , 7 TO 8,9 
els 

1 2 3 4 5 6 7 8 9 10 11 12 13 

13 X X X X X X 

12 0000000 

11 X X X X X X 

10 0,00 
9 X X X XX X 
80 0.0.0 
7 X X X X X X 
60 0...00 

5 X X X X X X 
40. .0.0.0 
3 XX X X X X 
20.0.0 
1 X X X X X X 

VOUR MOVE FROM — > 09,68 TO > 09,10 

I MOVE FROM 10 , 9 TO 10 , 11 

els 

1 2 3 4 5 6 ? 8 9 10 11 12 13 

13 X X X X X X 

12 0000000 

11 X X X X X X 

10 0..00 

9 X X X XX X 

80 0..000 

7 X X X , X X X 

60 0.0.0 

5 X XX X X X 

40, .000 

3 XX X X X X 

2000 

1 X X X X X X 

VOUR MOVE FROM — > 07, 06 TO — > 07, 08 

I MOVE FROM 10 , 7 TO 10 , 9 

els 



els 

1 2 3 4 5 6 7 8 9 10 11 12 13 
13 X X X X X X 

12 ... 

11 X X X X X X 

10 0...0.0 

9 X X X XX X 

80 0...0.00 

7 X X XX X X 

60 0...0.00 

5 X XX X X X 

40. .00 

3 XX X X X X 

2000 

1 X X X X X X 

VOUR MOVE FROM — > 09, 12 TO — > 11, 12 

I MOVE FROM 8 . 5 TO 8,79 



■ els ■ 



1 2 3 4 5 6 7 8 9 10 11 12 13 
13 X X X X X X 

12 ... . 

11 X X X X X X 

10 0...0.0 

9 X X X XX X 

80 0.00.0 

7 X X X . X X X 

60 0...0.00 

5 X XX X X X 

40, .0,00 

3 XX X X X X 

200.0 

1 X X X X X X 

VOUR MOVE FROM > 09, 12 TO > 11, 12 

I WIN! .' ! ! 

els 



10 CLS: PRINT0411, "BRIDGE IT" 

20 PRINT: PRINT TAB(7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINT0960, ""; : INPUT "DO YOU NEED INSTRUCTIONS": 1$ 

40 1=1-2 

50 IF LEFT*(I$,1)="N" THEN CLS: GOTO 290 

60 CLS: PRINT TAB(26); "BRIDGE IT": PRINT 

70 PRINT " THE OBJECT OF THIS GAME IS FOR VOU TO GO FROM THE LEFT" 

80 PRINT "COLUMN TO THE RIGHT COLUMN BV CONNECTING THE O'S THE" 

90 PRINT "COMPUTER MUST GO FROM THE TOP TO THE BOTTOM BV CONNECTING" 

100 PRINT "THE X'S. " 

110 PRINT " VOU MRKE VOUR MOVES BV TYPING IN THE COORDINATES (X, V) OR" 

120 PRINT "(COLUMN, ROW) OF THE '0' YOU WISH TO MOVE FROM AFTER THE" 

130 PRINT "COMPUTER TYPES:" 

140 PRINT " YOUR MOVE FROM?" 

150 PRINT "AND BV TYPING IN THE COORDINATES OF THE '0' VOU WISH TO MOVE" 

1SB PRINT "TO AFTER THE COMPUTER TYPES:" 

170 PRINT " TO?" 

180 PRINT9979, "PRESS ANY KEY TO CONTINUE" : 

190 IF INKEY*="" THEN 190 ELSE PRINT8128, CHRSOl); 

200 PRINT "VOU CAN MOVE EITHER VERTICALLY OR HORIZONTALLY, BUT NOT" 

210 PRINT "DIAGONALLY. YOU CANNOT MOVE VERTICALLY IN EITHER THE FIRST" 

220 PRINT "COLUMN OR THE THIRTEENTH COLUMN. THE COMPUTER WILL MOVE FIRST " 

230 PRINT 

240 PRINT "NOTE: ALL MOVES MUST BE ENTERED IN AS A TWO DIGIT NUMBER" 

250 PRINT "SUCH AS:" 

260 PRINT " 02, 04 (FOR 2, 4 ETC. ) 

278 PRINT8979, "PRESS ANY KEY TO CONTINUE"! 

280 IF INKEY*=»" THEN 280 ELSE CLS 

298 DIM X(20, 20) 

300 DIM 0(20,20) 
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310 DIM T(28,28) 

329 FOR X=l TO 13 STEP 2 

230 FOR V=2 TO 12 STEP 2 

340 0<X, V)=l 

350 X<V, X)=l 

368 NEXT V 

378 NEXT X 

380 CLS. PRINT THB(IB); FOR A=l TO 13: PRINT USING "MB"; A; 

398 NEXT: PRINT: FOR R=13 TO 1 STEP -2: PRINT TAB(8>; 

400 PRINT USING "#« X";fl; : FOR fll=l TO 5: PRINT" X") 

410 NEXT Al: PRINT: PRINT TAB<8); : IF fl=l THEN 440 

420 PRINT USING "## 0"; 0-1; : FOR Al=l TO 6. PRINT" 0"; 

438 NEXT HI: PRINT 

440 NEXT A 

450 IF EOS THEN 470 

460 GOTO 24S0 

470 GOSUB 1010: REM COMPUTER HOVE 

488 GOSUB 670: REM COMPUTER WIN SUBROUTINE 

498 IF E=5 THEN 450 

500 GOSUB 2180: REM PLflVER WIN SUBROUTINE 

518 PRINTC896, "VOUR MOVE FROM — > "i CHR*(30); 

520 F=0: FOR X9=l TO 8 STEP -1 

530 fW=INKEW: IF H*="" THEN 530 

540 F=F+VflL<8*)*10tX9: PRINT A*; : NEXT X9: PRINT","; 

550 G=8: FOR X9=l TO STEP -1 

568 A*=INKEV$: IF A*=" THEN 560 

570 G=G+VAL(fi*)*10[X9: PRINT Mi . NEXTX9 

580 PRINTC928, "TO — > "; CHR*(30); 

590 F1=0: FOR X9=l TO STEP -1 

680 R*=INKEV$: IFA*="" THEN 600 

610 F1=F1+VAUA*)*10CX9: PRINT A*; NEXT X9: PRINT"."; 

620 01=0: FOR X9=l TO STEP -1 

630 A*=INKEV*: IF A*=" THEN 630 

640 G1=G1+VHLCR*)*10[X9: PRINT A*; : NEXT X9 

650 GOSUB 1590: REM ERROR AND CHANGE BOflRD SUBROUTINE 

660 GOTO 450 

670 REM WIN SUBROUTINE 

680 REM FIRST TEST 

698 FOR H=l TO 11 STEP 2 

760 J=12 

718 IF 0<H, J)=3 THEN 740 

720 NEXT H 

730 GOTO 1000 

740 FOR 1=1 TO 11 STEP 2 

750 J=2 

768 IF 0(I,J>=3 THEN 790 

770 NEXT I 

780 GOTO 1008 

790 REM OTHER TESTS 

880 J=J+2 

810 IF J=12 THEN 970 

828 IF 0<I,J)=3 THEN 900 

838 IF 0(1+1, J+l)=2 THEN 920 

848 IF I-K0 THEN 870 

856 IF 0(1-1, J-l)=2 THEN 950 

860 IF X(I+1,J+1)=2 THEN 928 

870 IF I-K0 THEN 1000 

888 IF X(I-1,J-1) THEN 928 

890 GOTO 770 

900 J=J+2 

910 GOTO 810 

920 J=J 

93B 1=1+2 

940 GOTO 810 

950 J=J 

960 GOTO 1000 

970 PRINTP960, "I WIN!!!!"; CHR$(30>; 

980 GOTO 2490 

990 E=5 

1600 RETURN 

1010 REM COMPUTER MOVE SUBROUTINE 

1828 B=B+1 

1030 IF B>1 THEN 1080 

1040 0(1,2>=3: PRINT0783, CHR*(143>; 

1850 PRINT0960, "I MOVE FROM 2,1 TO 2,3"; 

1060 B1=B1+1 

1070 IF B1>1 THEN 1260 

1080 FOR C=3 TO 11 STEP 2 

1090 T<C, C+1>=1 

1100 T(C-2,C+1>=1 

1118 GOTO 1160 



1120 NEXT C 

1138 T(2,3)=3 

1140 T(7, 12)=2 

1150 GOTO 1260 

1160 FOR Q=C+3 TO 12 STEP 2 

1170 T(C-2, Q)=2 

1180 T<C-1, Q+l)=2 

1190 T(C-1, Q-l)=2 

1200 NEXT Q 

1218 FOR S=C TO 3 STEP -2 

1228 T(C-1,S>=3 

1230 T<C,S-1>=3 

1248 NEXT S 

1250 GOTO 1120 

1260 IF F>F1 THEN 1320 

1270 IF FOF1 THEN 1290 

1280 IF G>G1 THEN 1320 

1298 X=F 

1308 V=G 

1310 GOTO 1340 

1328 X=F1 

038 V=G1 

1340 IF T(X, V)=0 THEN 1580 

1350 IF FOF1 THEN 1370 

1368 ON KX-1, V+l) GOTO 1380, 1458, 1520- 
1370 ON T<X, V) GOTO 1380, 1450, 1520 

1388 IF X=V-1 THEN 1420 

1390 0(X+2,V)=3: PRINT8<14-V)*64+15+<X+i>*3, CHR*(143); 

1480 PRINT0960, "I MOVE FROM "; X+3; ", "; V-li "TO "; X+3; ", "; V+l; 
1410 GOTO 1580 

1428 0(X-2, V)=3: PRINT8<14-V>*64+15+(X-3>*3, CHR*<143>; 

1430 PRINT0960, "I MOVE FROM "; X-l; ", "; V-li "TO "; X-l; ", "; V+l; 
1440 GOTO 1588 

1450 IF X(X-1, V+l)=3 THEN 1498 

1468 X(X+1,V-1)=2: PRINT8(15-V)*64+14+X*3, STRING*(3, 140); 

1478 PRINT0960, "I MOVE FROM "; X+l; ", "; V-li "TO "; X+3; ", "; V-l; 
1480 GOT01580 

1498 0<X-2,V+2>=3: PRINTC(12-V)*64+15+(X-3)*3, CHR*(143)i 

1500 PRINT0960, "I MOVE FROM "; X-l","; V+l; "TO "; X-l; ", "; V+3; 
1518 GOTO 1580 

1520 IF XCX-1, V+l)=3 THEN 1560 

1538 X(X-1,V+1)=2: PRINTI?(13-V)*64+14+(X-2)*3, STRING$(3,140>; 

1540 PRINT9960, "I MOVE FROM "; X-l; ". "; V+l; "TO "; X+l; ", "; V+l; 
1550 GOTO 1580 

1560 0(X,V)=3: PRINT0(14-V)*64+15+(X-1)*3, CHR*(143>; 

1570 PRINT@960, "I MOVE FROM "i X+l; ", "; V-l; "TO "; X+l; ". "; V+l; 

1588 RETURN 

1598 F=INT(F>: G=INT(G): G1=INT(G1>- F1=INT(F1) 

1600 IF FOF1 THEN 1650 

1618 IF F=l THEN 2000 

1620 IF F=13 THEN 2800 

1630 IF Fl=13 THEN 2088 

1640 IF G=G1 THEN 2088 

1650 IF F/2=INT(F/2> THEN 2808 

1668 IF F>13 THEN 2088 

1670 IF G>12 THEN 2808 

1688 IF G/20INT(G/2> THEN 2008 

1698 IF FOINT(F) THEN 2800 

1788 IF F<1 THEN 2800 

1710 IF G<1 THEN 2008 

1720 IF Fl/2=INT<Fl/2) THEN 2880 

1730 IF Fl>13 THEN 2088 

1748 IF Gl>13 THEN 2088 

1750 IF G1/20INT (Gl/2) THEN 2000 

1760 IF FlOINT(Fl) THEN 2000 

1770 IF GK1 THEN 2888 

1780 IF F=F1 THEN 1908 

1798 IF GOG1 THEN 2000 

1800 IF HBS(F-F1)<>2 THEN 2800: REM PRINT ERROR 

1810 IF F>F1 THEN 1860 

1820 IF 0(F, G)=2 THEN 2888 

1830 IF 0(F, G)=3 THEN 2O00 

1848 0(F,G)=2: PRINTI?(14-G)*64+14+(F-1>*3, STRING*<3, 140); 

1850 GOTO 2178: REM RETURN 

1860 IF 0<F1,G1>=2 THEN 2000 

1870 IF 0<F1, Gl)=3 THEN 2000 

1880 0(F1,G1>=2: PRINTO(14-Gl)*64+14+(Fi-l>*3, STRING*(3,140>; 

1890 GOTO 2170: REM RETURN 

1988 IF RBS(G-Gi)<>2 THEN 1908: REM PRINT ERROR 

1910 IF G>G1 THEN 1960 

1928 IF X(F-1, Q+l)=2 THEN 2880 
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1936 
1948 
1950 
i960 
1976 
1980 
1996 
2666 

2010 

2020 
2030 
2040 
2650 
2060 



2168 
2110 
2120 
2136 
2140 
2150 
a68 
2170 
2180 
2190 
2200 
2210 



IF XCF-1, G+l)=3 THEN 2600 2220 

X<F-1,G+1)=3: PRINT@<13-G)*64+15+<F-2>*3, CHR*(143>; 2238 

GOTO 2170: REM RETURN 2240 

IF X<F1-1, Gl+1>=2 THEN 2006 2250 

IF X<F1-1, Ql+1)=3 THEN 2000 2260 

X(F1-1,G1+1>=3: PRINT§<13-Gl)*64+15+<Fl-2)*3, CHR*(143>; 2270 

GOTO 2170: REM RETURN 2280 

PRINT0896, "INVALID MOVE — TRV AGAIN"; CHR«30>; 2290 

FORfl=lTO1000: NEXT 2300 

PRINT0896, "VOUR MOVE FROM — > "; CHR$<30>; 2310 

F=0: FOR X9=l TO STEP -1 2320 

A*=INKEV$: IF A*="" THEN 2040 2330 

F=F+VRL<flmi0CX9: PRINT fl$; : NEXT X9: PRINT","; 2340 

G=0: FOR X9=l TO STEP -1 2350 

R*=INKEV$: IF A*=" THEN 2070 2360 

G=G+VRL(R*)*10CX9: PRINT R*; : NEXTX9 2370 

PRINT0926, "TO — > "; CHR*<30>; 2380 

Fl=8: FOR X9=l TO STEP -1 2398 

fl*=INKEV$: IFA*="" THEN 2110 2400 

Fl=Fl+VflLCR$)*10CX9: PRINT fl$; . NEXT X9: PRINT","; 2410 

G1=0: FOR X9=l TO STEP -1 2429 

A$=INKEV$: IF R$=" THEN 2140 2430 

G1=G1+VRL<R*)*18[X9: PRINT fit; : NEXT X9 2440 

GOTO1590 2450 

RETURN 24S0 

REM PLRVER WIN ROUTINE 2470 

FOR H=l TOll STEP 2 2480 

1=12 2490 
IF X(I,H)=3 THEN 2246 



NEXT H 
GOTO 2486 

FOR J=l TO 11 STEP 2 

1=2 

IF X<LJ>=3 THEN 2290 
NEXT J 
GOTO 2480 

1=1+2 

IF 1=12 THEN 2440 

IF X<I,J>=3 THEN 2380 

IF X<I+1,J+1>=2 THEN 2400 

IF J-K0 THEN 2360 

IF X<I-1,J-1>=2 THEN 2420 

IF 0(1+1, J+l)=2 THEN 2400 

IF J-K0 THEN 2480 
GOTO 2300 
1=1+2 
GOTO 2368 
J=J+2 
GOTO 2300 
J=J-2 
GOTO 2300 

IF 0(1,2)02 THEN 2480 

PRINT5960, "VOU WIN !!' CONGRRTULRTIONS! ! ! 
GOTO 2490 
E=5 
RETURN 

FOR XX=1 TO 2006: NEXT XX: END 



CHR$(31); 
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In this (jame of high adventure, your 
object is :o travel 200 miles across the 
great Got i Desert. You're being chased 
by a tribe of knock-kneed pygmies. 
You have one quart of water which will 
last you for six drinks; it may be 
renewed f you find an oasis or, if you 
are founc by another traveller, you may 
get an additional half-quart of water. 
During your journey you encounter all 
types of hazards such as sand storms, 
wild Berbers and possible injuries to 
your carrel. 

Warning: this is a very hazardous and 
addictive game. It is also very difficult 
to win. In ten plays of the game, the 
maximum distance we were able to 
travel wai; 159 miles, and in many cases 
we managed to make only seven or 
eight mif-js before one of the hazards 
caused ojr demise. 

This game was submitted by the 
Heath Users Group. 



CAMEL 
COPVR GHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 



DO VOU NEED :NSTRUCTI0NS? YES. 



cls • 



WELCOME T i CAMEL THE OBJEST IS TO TRAVEL 
280 MILES AC MSS THE GREAT GOBI DESERT. 
R TRIBE OF K I0CK-KNEED PIGMIES WILL BE CHASING VOU. 
VOU WILL BE : ISKED FOR COMMANDS EVERV SO OFTEN. 

VOU HAVE WE QUART OF WATER WHICH WILL LAST VOU SIX DRINKS. 
VOU MAVE REN X VOUR WATER SUPPLV COMPLETELV AT AN OASES. 
VOU GET A HA .F A QUART IF FOUND BV HELP 
IF HELP DOES NOT FIND VOU AFTER COMMAND SIX, VOU LOSE. 
GOOD LUCK AN > GOOD CAMELING ! ! 

PRESS ANV KEV TO CONTINUE 

els 



#1 DRINK FRO I CANTEEN 
12 AHEAD MOD! RATE SPEED 
#3 AHEAD FULl SPEED 



#4 STOP FOR THE NIGHT 
85 STATUS CHECK 
#6 HOPE FOR HELP 



VOU ARE IN Tl E MIDDLE OF THE DESERT AT AN OASIS. 
VOU HAVE TRA< ELLED 8 MILES ALTOGETHER. 
HHAT IS YOUR COMMAND? 3. 
els 



«. DRINK FRO I CANTEEN 
82 AHEAD MODI RATE SPEED 
#3 AHEAD FULl SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



VOUR CAMEL I: BURNING ACROSS THE DESERT SANDS. 
VOU HAVE TRA 1 ELLED 4 MILES ALTOGETHER. 
WHAT IS VOUR COMMAND? 2_ 



■ els • 



#1 DRINK FRO ! CANTEEN 
#2 AHEAD MOD! RATE SPEED 
13 AHEAD FULl SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



VOU HAVE ARR VED AT AN OASES 

FILLING VOUR CANTEEN AND EATING FIGS. 
VOUR CAMEL L KES THIS PACE. 
VOU HAVE TRA ! 'ELLED 8 MILES ALTOGETHER. 
UHRT IS VOUR COMMAND? 2. 



VOUR CAMEL IS 



CIS ■ 
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ola ■ 

#1 DRIN< FROM CANTEEN 
82 AHEAD MODERATE SPEED 
#3 AHEAD FULL SPEED 

VOUR CAIIEL LIKES THIS PACE. 
THE PVGNIES HAVE CAPTURED VOU. 
THEIR FAVORITE DISH ! ! ! ! ' 
WANT A HEM CAMEL AND A NEW GAME 

ols 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
86 HOPE FOR HELP 



CAMEL AND PEOPLE SOUP IS 



VES. 



#1 DRIN -■: FROM CANTEEN 
#2 AHEAP MODERATE SPEED 
#3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



VOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS. 
VOU HAVE TRAVELLED MILES ALTOGETHER. 
HHAT IS VOUR COMMAND? 3. 
els 



81 DRINK FROM CANTEEN 
»2 AHEAD MODERATE SPEED 
13 AHEAD FULL SPEED 



84 STOP FOR THE NIGHT 

85 STATUS CHECK 

86 HOPE FOR HELP 

VOUR CAMEL IS 



VOU HAVE ARRIVED AT AN OASES 

FILLING VOUR CANTEEN AND EATING FIGS. 

VOUR CAMEL IS BURNING ACROSS THE DESERT SANDS. 

VOU HAVE: TRAVELLED 6 MILES ALTOGETHER. 

WHAT IS VOUR COMMAND? 3. 

ols 

81 DRIN< FROM CANTEEN 
#2 AHEAD MODERATE SPEED 
13 AHEAD FULL SPEED 



84 STOP FOR THE NIGHT 

85 STATUS CHECK 

86 HOPE FOR HELP 



VOUR CRUEL IS BURNING ACROSS THE DESERT SANDS. 
VOU HAVE TRAVELLED 16 MILES ALTOGETHER. 
HHAT IS VOUR COMMAND? 2- 

ols 

81 DRIN( FROM CANTEEN 
#2 AHEAD MODERATE SPEED 
83 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
85 STATUS CHECK 
#6 HOPE FOR HELP 



VOUR CRUEL LIKES THIS PACE. 

WARNING GET A DRINK 

THE PVGI1IES ARE 16 MILES BEHIND VOU. 
VOU HAVE TRRVELLED 18 MILES ALTOGETHER. 
HHAT IS VOUR COMMAND? 1_ 

0l8 

81 DRINC FROM CANTEEN 

12 AHEAD MODERATE SPEED 

13 AHEAD FULL SPEED 



BETTER HATCH FOR AN OASES 
HHflT IS VOUR COMMAND? 4. 



84 STOP FOR THE NIGHT 

85 STATUS CHECK 

86 HOPE FOR HELP 




81 DRINK FROM CANTEEN 
12 AHEAD MODERATE SPEED 
#3 AHEAD FULL SPEED 



84 STOP FOR THE NIGHT 

85 STATUS CHECK 

86 HOPE FOR HELP 



VOUR CA1EL LIKES THIS PACE. 
THE PVGHIES ARE 14 MILES BEHIND VOU. 
VOU HAVE TRAVELLED 3? MILES ALTOGETHER. 
WAT IS VOUR COMMAND? 5- 

ols 

81 DRINK FROM CANTEEN 
»2 AHEAD MODERATE SPEED 
83 AHEAD FULL SPEED 



84 STOP FOR THE NIGHT 

85 STATUS CHECK 

86 HOPE FOR HELP 



VOUR CAIIEL HAS 2 GOOD DAYS LEFT. 

VOU HAVE 5 DRINKS LEFT IN VOUR CANTEEN. 

VOU CAN GO COMMANDS WITHOUT DRINKING. 

BETTER HATCH FOR AN OASES ! 

WHAT IS VOUR COMMAND? 6_ 



CI8 - 



81 DRINC FROM CANTEEN 
12 AHEAD MODERRTE SPEED 
«3 AHEAD FULL SPEED 



84 STOP FOR THE NIGHT 

85 STATUS CHECK 

86 HOPE FOR HELP 



VOU DIB) IN THE DESERT. 

THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL!! 

KANT A HEM CAMEL AND A NEW GAME ? NO. 

els 



10 CLS. PRINT0413, "CAMEL" 

28 PRINT PRINT TflB<?) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOWN, NJ" 

30 PRINTS968, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

40 IF LEFWI$,1)="N" THEN CLS: GOTO 180 

50 CLS: PRINT TABG0); "CAMEL": PRINT 

60 PRINT " WELCOME TO CAMEL. THE OBJEST IS TO TRAVEL" 

70 PRINT "200 MILES ACROSS THE GREAT GOBI DESERT. " 

88 PRINT "A TRIBE OF KNOCK-KNEED PIGMIES WILL BE CHASING VOU. " 

98 PRINT "VOU WILL BE ASKED FOR COMMANDS EVERV SO OFTEN. " 

100 PRINT 

118 PRINT " VOU HAVE ONE QUART OF WATER WHICH WILL LAST VOU SIX DRINKS. " 

126 PRINT "VOU KAY RENEW VOUR HATER SUPPLV COHPLETELV fiT AN OASIS. " 

130 PRINT "VOU GET A HALF A QUART IF FOUND BV HELP " 

146 PRINT "IF HELP DOES NOT FIND VOU AFTER COMMAND SIX, VOU LOSE. " 

150 PRINT "GOOD LUCK AND GOOD CAMELING i ' " 

160 PRINT0979, "PRESS HNV KEV TO CONTINUE"; 

170 IF INKEY*="" THEN 178 ELSE CLS 

180 PRINT "#1 DRINK FROM CANTEEN"; TABQ2); "#4 STOP FOR THE NIGHT" 

190 PRINT »#2 AHEAD MODERATE SPEED"; THBG2); "#5 STATUS CHECK" 

200 PRINT "#3 AHEAD FULL SPEED"; TAB<32>; "#6 HOPE FOR HELP" 

210 PRINT 

220 PRINT "VOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS. " 

230 GOSUB 1550 

240 IF C>199 THEN 1090 

250 Z=2-l 

260 IF 2=1 THEN PRINT " WARNING GET A DRINK" 

270 IF Z<0 THEN 1490 

288 P=P+1 

290 X2=INT<18*RNDC8>+2. 5) 

300 IF O>0 THEN S00 

310 IF P<4 THEN 388 

320 C1=C1+X2 

338 IF CKC THEN 370 

348 PRINT "THE PVGMIES HAVE CAPTURED VOU. CAMEL AND PEOPLE SOUP IS" 

358 PRINT "THEIR FAVORITE DISH !!!!'" 

360 GOTO 1448 

378 PRINT "THE PVGMIES ARE"; C-Cl; "MILES BEHIND VOU. " 

380 PRINT "YOU HAVE TRAVELLED"; C, "MILES ALTOGETHER. " 

398 PRINT "WHAT IS VOUR COMMAND"; 

400 INPUT V 

418 PRINT0256, CHRSOl); 

420 ON V GOTO 690, 498, 560, 630, 660 

430 T=INT<18*RND<8>> 

448 IF TO! THEN 1080 

450 PRINT "HELP HAS FOUND VOU IN A STATE OF UNCONSCIOUSNESS. " 

460 S=3 
470 2=4 
488 GOTO 240 
498 F=F+1 

500 IF F=8 THEN 1070 
510 GOSUB 740 

520 X1=INT(10*RND(0)) 

530 C=C+X1 

548 PRINT "VOUR CAMEL LIKES THIS PACE. " 

550 GOTO 240 

560 F=F+3 

570 IF F>? THEN 1070 

580 GOSUB 740 

590 X1=2*INT(10*RND<0)) 

600 C=C+X1 

610 PRINT "VOUR CAMEL IS BURNING ACROSS THE DESERT SANDS. " 

62S GOTO 240 

630 PRINT "VOUR CAMEL THANKS VOU!" 

640 F=0 

658 GOTO 250 

660 PRINT "VOUR CAMEL HAS"; 7-F; "GOOD DAVS LEFT. " 

670 PRINT "VOU HAVE"; S; "DRINKS LEFT IN VOUR CANTEEN. " 

680 PRINT "VOU CAN GO"; Z; "COMMANDS WITHOUT DRINKING. " 

690 S=S-1 

708 IF S<0 THEN 1088 

718 PRINT "BETTER WATCH FOR AN OASES '" 

720 Z=4 

738 GOTO 390 

740 A=INT(100*RND(0» 

750 IF R>5 THEN 1008 

760 PRINT "WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED VOU. " 

770 PRINT "LUCKILV THE LOCAL SHEIK HAS AGREED TO THEIR RANSOM-" 

780 PRINT "DEMANDS. BUT WATCH FOR THE PVGMIES ! ! ! " 

790 PRINT "VOU HAVE A NEW CHOICE OF SUB-COMMANDS:" 
800 PRINT "#7 - ATTEMPT AN ESCAPE" 
810 PRINT "#8 - WAIT FOR PAVMENT" 
820 PRINT "VOUR SUB-COMMAND "; 
830 INPUT X 



848 IF X=8 THEN 920 

850 X1=INT<10*RND<0>> 

860 IF Xl<5 THEN 980 

870 PRINT "CONGRATULATIONS, VOU SUCCESSFULLY ESCAPED ! ! ! ' " 

880 Q=0 

890 GOTO 240 

980 PRINT "VOU WERE MORTALLY WOUNDED BV A PIG STABBER WHILE ESCAPING. " 

910 GOTO 1290 

920 X1=INT<100*RND<0)> 

930 REM 

940 IF Xl>24 THEN 980 

950 PRINT "VOUR RANSOM HAS BEEN PAID AND VOU ARE FREE TO GO. " 

960 0=0 

970 GOTO 240 

980 PRINT "THE LOCAL SULTAN IS COLLECTING JUST WAIT " 

990 GOTO 240 

1000 A=INT(10*RHD(0)) 

1610 IF A>2 THEN 1120 

1020 PRINT "VOU HAVE ARRIVED AT AN OASES VOUR CAMEL IS" 

1030 PRINT "FILLING VOUR CANTEEN AND EATING FIGS. " 

1040 Z=4 

1050 S=6 

I860 RETURN 

1070 PRINT "YOU DIRTY RAPSCALLION! VOU RAN YOUR POOR CAMEL TO DEATH '!" 

1088 GOTO 1298 

1898 PRINT "YOU WIN, A PARTY IS BEING GIVEN IN VOUR HONOR " 

1100 PRINT " THE PYGMIES ARE PLANNING TO ATTEND " 

1110 GOTO 1440 

1120 X1=INT<108*RND<0» 

1130 IF Xl>5 THEN 1230 

1148 PRINT "VOU HAVE BEEN CAUGHT IN A SANDSTORM. . . . GOOD LUCK!" 

1158 X5=INT<10*RND<8>) 

1160 X6=INT(10*RND<0)> 

1170 IF X6<5 THEN 1200 

1180 C=C+X5 

1190 GOTO 1210 

1200 C=C-X5 

1210 PRINT "VOUR NEW POSITION IS"; C, "MILES SO FAR!" 

1220 RETURN 

1230 X1=INT<108*RND(0» 

1240 IF Xl>5 THEN RETURN 

1250 C1=C1+1 

1260 PRINT "YOUR CAMEL HURT HIS HUMP " 

1270 PRINT "LUCKILV THE PVGMIES WERE FOOTWEHRV ! ! ' " 

1280 RETURN 

1290 U=INT(10*RND<0>> 

1380 PRINT "VOU DIED IN THE DESERT. " 

1318 IF U>1 THEN 1340 

1320 PRINT "THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL!!!" 
1338 GOTO 1448 

1340 IF U>3 THEN 1378 

1358 PRINT "VOUR BODY WHS EATEN BY VULTURES AND IMPORTED CANNINBALS ! ! ■ " 
1358 GOTO 1448 

1370 IF U>5 THEN 1400 

1380 PRINT "THE LOCAL SHEIK NOW USES VOUR SKULL FOR A CHANGE PURSE!! 1 " 
1390 GOTO 1440 

1488 IF U>7 THEN 1430 

1410 PRINT "PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAV OUT OF THE 
1420 GOTO 1440 DESERT" 

1430 PRINT "TURKEYS SHOULD FLV, NOT RIDE CAMELS !!!!!!'" 
1448 REM 

1450 PRINT "WANT A NEW CAMEL AND A NEW GAME "; 
1468 INPUT D* 

1470 IF LEFT$(D*, 1)="V" THEN 150 
1480 GOTO 1510 

1490 PRINT "VOU RAN OUT OF WATER SORRY CHUM! ! ' " 

1530 GOTO 1298 

1518 PRINT " » 

1528 PRINT " CHICKEN" 

1538 PRINT " " 

1548 END 
1550 Z=4 
1560 S=6 
1570 C=0 
1580 Ci=0 
1590 Q=0 
1600 F=0 
1610 P=0 
1620 RETURN 
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CHASE puts you in a maze made up 
of high-v jltage fences and posts. This 
in itself is Yt too unpleasant but there're 
also the f ve interceptor robots bent on 
just one thing— your destruction. If 
these robots touch you ... that's the 
end of t\ e game (and you!). There's 
one hop 3— make the robots hit the 
maze, o each other (they're like 
people— ::ometimes they'd rather be 
alone). If /ou destroy them all, you win! 
If you find yourself in a totally hopeless 
situation, you have the option of 
making a tremendous leap to a random 
location (which may well be on top of a 
fence or i guard). 

At the end of the game, you may 
replay with the same or different 
starting conditions. 

I belie"e this game was originally 
created ty Mac Oglesby. It was then 
modified by Bill Cotter and further 
improved by Arnold Loveridge. An 
intermediate version appeared in 
Creative Computing, Jan/Feb 1976. 



COPVRICHT 1979 



CHASE 
CREATIVE COMPUTING 



MORRISTOWN, NJ 



00 VOU NEED INSTRUCTIONS? VES. 

els 

VOU BRE WITHIN THE WALLS OF A HIGH VOLTAGE MAZE 

THERE ARE FIVE SECURITV MACHINES TRVING TO DESTROV VOU 

VOU ARE THE '**' THE INTERCEPTORS ARE THE '++' 

THE AREAS MARKED '. . ' ARE HIGH VOLTAGE 

VOUR ONLV CHANCE FOR SURVIVAL IS TO MANEUVER EACH 

INTERCEPTOR INTO AN ', ' GOOD LUCK 

KOVES ARE 7. 8. 9 

4.*, 6 

1.2.3 
18 = NO MOVE FOR THE REST OF THE GAME 
-1 = GAVE UP. SITUATION HOPELESS. 
= A TREMENDOUS <BUT UNFORTUNATELV RANDOM) LEAP 

PRESS HNV KEV TO CONTINUE 
els 



WHAT IS VOUR MOVE? 1. 




HHflT IS VOUR MOVE? 4. 



it** 



.1 . k*- 



■ els 




HHAT IS VOUR MOVE? 4. 



■ els • 





++ 


++ 


** 







mm is vour move? 4 



els ■ 



** ++ 
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WAT IS VOUR MOVE? 4 



•ClS ■ 



• els ■ 



WfiT IS VOUR MOVE? 8L 



■ Cl3 



WAT IS VOUR MOVE? 
Si, 808, 889 JUMP!! 1 



• els • 



10 CLS: PRINT8413, "CHASE" 

20 PRINT: PRINT TABC7) "COPVRIGHT 1379 CREATIVE COMPUTING 

MORRISTOUN, NJ" 
38 PRINT0960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

40 IF LEFT*<I*,1)="N" THEN CIS: GOTO 200 

41 CLS: PRINT TABC29); "CHASE": PRINT 

50 PRINT "VOU ARE WITHIN THE WALLS OF A HIGH VOLTAGE MAZE" 
68 PRINT "THERE ARE FIVE SECURITY MACHINES TRVING TO DESTROV VOU" 
78 PRINT "VOU ARE THE '**' THE INTERCEPTORS ARE THE '++'" 
88 PRINT "THE AREAS MARKED '"STRING$C2,19i>"' ARE HIGH VOLTAGE" 
98 PRINT "VOUR ONLV CHANCE FOR SURVIVAL IS TO MANEUVER EACH" 

100 PRINT "INTERCEPTOR INTO AN '"STRING$<2,191>"'. GOOD LUCK ' 

110 PRINT "MOVES ARE 7. 8. 9" 

120 PRINT " 4. *. 6" 

120 PRINT " 1. 2 3" 

150 PRINT "10 = NO MOVE FOR THE REST OF THE GAME" 

160 PRINT "-1 = GAVE UP, SITUATION HOPELESS. " 

170 PRINT " = A TREMENDOUS (BUT UNFORTUNATELY RANDOM) LEAP" 

180 PRINT 

190 PRINT0979, "PRESS ANV KEY TO CONTINUE"; 

191 IF INKEY*="" THEN 191 ELSE CLS 

208 DIM Aa0,20),Aia0,20),N<12),L<5),M<5),Ll<5^Ml<5) 

210 REM 

229 FOR B=l TO 10 

220 FOR C=l TO 20 

240 X=INT<10*RND<0» 

258 IF X=5 THEN 288 

260 BCB,C)=ASC<" ") 

270 GOTO 290 

288 A<B,C)=ASC<"X"> 

290 NEXT C 

380 NEXT B 

310 FOR D=i TO 10 

320 A<D,l)=ASC<"X"):A<D,20)=ASCrX"> 

338 NEXT D 

340 FOR F=l TO 20 

350 AQ,F)=ASC("X"):fl(10,F)=ASC<"X") 

360 NEXT F 

370 GOTO 420 

380 H=INT(2+8*RND<0» 

390 I=INTC2+18*RND<0» 

488 IF H<H,I>OASC<" ") THEN 380 

410 RETURN 

420 GOSUB 380 

430 A<H, I>=ASC<"*") 

440 J=H:K=I 

450 FOR N9=l TO 5 

460 GOSUB 386 

478 HCH, D=RSC("+") 

480 L(N9>=H:M<N9)=I 

490 NEXT N9 

580 FOR 81=1 TO 10:FOR B2=i TO 20:AKBi,82)=A(Bl,B2>:NEXT B2:NEXT Bl 

510 FOR Bl=l TO 5:L1<B1)=L<B1):MKB1)=M<B1):NEXT Bl 

528 J1=J:K1=K 

538 Y9=8 



548 PRINT e 0, ""; : FOR D2=i TO 18 

550 FOR 82=1 TO 28 

560 N$=CHR«H(D2, B2)-103*(fKD2, B2)=8S» 

570 PRINT HtHti 

580 NEXT B2 

598 PRINT 

600 NEXT D2 

610 IF V9 O 10 THEN 640 

628 PRINT 

638 GOTO 898 

640 PRINT: INPUT"WHAT IS VOUR M0VE";V9 

650 J2=J:K2=K 

668 IF V9=8 THEN 868 

670 IF V9 < 8 THEN 1230 

688 IF V9=16 THEN 1070 

690 ON V9 GOTO 820, 800, 788, 840, 898, 760, 700, 720, 748 

788 J=J-l:K=K-i 

718 GOTO 890 

720 J=J-1 

730 GOTO 898 

740 J=J-1:K=K+1 

750 GOTO 898 

760 K=K+i 

770 GOTO 890 

788 J=J+1:K=K+1 

790 GOTO 898 

880 J=J+1 

810 GOTO 890 

820 J=J+1:K=K-1 

838 GOTO 890 

840 K=K-1 

858 GOTO 890 

860 PRINT "$6, 800, 008 JUMP! ! ' " 

870 J=INT(2+8*RND<0» 

880 K=INT<2+18*RND<0>> 

890 IF A<J,K)=ASC("X") THEN 1268 

908 H(J2,K2)=ASC<" "> 

910 A<J,K)=ASC<"*") 

920 GOTO 1070 

930 REM INTERCEPTOR MOVEMENT 

948 IF A<X,V)=ASC("X"> THEN 1048 
950 X2=X:Y2=Y 

960 X=SGNCJ-X):Y=SGN(K-V) 

970 X=X+X2:V=V+V2 

980 IF A(X,V)=ASC<"*") THEN 1050 

990 IF RCX,Y)=ASC<" "> THEN 1020 

1BB0 H(X2,V2)=ASC<" "> 
1018 RETURN 

1920 A<X,Y)=ASC<"+"> 

1038 A(X2,Y2)=ASC<" ") 
1048 RETURN 
1058 09=99 

1868 RETURN 

1070 FOR N9=l TO 5 

1088 X=L<N9):Y=M<N9> 

1690 G9=0 

1108 GOSUB 948 

1110 IF G9 O THEN 1240 

1120 L(N9)=X: M<N9>=V 
1130 NEXT N9 

1148 FOR N9=l TO 5 

1158 IF A<L(N9),M(N9» O flSC(" "> THEN 1170 

1160 A(L(N9>,M(N9))=ASC("+") 

1170 NEXT N9 

1180 FOR H9=l TO 5 

1198 IF fi<L<N9>,MCN9» O ASCC'X") THEN 548 
1280 NEXT N9 

1210 PRINT.PRINT "VOU HAVE DESTROYED ALL VOUR OPPONENTS - THE GAME IS YOURS" 

1220 GOTO 1290 

1238 PRINT:PRINT "GIVE UP, EH " 

1240 PRINT:PRINT "*** YOU HAVE BEEN DESTROYED BY B LUCKY COMPUTER ***" 

1258 GOTO 1290 

1260 PRINT:PRINT "HIGH VOLTAGE! !!!!!!!!!" 

1270 PRINT "***** ZAP ***** YOU'RE DEAD! ! "' 

1280 PRINT 

1298 PRINT.PRINT "ANOTHER GAME (V/N)"; 

1388 INPUT N9$ 

1310 IF m O "Y" THEN 1398 

1328 PRINT "SAME SETUP (Y/N)"; 

1338 INPUT N9* 

1348 CLS: IF N9* O "Y" THEN 210 

1358 FOR Bl=l TO 10: FOR B2=l TO 28:A<B1,B2)=A1<B1,B2):NEXT B2:NEXT Bl 

1368 FOR Bl=l TO 5:L<B1)=L1<B1):M<B1)=M1<B1>:NEXT Bl 

1370 J=J1:K=K1 

1380 GOTO 530 

1390 END 
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Chuck uck 



CHUCK-A-LUCK 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 

els 



DO VOU NEED INSTRUCTIONS? VES. 
els 



CHOOSE A NUMBER FROM 1 TO 6. I WILL ROLL 3 DICE. 
IF VOUR NUMBER MATCHES 1 DIE, I PAV OFF EVEN MONEV. 
TWO DICE, 2:1 3 DICE, 3:1 



BET TO QUIT. 



. els ■ 



PRESS ANV KEV TO CONTINUE 
VOU HAVE * 400. MAKE A BET. ? . 
CHOOSE A NUMBER? 3 



VOU DIDN'T MATCH AT ALL. 
VOU LOSE * 160. 

els ■ 



VOU HAVE * 580. MAKE A BET. ' 100_ 
CHOOSE A NUMBER? 



VOU'VE WON * 180. 



els • 



VOU HAVE $ 500. MAKE A BET. ? 100 
CHOOSE fl NUMBER? 3_ 



VOU'VE WON * 100. 



. els - 



VOU HAVE $ 400. MAKE A BET. ■> 300 
CHOOSE A NUMBER? 1_ 



VOU DIDN'T MATCH AT ALL. 
VOU LOSE $ 100. 
els 

VOU HAVE * 700. MAKE A BET. ? 10 
CHOOSE A NUMBER? 1_ 



VOU'VE WON $ 300. 



els ■ 



VOU HAVE t 690. MAKE A BET. ? 690 
CHOOSE A NUMBER? 1_ 



VOU DIDN'T MATCH AT ALL. 

VOU LOSE * 10. 

_ c ia 

VOU HAVE * 690. MAKE A BET. ? 690 

VOU DIDN'T MATCH AT ALL. 
VOU LOSE $ 690. 

els 



19 CLEAR 598: CLS: PRIKT6411, ■CHUCK-fi-LUCK' 

28 PRIKT: PRINT TRB<?> "COPVRIGHT 1979 CRERTIVE CCWUTING H0RRISTC4M, NJ" 

38 PRINT8968, ": : INPUT TO VOU NEED INSTRUCTIONS"; I* 

40 IF LEFT*<I$,1>="N" THEN CLS: GOTO 128 

58 CLS: PRINT TRB<26) ■CHUCK-H-LUCK■ : PRINT 



Chuck-a-luck is generally found in 
fairgrounds, cheap casinos, and small 
gambling parlors. It flourished in 
frontier America, but dates back to 
European gaming houses of the 
eighteenth century. During its long 
history, chuck-a-luck has had many 
names including sweatcloth, chucker- 
luck, chuck luck, and bird cage. 

Each player places his bets on one of 
the six numbers, one through six. 
When all bets have been placed, the 
operator tumbles three dice in a chuck 
cage until they come to rest face up or 
drop down a chute onto the table. If a 
player's number appears on one die, 
the operator pays him even money; if 
on two dice, two to one; if on three dice, 
three to one. 

The computer version of Chuck-a- 
luck was originally written by Michael 
Tanoff. 



68 PRINT ■CHOOSE fl NUHBER FROH 1 TO 6. I HILL ROLL 3 DICE ' 
78 PRINT "IF VOUR NUWER HATCHES 1 DIE, I PBV OFF EVEN HONEY. " 
88 PRINT "TUO DICE, 2:1 3 DICE 3:1": PRINT 
98 PRINT "BET 8 TO QUIT. ■ 

189 PRINT8979, "PRESS ANV KEV TO CONTINUE"; 
118 IF INKEY*=" THEN 118 ELSE CLS 

128 GOSUB 428: R=588 

138 PR1NT§8, "YOU HAVE *";HiCM»<8>;°, HAKE A BET. °;CHR$(38); 

148 INPUT B 

158 IF 6=8 THEN END 

168 IF B>H THEN 388 

178 IF B>8 THEN IF B*i88=INT<B*188) THEN 198 

188 GOTO 398 

190 PRINT "CHOOSE A NUffiER"; CHRK38); 
288 INPUT N 

218 IF INT(N)=N TO H>8 TO H<7 THEN 238 

228 PRINT "CHEATER!!!!!!": GOTO 198 

238 ft=RND(6): D=RRD<6>: C=RHD<6>: PRINT 

248 FOR Ai=i TO RND(10)+5: PRINT8192, R*<RND<6»,fS<RM><6»,A*<RHX6»; 

258 V J ftt: PRINT8192, ftttA), A*(D), RKDi : PRINT9512, CKR*(31>; 

268 1=8 

276 IF A=H THEN T=T*1 

288 IF D=N THEN T=T+1 

298 IF C=N THEN T=T+i 

380 IF T=8 THEN PRINT "VOU DIDN'T HATCH AT ALL " 

318 ON T GOTO 358,368,378 

328 PRINT "VOU LOSE *"; B; CHRK8); " ■ 

338 H=M-B: IF H<=0 THEN 408 

348 GOTO 138 

358 PRINT "VOU'VE HON ♦■iBiCHR»(8);" 

"VOU'VE HON *";B*2iCHRM8>; 

■VOU'VE HON S";B*2;CH»(8>i 

"I DON' TAKE I.CU'S !!!!"-. 



': H=H+B: GOTO 138 
'. ": H=H*2*B: GOTO 138 
'.": H=H+B*3: GOTO 138 
GOTO 138 



368 PRINT ' 

378 PRINT ' 

388 PRINT ' 

398 PRINT "DON'T GET CUTE!!!": GOTO 138 

488 PRINT 

418 END 

428 H$=CHR$(191)rtHI»(26)+STRING$(9,8): B*=STRING*<3, 27) 

438 FOR R=l TO 6: FOR B=l TO 3: R*(A)=ft*<fl>+CHS<191) 

448 FOR C=l TO 7: READ D: A»(A)=f»(fl)+CHR*(D+lB8): NEXI C 

458 R»<A)=A*<A)*ft«: NEXT B: ftt<fi>=LEFT$<R*<A),48><B*: NEXT A: RETURN 

468 DflTR 31, 3L 3L 31, 31, 31, 31, 28, 28, 28, 48, 28, 28, 28, 76, 76, 76, 76, 76, 76, 76 

478 DATA 31, 79, 31, 31, 31, 31, 31, 28, 28, 28, 28, 28, 28, 28, 76, 76, 76, 76, 76, 79, 76 

488 DATA 31, 79, 31, 31, 3L 3L 31, 28, 28, 28, 48, 28, 28, 28, 76, 76, 76, 76, 76, 79, 76 

498 DATA 31, 79, 3L 31, 31, 79, 3L 28, 28, 28, 28, 28, 28, 28, 76, 79, 76, 76, 76, 79, 76 

598 DATA 31, 79, 31, 31, 31, 79, 31, 28, 28, 28, 48, 28, 28, 28, 76, 79, 76, 76, 76, 79, 76 

518 DATA 31 79, 31, 31, 31, 79, 31, 28, 48, 28, 28, 28, 48, 28, 76, 79, 76, 76, 76, 79, 76 
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<ers 



In this game, you 
center of a target a 
program assigns c 
your location. You 
tion as to the cou 
degrees longitude a 
and also its speed, 
alternatives. One. ) 
shoot the UFO out 
ICBM or you can d( 
that air friction will < 
the UFO to deviate 

A knowledge of r 
dinate systems v 
assistance in wir 
although you'll pr< 
discover a reasonafc 
yourself using trial ; 
enough games. 

This program wa 
by Chris Falco. 



are situated at the 
ea for a UFO. The 
oordinates 0,0 to 
are given informa- 
se of the UFO in 
id degrees latitude 
You then have two 
ou can attempt to 
of the sky with an 
i nothing and hope 
:ause the course of 
or to burn up. 
lathematical coor- 
ii\\ be of some 
ning this game, 
>bably be able to 
ly good strategy by 
snd error if you play 

3 originally written 




CLffi £ ENCOUNTERS 
COPVRIEHT 1979 CREATI> E COHPUTINQ HORRISTOHH, NJ 
ols 



HIT ENTER TO START? . 



CIS • 



VOU RRE SITURTED AT COCROINftTE ; (8,9). 
HERDING FOR IMPACT AT THAT LOt TTION 



AT FIRST TRACK, THE UFO IS ON 1 COURSE OF 54 DEGREES LONGITUDE 
RND 135 DEGREES LATITUDE. 

(ALSO IT'S FALLING AT A SPE 3) OF 6816 MILES/PER HOUR) 

VOU HAVE THE FOLLOHING ALTER* FIVES: 

A) VOU CAN ATTEMPT TO SHOOT TF : UFO OUT OF THE SKV. OR 

B) VOU CAM DO NOTHING, AND HOP I THAT AIR FRICTION 

HILL CAUSE THE COURSE OF TF : UFO TO DEVIATE, AND THUS 
HISS VOUR LOCATION 



NHAT IS VOUR PLAN OF ACTION (fi OR £ 


)? B. 








els 






MILES 


SPED 


LONGITUDE 


LATITUDE 


COURSE 


12888 


6818 


54 


135 


86 


11888.6 


11433 


52 


126 


99 


115719 


14231 


43 


128 


162 


1127Z8 


17946 


41 


118 


182 


18899.7 


22339 


33 


112 


184 


10437. 2 


27746 


28 


163 


98 


9928.72 


38992 


26 


98 


97 


9254.37 


339:31 


26 


93 


92 


8685.72 


48119 


21 


89 


93 


7542 92 


44558 


21 


87 


91 


7899.72 


58592 


18 


85 


92 


6196.53 


54131 





81 


97 


5228. 43 


58886 


7 -13 


74 
83 


92 


3685.72 


46119 


21 


Q? 


7942 92 


44568 


21 


87 


91 


7899. 72 


50592 


18 


85 


■a:. 


6196.53 


54131 


Q 


81 


97 


5228. 43 


58836 


7 


74 


92 


4224.88 


66213 


3 


67 


89 


318125 


62618 


-6 


62 


93 


2867.83 


66885 


-18 


68 


95 


8S6. 266 


76234 


-15 


52 


93 





1I1PACT - 
- UPI - 


AT - 74,988 

HIRE - SERVI £ - 


ON - Lire 


-5 16 15 - 



TRV AGAIN? VES. 

VOU ARE SITUATED AT COOFMHATES (8,0). A UFO IS 

HEADING FOR IMPACT AT TFAT LOCATION 

AT FIRST TRACK, THE UFO IS ON A COURSE OF 44 DEGREES LONGITUDE 
AND 125 DEGREES LATITUDE. 

(ALSO IT'S FALLING Al A SPEED OF 3361 MLES/PER HOUR) 

VOU HAVE THE FOLLOWING RTERNATIVES. 

A) VOU CRN ATTEHPT TO SFOOT TIC UFO OUT OF THE SKV. OR 

B) VOU CAM DO NOTHING, FND HOPE THAT AIR FRICTION 

HILL CRUSE THE COURSE OF TIC UFO TO DEVIATE, AND THUS 
HISS VOUR LOCATION. 



HURT IS VOUR PLAN OF AC! ION (A 



RB)?fL 

■ Cl3 



LAUNCH RN I. C. 8. II ON A COURSE THAT HILL INTERCEPT THE UFO 

WITHOUT THE UFO BEING TCO CLOSE TO VOUR 

OCRTION IF THE SPEED 

OF THE UFO EXCEEDS 11361 PL P. R , VOUR MISSILES RRE USELESS! 

-SCANNERS PREDICT VOU HAVE 4 MINUTES TO DESTROV THE UFO 

BEFORE IT IS TOO CLOSE TO IMPACT. 

-COMPUTER INDICATES COURSE AT FIRST SIGHTING IS APPRO*. 98 

HIT EN TER TO LBUHCH ICB i? - 

TIME 



■ els • 



.5 

1 

15 

2 

25 



SPEED 

3361 
5816 
6659 
8388 
9957 
11686 



LOIiGITUDE LATITUDE COURSE 



125 
118 
111 
184 
97 



>55 



SORRV-THE SPEED OF THE UFO HAS EXCEEDED 11361 

THIS SPED IS TOO GREAT FOR VOUR DEFENSE SCREEN TO TRUCK! 

THEREFORE, VOU ARE DOOMED! 

TRV AGAIN? HO. 



BLAST SEEN FR011 42875 BILES AN IV. HO SURVIVORS. 
els 



32 



18 as. PRIHT8418, "CtOSE ENCOUNTERS" 

26 PRINT- PRINT TABC?) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTORN, NJ" 

38 PRIHT0360, ""; IHPUT "HIT ENTER TO START"; Ai: CLS 

49 GOSUB 1876 

58 PRINT "VOU ARE SITUATED AT COORDINATES (0,8). A UFO IS" 

68 PRINT "HEADING FOR IMPACT AT THAT LOCATION. " 

78 PRINT 

88 PRINT "AT FIRST TRACK, THE UFO IS ON A COURSE OF'TDEGREES "; 

98 PRINT "LONGITUDE" 

188 PRINT "ANB"Z"DEGREE LATITUDE. " 

118 PRINT " (ALSO IT'S FALLING AT A SPEED OFXHIIES/PER HOUR)" 

128 PRINT 

138 PRINT "VOU HAVE THE FOLLOWING ALTERNATIVES:" 

148 PRINT "A) VOU CAN ATTEMPT TO SHOOT THE UFO OUT OF THE SKV. OR" 

150 PRINT "B) VOU CAN DO NOTHING, AND HOPE THAT AIR FRICTION" 

168 PRINT " HILL CAUSE THE COURSE OF THE UFO TO DEVIATE, AND THUS" 

178 PRINT " HISS VOUR LOCATION. ":PRIHT 

188 PRINT "HHAT IS VOUR PLAN OF ACTION (A OR 8)"; : IHPUT M: CLS 

198 IF LEFT$(W,i)="B" THEN 728 

288 PRINT CHT»<26); "LAUNCH AN I. C. B. tl ON A COURSE THAT HILL INTERCEPT THE UFO" 

218 PRINT "WITHOUT THE UFO BEING TOO CLOSE TO VOUR LOCATION IF THE "; 

228 PRINT "SPEED" 

238 PRINT "OF THE UFO EXCEEDS'H'll P. H. , VOUR MISSILES ARE USELESS!" 

248 PRINT "--SCANNERS PREDICT VOU HAVE'tf MINUTES TO DESTROV THE UFO" 

258 PRINT "BEFORE IT IS TOO CLOSE TO IMPACT. ":PRIHT 

268 C=Z-VtI-INT(RND(8)t4)+l 

278 PRINT "-COMPUTER INDICATE COURSE AT FIRST SIGHTING IS RPPROX. ";C+F 

286 PRINT 

298 INPUT'HIT ENTER TO LAUNCH ICBH";A$: CLS 

388 PRINT 

318 PRINT "TIKE";TA8(10);"SPEED";TAB<21);"LONG1TUDE";TRBG5); 

328 PRINT "LATITUDE"; TAB(48); "COURSE" 

338 PRINT " ";TBB(1B);"-— ";TA8<21);" «;TBB(35); 

348 PRINT " ";TR8(48>;" " 

358 FOR T=8T0 5 STEP . 5 

368 PRINT T TABU0) X TAB(21) V TAB(35) 2 TAB(48); 

378 IHPUT A: IF T=H THEN 558 

388 IF X<=H THEN 428 

398 PRINT "SORRV-THE SPEED OF THE UFO HAS EXCEEDED •; :PRINT USING »H,t« ";H 

488 PRINT "THIS SPEED IS TOO GREAT FOR VOUR DEFENSE SCREEN TO TRACK!" 

418 PRINT "THEREFORE, VOU ARE DOOMED! ": PRINT .GOTO 688 
428 IF A=C THEN 658 

438 IF (Die THEN 488 

448 PRINT "AT THAT COURSE, VOU SHOT VOUR MISSILE STRAIGHT UP, SO UHEN" 

458 PRINT "IT RUNS OUT OF FUEL IN ABOUT'F'HOURS, IT HILL FALL"; 

468 PRINT " THROUGH" 

478 PRINT "VOUR ROOF!!!!!!!!!! GOODBYE!!! !!!":G0T0 530 

488 IF A<288 GOTO 518 

498 PRINT "GOOD HORK! THERE GOES THE MISSILE RIGHT TOWARDS" 

588 PRINT "RUSSIA! ! ! ! NOW VOU'RE DEFINITELV IN TROUBLE! !":GOTO 598 

518 IF ft=C-l THEN 688 

528 IF A=C+1 THEN 648 

538 X=X+V+i288 : V=V-I+5 : Z=Z-I+5 : C=Z-V+5 

548 NEXT T 

558 PRINT :PRINT " ATTENTION " 

568 PRINT "ELAPSED - TIME - INDICATE - THAT -";Hi "- NINUTE HAVE PASSED" 

578 PRINT'IF - VOU - HERE - TO - HIT - THE - UFO - NOW - THE - FORCE - OF" 

588 PRINT'THE - EXPLOSION - MOULD - DESTROV - BOTH - VOU - AND - THE - UFO!"- 

598 GOTO 688 

688 PRINT "VOU ARE SHV OF THE UFO'S COORDINATES, " 



618 PRINT "HOWEVER THIS IS ONLV A SLIGHT DEVIATION SO THE" 

628 PRINT "UFO HAS BEEN DESTROYED!" :PRIHT 

638 GOTO 688 

648 PRINT "VOU OVERSHOT THE UFO'S COORDINATES, ":GOTO 616 

658 PRINT 'FANTASTIC! ! ! ! VOU HIT THE UFO EXACTLV ON PROJECTED COURSE" 

666 PRINT "VOU MUST BE VERV SHARP 1 ":PRIHT 

678 PRINT 

688 PRINT "TRV AGAIN"; ; INPUT JJ:IF LEFT$(JM)="N" THEN 1130 

638 GOSUB 1076 

788 GOSUB 1848 

716 PRINT: PRINT :GOTO 240 

720 PRINT 

738 F=8 

740 A=INT(RND(0)*5)+1:C=Z-V+A 

758 H=12888: CLS. PRIHT8128, ""; GOSUB 768: GOTO 828 

768 LB=PEEK<16416): MB=PEEK(16417) 

778 PR1HTS8, "M1LES"TAB(18)"SPEED"TAB(21)"L0NGITUDE"TAB(35); 

786 PRIHT"LATITUDE"TAB(48)"C0URSE" 

798 PRINT "-— "TRB(18)" "TABC21) - "TABC35); 

886 PRINT" «TAB(48)" "; 

810 P0KE16416.LB: P0KE16417.MB: RETURN 

828 P=X+1 

838 PRINT 11 TAB(18> X TAB(21) V TABC35) Z TAB(48) C. GOSUB 768 

848 C=Z-Y 

858 X=X+IHT(RND(6)»5eeeH2e8e:i1=N-X/60 

868 Y=Y-INT(RND(8)*i8) :Z=Z-1NT(RND(6)*18) :C=Z-Y+A12 

878 IF X-P>5788 THEN F=F+1 

886 IF M>8 THEN 826 

838 PRINT "- IMPACT - AT - "; :PRINT USING "«,»»"; Xi 

968 PRINT" " 

310 IF FC=2 THEN 350 

928 PRINT "GOOD HORK. FRICTION 0F";F;CHRS(8); "7. HAS CAUSED THE COURSE" 

938 PRINT "OF THE UFO TO DEVIATE. IMPACT COORDINATE ARE" 

948 PRINT "HOW ("F", "0-F"). VOU MADE IT!":G0TO 396 

350 PRINT" UPI - HIRE - SERVICE - ON - LINE -";Aj":»A+5";"R+i8" 

968 PRINT "— HAVE JUST OBSERVED EXPLOSION AT COORDINATE <"6-F". 8). — 

978 A=(H*2)*A 

938 PRINT "BLAST SEEN FR0M"AC3"HILE AWAV. NO SURVIVORS. ":PRINT 

938 IHPUT "TRV AGAIN"; J* 

1688 IF LEFT«J*,i)="N" THEN 1136 

1618 GOSUB 1070 

1620 GOSUB 1840 

1638 PRINT:PRINT:GOTO 268 

1648 INPUT "PLAN (A OR B)";M: CLS 

1656 IF LEFT«D*,i)="B" THEN 726 

1868 RETURN 

1878 I=INT(RHD(e)*28)-H:V=INT(RND(8)*400)+288:F=INT(RraK0)*5)+l 

ieeeX=im(RND<8)*5880)+288i:H=X+8880:Q=INT<RND<0>*5Hl 

1898 Z=INT<RND(8>*i46):IF Z<168 THEN 1090 

1168 V=IHT(RND(8)*68):IF V<48 THEN 1160 

1118 IF X>=3868 THEN 1138 

1128 M=5:G0T0 1180 

1138 IF X>=3788 THEN 1158 

1148 M=4:G0T0 1188 

1158 IF X>=4706 THEN 1178 

1168 B=3:G0T0 1188 

1170 M=2 

1180 RETURN 

1136 END 
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COUSIN 

COPVRIGHT 1979 CREATIVE CONFUTING MORR1STOHN, NJ 



00 VOJ NEED INSTRUCTIONS? VES. 



Cl8 ■ 



• Cl3 



column 

this program hill show vou fl cbro trick. after the first deal 
pick fl card and type the number of the column containing it. 

THE DEALER HILL THEN PICK UP THE CARDS, fl COLUMN AT fl Tilt 
AND NiLL DEAL THEN OUT AGAIN HORI20NTALLV. WHEN HE FINISHES 
EACH TIME, TVPE THE NUMBER OF THE THE NEN COLUMN CONTAINING VOUR 

CARD. FOLLOWING THE LAST DEAL THE DEALER HILL TURN OVER THE 
CARDS, ONE AT A Tilt, UNTIL HE REACHES THE ONE VOU PICKED. 



This progr; 
of an old can 
get some oc 
uninitiated, 
takes twenty- 
them out in t 
each. You th« 
(or which pil< 
then picks u| 
right to left, p 
top, and then 
horizontally, 
card of the ri< 
the top card 
second card 
becomes the 
column; the 
column becc 
third column 
out all twent 
you again tel 
card appear: 
picks up the 
order and de 
Again you 
contains you 
cards out 01 
identifies yoi 
Don't ask m< 
you canfigur 
but it works t 

This progr. 
by Alan Barn 



im is a computer version 
I trick which never fails to 
ohs and aaahs from the 
'he dealer, or magician, 
one random cards, deals 
iree piles of seven cards 
?n tell him which column 
i) contains your card. He 
i the three columns from 
jtting the right pile on the 
deals the deck out again 
In other words the top 
jht column now becomes 
of the left column; the 
in the right column now 
first card in the middle 
third card of the right 
mes the first card in the 
and so on. After he deals 
/-one cards in this way, 
him which column your 
in. The magician then 
three piles in the same 
als them out once again. 
:ell him which column 
- card. He then deals the 
le by one face up and 
irs when he comes to it. 
! how he does it! Maybe 
3 it out from the program, 
ivery time. 

im was originally written 
es. 





PRESS ANV KEV TO CONTINUE 




els 




COLUMN #1 


COLUMN «2 


COLUMN e 


IB OF DIAMONDS 


IB OF CLUBS 


6 OF DIAMONDS 


QUEEN OF HEARTS 


5 OF DIAMONDS 


8 OF DIAMONDS 


9 CF SPRDES 


4 OF CLUBS 


2 OF SPADES 


8 (iF CLUBS 


KING OF HEARTS 


9 OF DIAMOK 


7 (f SPADES 


8 OF SPRDES 


5 OF CLUBS 


KIliG Of SPADES 


7 OF DIAMONDS 


5 OF SPADES 


JACK OF DIAMONDS 


6 OF HERRTS 


4 OF HEARTS 


WHICH COUMN CONTAINS YOUR CARD? 2. 


COLUMN #1 


COLUMN 12 


COLUMN B 


10 OF DIAMONDS 


QUEEN OF HERRTS 


9 Of SPADES 


8 IF CUBS 


7 OF SPADES 


KING OF SPADES 


JACK OF DIAMONDS 


16 OF CLUBS 


5 OF DIRHONDS 


4 OF CLUBS 


KING OF HEARTS 


8 OF SPADES 


7 (f DiRHONDS 


6 OF HEARTS 


6 OF DIAMONDS 


S ( F DIAMONDS 


2 OF SPADES 


9 OF DIAMONDS 


5 OF CUBS 


5 OF SPADES 


4 OF HEARTS 


UHIC1I COLUMN CONTAINS VOUR CARD? 2. 






els — 




COUHN tl 


COLUMN 12 


COLUMN 13 


10 OF DIAMONDS 


8 OF CLUBS 


JACK OF DIAMONDS 


4 CF CLUBS 


7 OF DIAMONDS 


8 OF DIAMONDS 


5 OF CLUBS 


0UEEN OF HEARTS 


7 OF SPADES 


10 OF CLUBS 


KING OF HEARTS 


i OF HERRTS 


2 OF SPADES 


5 OF SPADES 


90F SPADES 


KING OF SPADES 


5 CF DIAMONDS 


3 OF SPRDES 


6 OF DIAMONDS 


9 Of DIRHONDS 


4 OF HEARTS 


HHICI! COLUMN CONTAINS VOUR CARD? i_ 


9 OF SPADES 






8 OF SPADES 






4 OF HEARTS 






18 CF DIAMONDS 






4 OF CLUBS 






5 OF CLUBS 






2 OF SPADES 






KIliG OF SPADES 


OOPS!!! VOUR CARD IS THE 10 OF CLUBS 


6 OF DIAMONDS 






8 OF CLUBS 






7 OF DIAMONDS 






QUEEN OF HEARTS 






KM OF HEARTS 






5 OF SPFOES 






00 VOU URNT TO SEE IT AGAIN? NO. 
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le clear ieee 
seas 

28 PRINT 413, "COLUMN" 

49 PRINT 

58 PRINT TfiB<7)"COPVRlGHT 1979 CREATIVE COMPUTING MORRtSTOMN, NJ" 

68 PRINT 6 968, '"; 

78 INPUT'DO YOU NEED INSTRUCTIONS"; It 

88 IF LEFTOIJ, 1)="N" THEN 218 

98 CIS 

188 PRINT TRB<29)"C0LUMN" 

118 PRINT 

126 PRINT'THIS PROGRAH HILL SHOU VOU R CARD TRICK. AFTER THE FIRST DEAL" 

138 PRIHT'PICK n CARD AND TVPE THE NUMBER OF THE COLUMN CONTAINING IT. " 

148 PRINFTHE DEALER HILL THEN PICK UP THE CARDS, A COLUMN AT A TIME " 

158 PRIHT'AND MILL DEAL THEM OUT AGAIN HORIZONTALLY WEN HE FINISHES" 

168 PRINT-EACH TIME, TVPE THE NUMBER OF THE THE HEN COLUMN CONTAINING YOUR" 

178 PRIHTCARD. FOLLOWING THE LAST DEAL THE DEALER HILL TURN OVER THE" 

188 PRINT'CRRDS, ONE AT A T!!E UNTIL HE REACHES THE ONE VOU PICKED. " 

198 PRIHT C< 979, "PRESS ANY KEY TO CONTINUE"; 

288 IF INKEYi ="" THEN 288 

218 OS 

228 PRINT CHR$<28); 

230 DIM A<21), B<21) 

248 FOR X=l TO 21 

250 J=8 

268 T=1NTC52*( RNDC8)» 

278 FOR V=l TO X-l 

288 IF R(V)=T THEN 268 

298 NEXT V 

380 B(X)=T 

218 NEXT X 

228 N=8 

338 FOR 1=1 TO 3 

248 PRIHT TAB<2); "COLUMN «1"; TABC23); "COLUMN S2";TAB<44)"COLUNN #3" 

358 PRIHT STRINB(64, 148); 

360 FOR Z=l TO 21 

378 IF fl(Z)=4*< 1NT(A<Z),'4» THEN 498 

288 IF A(Z)-2=4*< INT<fl(ZV4)> THEN 468 

398 IF A(Z)-3=4*< IHT(R(Z)/4» THEN 430 

406 «="SPADES" 

418 D*=" 

420 GOTO 510 

420 Ct="HERRTS" 

448 M=" 

450 GOTO 518 

460 C*="CLUBS" 

478 M=" 

480 GOTO 518 

496 C$="DlfHQH" 

580 Dt="DS" 

518 H=N+1 

526 IF H04 THEN 558 

536 PRINT 

540 N=l 

558 IF fl(Z»35 THEN 598 

568 CI»=STR*(IHT(A(Z)/4)+2) 

570 PRIHT TAB«N-i)*2i+2); RIGHT J(CNJ, LEH(CN»-1);" OF ";«; DJ; 

538 IF J=5 THEN 1036 ELSE 718 

596 IF !HT(A(Z)/4)=9 THEN 688 

666 IF INT<A<2)/4>=16 THEN 660 

616 IF INT(ACZ)/4)=li THEN 640 

620 fl$="JACK" 

630 GOTO 696 

648 A*="QUEEN" 

650 GOTO 698 

668 ASKING" 

678 GOTO 696 

686 A*="ACE" 

698 PRINT TflB«N-l)*21+2); A*;" OF ";Of; M; 

760 IF J=5 THEN 1030 

710 NEXT Z 

728 PRINT 

736 FOR A=4 TO 27 

748 SEK6, fi> 

756 5EK42, A) 

768 SET(84, A) 

778 SETCL27, A) 

788 NEXT A 

790 FOR A=8 TO 127 

888 SET(A, 27) 

818 NEXT 



820 N=0 

830 PRINT 

848 PRINTHHICH COLUNH CONTAINS VOUF: CARD': 

858 INPUT K 

860 as 

878 IF K<1 OR 103 THEN PRINT: PRWT"<l-3>": GOTO 828 

888 T=l 

898 S=K+2-3*IMT< CK+D/3) 

980 60SUB 1210 

916 S=K 

928 GOSUB 1219 

938 S*l-3*INT(K/3) 

946 GOSUB 1218 

950 FOR C=i TO 21 

966 fl(C)=B(C> 

978 NEXTC 

988 NEXT 1 

398 J=5 

1800 FOR Z=l TO 19 

1010 N=0 

1828 GOTO 378 

1836 PRINT 

1048 NEXT Z 

1658 PRINT 8 532, 'OOPS!!! YOUR CARD IS THE "; 

1068 FL=8 

1070 ftt=" 

1080 FOR (H5746 TO 16383 

1090 IF PEEK(A)032 THEN FL=0: A*=A$+CHIS<PEEK<A)) 

1180 IF a=0 THEN A$=A5+" "• FL=1: NEXT A 

1118 FOR R=385 TO 428 

1120 PRIHT 8 A, ' " to; 

1138 FOR B=l TO 16 

1140 NEXT B, A 

1159 FOR R=428 TO 556 STEP 64 

1168 PRINT S A-64, ■ * STRING$(LEN((»), 32); 

1178 PRINT 8 A, " " AJ; 

1188 FOR B=l TO 18 

1198 NEXT B, A 

1288 GOTO 1260 

1210 FOR R=S TO S+18 STEP 3 

1220 B(T)=BCR) 

1238 T=T+1 

1240 NEXT R 

1256 RETURN 

1260 PRINT 968, "DO YOU RANT TO SEE IT AGAIN"; 

1273 INPUT TJ 

1288 IF LEFTtCTt, 1)="Y" THEN CLS. GOTO 248 

1290 END 



NEXT A 
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CONCENTRATION 

COPVRIGHT 1979 CREATIVE COMPUTING HORRISTOMH, NJ 

els 



HIT ENTER TO SI ART? . 



FIRST CARD? 1 
SECOND CARD? 2 
I 1 IS QC t 2 IS AC 



This ch Idren's card game for any 
number cf players is also called 
memory, or pelmanism. It is easy to 
play and is an excellent test of memory 
and observation. The computer version 
here simul ates the actual game except 
that it only allows one player to play. In 
the actual game, one player shuffles a 
deck of playing cards and lays them 
face down on a table in all directions 
and so tiat no card is touching 
another. E, ich player tries to collect as 
many cards as possible by turning up 
pairs with • he same rank per a number 
or picture. The first player to go turns 
over two cards at random and allows 
the other Dlayers to see them. If the 
rank of the two cards is the same, for 
example, Iwo aces or two kings, he 
takes them and may turn over two more 
cards. He c ontinues in this way until he 
turns over • wo cards that do not match. 
These cards are then placed back 
clown in treir original positions, face 
clown, and lis turn then ends. The play 
then passes to the next player. This 
player turns up one card. If it matches 
one that has already been turned over, 
he must try to remember where that 
card is. If h 3 is successful, he takes the 
pair. Hecoitinueshisturn until he fails 
to turn over a matching pair. Play 
continues n turn until all the cards 
have been ;ollected. The winner is the 
player with the most cards at the end of 
the game. 

This game is good fun on a CRT 
terminal. Aso, why not try modifying it 
to allow pU y by two or more players? 



FIRST CURD? 12 
SECOND CARD? 2 
It 13 IS OS 8 2 IS AC 



PRESS ANV KEV TO CONTINUE 
els 



PRESS ANV KEV TO CONTINUE 
els 



FIRST CARD? 53 

THERE ARE ONLV 52 CARDS IN THE DECK, NOT I 

FIRST CARD? 41 
SECOND CARD? 37 
I 41 IS 4C # 2? IS 7S 



PRESS ANV KEV TO CONTINUE 
CIS 



FIRST CARD? 28 
SECOND CARD? 16 
» 20 IS 5S } 16 IS 6D 



FIRST CARD? 41 
SECOND CARD? 25 
# 41 IS 4C it 29 IS ?S 



PRESS ANV KEV TO CONTINUE 
els 



PFESS ANV KEV TO CONTINUE 
els 



FIRST CARD? 3? 

SECOND CARD? 29 

THAT'S A HATCH --7S ?S 

VOUR SCORE IS HON i VOU HAVE HAD 6 PICKS. 



PRESS ANV KEV TO CONTINUE 
els 



FIRST CARD? 41 

SECOND CARD? 6 

THAT'S A HATCH -C 4C 

VOUR SCORE IS NCI 2. VOU HAVE HAD 7 PICKS. 



FIRST CARD? 12 

SECDHD CARD? 35 

« 12 IS 6S I 35 IS 7S 



PRESS ANV KEV TO CONTINUE 
els 
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PRESS ANV KEV TO CONTINUE 
els 



leas 


488 LET C*(U)=" " 




28 ttERR i860 


490 LET CKH>=" " 




38 PRINT % 418, "CONCENTRATION* 


500 LET S=S+1 




48 PRINT 


518 PRINT "VOUR SCORE IS NOW"; Si CHR*(8)i" VOU HAVE HAD"; Ni 


"PICKS. " 


58 PRINT TfiB(?)"COPVRIGHT 1379 CREATIVE CONFUTING HORRISTONN, NJ" 


520 PRINT § 979, "PRESS BNV KEV TO CONTINUE"; 




68 PRINT 8 368, "; 


528 IF IHKEVJ =" THEN 528 




78 INPUPHIT ENTER TO STfiRT"; IS 


548 as 




S3CLS 


556 NEXT N 




98 DIM Ct(52) 


568 REN - THE RESULTS 




168 FOR *=1 TO 52 


570 LET Sl=S/(N/4) 




118 READ E* 


588 PRINT "VOU SCORED"; S; "OUT OF";N; CHR*(8>; " THAT IS ": 




128 C$(S=B 


598 OH Sl+i 5 GOTO 688, 628, 646, 680 




138 HEXT X 


688 PRINT "POOR. " 




148 REI1 - SHUFFLE BND DEAL 


618 GOTO 698 




156 FOR Z=l TO 51 


628 PRINT "FAIR " 




168 K$=CttZ) 


638 GOTO 698 




178 L=IHT«53-Z)*RND<8Hi) 


648 PRINT "GOOD. " 




188 Ct(Z)=»(L+Z-l) 


658 GOTO 698 




198 CKL)=Kt 


668 PRINT "EXCELLENT ' ' '" 




288 HEXT Z 


670 GOTO 698 




218 REH - STRET TO PLRV 


688 PRINT" . ARAH UR. ..VOU HUST HAVE CHEATED!" 




228 FOR H=l TO 26 


698 PRINT 




238 PRINT 


768 PRINT "DO VOU HANT TO PLHV AGAIN"; 




248 PRINT "FIRST CARD"; 


718 INPUT Z* 




258 INPUT U 


728 IF LEFT$(Z*, 1)="V" THEN 158 




268 IF U > 8 AND U < 53 THEN 296 


720 PRINT 




276 PRINT "THERE ARE ONLV 52 CURDS IH THE DECK, NOT";U; CHR«8)i" " 


748 PRINT "CONE BACK AGAIN!!" 




288 GOTO 238 


758 END 




298LETG=1 


768 PRINT "VOU HAVE RLREADV HATCHED THAT CARD. " 




288 IF C«U>=" " THEN 768 


778 IF G=l THEN 238 




218 PRINT "SECOND CfiRD"; 


788 GOTO 216 




228 INPUT H 


798 DATA "AS". "25", "3S". "45", "55", "6S", "7S". "8S", "9S". "IBS". 


■JS","QS 


338 IF H > 8 AND U <53 THEN 368 


889 DATA "KS" 




248 PRINT "THERE ARE ONLV 52 CARDS IH THE DECK, HOT';Ui CHR«8>;» " 


816 DATA "AH", "2H", "2H". "4H", "5H", '6H*, "7H*. "8H", "9H", "18H" 


"JH", "8H 


358 GOTO 318 


820 DATA "KH" 




368 LET G=2 


838 DATA "AD", "2D". "2D", "4D". "50", "6D", "70". "8D", "9D", "10D" 


"JD"."QD 


278 IF C*(H)=" " THEN 768 


848 DATA "KD" 




388 IF U O H THEN 410 


856 DATA "AC", "2C", "2C". "4C", "5C". "6C". "7C". "8C". "9C». "10C" 


"JC", "8C 


398 PRINT "YOU CUNT PICK THE SAHE CARD TWICE!" 


868 DATA "KC" 




408 GOTO 310 


878 END 




410 IF HID*(»(U), 1, 1)=H1DKC«H>, L 1) THEN 470 


880 FOR XX=i TO 4868 




428 PRINT "f";U;"IS ",C*<U), n «",H; "IS ";B<H), 


898 HEXT 




428 FOR 1=1 TO 50 


988 RETURN 




448 PRINT; 


916 FOR W=i TO 2688 




458 NEXT I 


928 HEXT 




468 GOTO 528 


926 RETURN 




470 PRINT "THAT'S A MATCH -MSCU), CKH) 
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CONNECT THE DOTS 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



This is the oid chiid 
"connect the dots." Tf 
carve out squares of " 
the computer as an abl 
player who connect: 
which complete a 
ownership of that squ 
the player gets the i 
moving once more. T 
advantageous in cert; 
nine-square grid is 
playing board. 

A sample of the gric 
identification of each c 
a line may be drawn. 



iood favorite of 
e objective is to 
-eal estate" with 
3 adversary. The 
the two dots 
square gets 
are. In addition, 
dded bonus of 
lis can be quite 
.in situations. A 
provided as a 

follows with an 
Dordinate where 



(1,2) (1,4) (1,6) 

(2,1) (2,3) (2,5) (2,7) 

(3,2) (3,4) (3,6) 

(4,1) (4,3) (4,5) (4,7) 

(5,2) (5,4) (5,6) 

(6,1) (6,3) (6,5) (6,7) 

(7,2) (7,4) (7,6) 



You'll find it interes 
the computer mirrors t 
in so far as possible. Y 
that the game move: 
especially for the fir; 
moves. Be patient! One 
to fall, the game mov 
conclusion. 

There are some mc 
you may wish to con 
going to adopt this pre 
use. In addition to imp 
statements in the pr 
suggest: 

1. Modifying the prog 
grid is printed afti 
have moved (rather 
move is made); 

2. Modifying the progi 
a player had owners 
of the squares, the < 
rather than proceec 
conclusion; and 

3. Modify the progra 
player's initials a 
square he captures. 

The program is by ( 
writeup by Pete Olivi 
appeared in Creati 
Jan/Feb 1976. 



ing to note that 
le player's move 
ju may also find 
; rather slowly, 
t three or four 
;e squares begin 
ss swiftly to its 

idifications that 
sider if you are 
gram for regular 
roving the REM 
jgram, I would 

ram so that the 
;r both players 
.nan each time a 

am so that once 
nip of a majority 
lame would end 
to its inevitable 

m so that the 
)pear in each 

)huck Lund; the 
3ri. It originally 
'e Computing, 



HIT ENTER TO START? _ 



■ els • 



THIS PROGRAM HILL PLAV CONNECT THE DOTS WITH VOU. 
THE GAME IS PLHVED ON A 4 X 4 ARRfV. WHEN 
VOU WANT TO MAKE A MOVE VOU MUST TVPE IN 
THE COORDINATES OF THE SPACE BETWEEN THE TWO DOTS VOU 
HflNT TO CONNECT. ENTER EACH OF VOIR MOVES BV TVPINO 
THE ROW NUMBER, A COMMA AND THE COLUMN NUMBER. 
THE UPPER LEFT HAND CORNER OF THE HRRAV IS 1, 1. 
HERE WE GO. 

PRESS ANV KEV TO CONTINUE 

Cl3 



1 2 



4 5 



VOUR MOVE? 1, 1 

VOU REALLV DON'T WANT TO PUT A LIKE THERE! ' 

YOUR MOVE? 1, 2_ 



12 3 4 5 



VOUR MOVE? 7,5 

VOU REALLV DON'T WANT TO PUT A LIKE THERE! 



VOUR MOVE? 7,4_ 



■ els 



12 3 4 5 6 



VOUR MOVE? 1,6. 



12 3 4 5 6 7 



VOUR MOVE? 2,1- 



12 3 4 5 6 7 



VOUR MOVE? 4, 1_ 



■ els ■ 



12 3 4 5 6 



VOUR MOVE? 2, 7. 



12 3 4 5 6 



VOUR 


MOVE? 


4,3. 


els — 






1 2 


3 


4 5 


6 7 


1 










2 










3 










4 










5 










6 










VOUR MOVE? 


5,4. 








1 2 


3 


4 5 


6 7 


1 










o 










3 










4 






C 




5 










6 










7 










VOUR 


MOVE? 


2,3. 


els — 






1 2 


3 


4 5 


6 7 


1 










2 






H 




3 










4 






C 




5 










6 










VOUR 


MOVE? 


3, 6 







- els ■ 
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I WON 

DO VOU WfiHT TO PLRV AGAIN? NO. 

els 



10 CLS. PRINT0408, "CONNECT THE DOTS" 

28 PRINT PRINT TABC7) "COPYRIGHT 1979 CREATIVE COMPUTING 

MORRISTOWN, NJ" 
39 PRIHT0960, ""; INPUT "HIT ENTER TO START"; I*: CLS 
48 PRINT TABC28) "CONNECT THE DOTS" 
58 PRINT 

60 PRINT "THIS PROGRAM WILL PLAV CONNECT THE DOTS WITH VOU. " 
70 PRINT "THE GAME IS PLAVED ON A 4 X 4 ARRAV. WHEN" 
80 PRINT "VOU WANT TO MAKE A MOVE VOU MUST TVPE IN" 
98 PRINT "THE COORDINATES OF THE SPACE BETWEEN THE TWO DOTS VOU" 
100 PRINT "WANT TO CONNECT. ENTER EACH OF VOUR MOVES BV TYPING" 
110 PRINT "THE ROW NUMBER, A COMMA AND THE COLUMN NUMBER. " 
120 PRINT "THE UPPER LEFT HAND CORNER OF THE ARRAY IS 1, 1. " 
130 PRINT "HERE WE GO. " ■ PRINTO979, "PRESS RNV KEY TO CONTINUE"; 
140 IF INKEY*="" THEN 140 ELSE CLS 

159 DIM RC12,12> 

160 V=9 

176 FOR R=l TO 12 

180 FOR C=l TO 12 

190 IF R/'2=INT<R/2) THEN 230 

200 IF C/2=INTCC/2) THEN 230 

210 RCR,C)=-50 

220 GOTO 240 

230 ACR, C)=0 

240 NEXT C 

250 NEXT R 

260 IF V=l THEN 270 

270 GOSUB 1120 

280 PRINT PRINT "YOUR MOVE"; 

290 INPUT X,Y 

300 IF X=INTCX> THEN 330 

310 PRINT "YOU REALLY DON'T WANT TO PUT A LINE THERE! !!!" 

320 GOTO 280 

330 IF CX-l)*CX-7»0 THEN 310 

340 X=X+2 

350 IF <Y-l)*<Y-7»0 THEN 310 

360 Y=V+2 

370 IF CX+Y+l)/2<>INTCCX+Y+l>/2> THEN 310 

380 IF ACX, YX>0 THEN 310 

390 ACX, V)=50 

400 IF X/2=INTCX/2> THEN 470 

410 IF RCX-2, VHACX-1, Y+1HACX-1, V-DO150 THEN 440 

420 P=l 

430 fl(X-l. Y)=l 

440 IF ACX+2, Y)+R<X+1, V+1HACX+1, V-DO150 THEN 530 

458 A<X+1,Y)=1 

469 GOTO 270 

470 IF A<X,Y-2>+RCX+l,Y-l)+ACX-l,Y-lX>150 THEN 506 
€10 A<X,Y-1>=1 

490 P=l 

500 IF A<X, V+2HACX+1, Y+1)+R<X-1. V+DO150 THEN 536 

510 fl<X,Y+l)=l 
520 GOTO 270 

530 IF P=l THEN 270 
548 GOSUB 1120 

550 PRINT: PRINT "MY MOVE" 

560 FOR R=4 TO 10 STEP 2 

570 FOR C=4 TO 10 STEP 2 

580 IF ACR-1, CHACR+1, O+RCR, C-D+ACR, C+1X>150 THEN 770 

590 ACR, C>=-1 



C-D+ACR+1, C-l>=100 THEN 950 
C+2HACR+1, C+1X>108 THEN 910 



600 IF ACR-1,CX>0 THEN 640 

610 RCR-i,C>=50 

620 IF ACR-3, O+RCR-2, C-D+ACR-2, C+DO150 THEN 540 

630 LET ACR-2, C)=-l 

648 IF ACR+1, CX>0 THEN 680 

650 ACR+1, C>=50 

660 IF ACR+3, C>+ACR+2,C-l)+A<R+2, C+1X>150 THEN 540 

670 RCR+2, C)=-l 

680 IF ACR, C-DO0 THEN 720 

690 ACR,C-1)=58 

700 IF ACR, C-3)+RCR-l, C-2HACR+1, C+2XM50 THEN 540 

710 ACR,C-2)=-l 

720 IF ACR, C+DO0 THEN 540 

73:0 ACR, C+l)=50 

748 IF R(R, C+3HACR-1, C+2XACR+1, C+2)O150 THEN 540 

758 A<R,C+2>=-i 

760 GOTO 540 

778 NEXT C 

780 NEXT R 

790 IF E>1 THEN 840 

300 IF RC12-X, 12-Y)O0 THEN 840 

810 AC12-X, 12-V)=50 

820 IF E>1 THEN 980 

830 GOTO 270 

840 FOR R=3 TO 9 

850 FOR C=3 TO 9 

868 IF (R+CV2=INT<<R+C)/2> THEN 950 

878 IF R(R, OO0 THEN 950 

880 IF R^INKR^) THEN 930 

890 IF A<R-2, C)+A<R-1, C-1)+A(R-1, C+l>=100 THEN 950 

900 IF A<R+2, C)+A<R+1, C-1)+A<R+1, C+l)=100 THEN 950 

910 ACR, C)=50 

920 GOTO 270 

930 IF A<R, C-2)+A<R-l 

940 IF A<R, C+2)+A<R-l 

950 NEXT C 

966 NEXT R 

970 IF E>1 THEN 800 

980 R=INT<RND(0)*7)+3 

990 C=INT(RND<0)*7)+3 

1080 IF R/2=INT(R/2> THEN 1030 

1010 IF C/2=INKC/2) THEN 1050 

1020 GOTO 980 

1030 IF C/^OINTCC^) THEN 1050 

1848 GOTO 980 

1050 IF A<R,C)O0 THEN 980 

I860 R(R, C)=50 

1970 GOTO 270 

1080 PRINT "DO VOU WANT TO PLAY AGAIN". 

1090 INPUT B$ 

1100 IF LEFWB*, 1)="Y" THEN 170 

1110 END 

1120 P=0: PRINTO8, " 1 

1130 D=0 

1140 E=0 

1150 FOR R=3 TO 9: PRINT " ";R-2;" " 

1168 FOR C=3 TO 9 

1170 IF A<R, C)O0 THEN 1200 

1180 PRINT " "; 

1190 GOTO 1350 

1208 IF A<R, OO-50 THEN 1238 

1210 PRINT " "; CHR*(148); " "; 

1220 GOTO 1350 

1230 IF ACR, CX>-1 THEN 1260 

1240 PRINT " C "; 

1250 GOTO 1288 

1260 IF ACR, OOl THEN 1310 

1270 PRINT " H "; 

1280 D=D+A<R, C> 

1298 E=E+1 

1300 GOTO 1350 

1310 IF R/2=INTCR/2) THEN 1340 

1320 PRINT STRING$C3, 140); 

1330 GOTO 1350 

1348 PRINT " "; CHR$C191); " "; 

1350 NEXT C 

1360 PRINT 

1370 NEXT R 

1380 IF E>=9 THEN 1408 

1390 PRINT PRINT CHR#C31); RETURN 

1400 PRINT PRINT: IFD>0 THEN 1438 

1418 PRINT "I WON" 

1420 GOTO 1088 

1439 PRINT "YOU WON!! 1 " 

1448 GOTO 1088 

1458 END 
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DO YOU NEED INSTRUCTIONS? YES- 
els 

THIS NAVAL WAR G 
VOU ARE THE SUB; TH 
DESTROYERS. THE SHI 
TO SQUARE 1, MOVING 

ONE OF THE SHIP' 
RANDOMLY 0,1,2 OR 3 
THE OTHER DESTROYER 
RN ESCORT. THE SUB 
LEFT OR RIGHT 1 SQL 
HAS TORPEDOES WHICH 
LINE. AFTER EACH SL 
EACH ADJACENT SQUAF 
REPORTS WILL BE MAC 



THE SEflUENCE OF 

1 - SHIP AND D 

2 - YOUR MOVE 

3 - YOU CAN FI 

4 - PERISCOPE 

5 - YOUR MOVE 

6 - BACK TO NU 
THE SUB WINS IF 

TORPEDOES WITHOUT M 
TO 'FIRE?' ANSWER: 



WE IS PLAYED ON A 10 BY 10 MATRIX. 
; COMPUTER IS A CARGO SHIP AND ITS TWO 
' STARTS IN SQUARE 100 AND RANDOMLY MOVES 

8, 1, 2, OR 3 SQUARES AT A TIME. 
; DESTROYERS STARTS AT SQUARE 78 AND MOVES 

SQUARES AT A TIME SEARCHING FOR THE SUB. 

STAYS WITHIN ONE SQUARE OF THE SHIP AS 

STARTS IN SQUARE 12, CAN MOVE UP, DOWN, 
WE AT A TIME, 2 MOVES PER TURN, AND IT 

IT CAN FIRE 1 AT A TIME IN ANY STRAIGHT 
3 MOVE, THE PERISCOPE WILL SEARCH 
I FOR THE SHIP ALSO RANDOM RECONNAISANCE 

=RESS ANY KEY TO CONTINUE 

— els 

■LAY IS. 
ISTROYERS MOVE 

!E A TORPEDO 

JEARCH 

1GAIN 

1BER 1 

fT SUCCEEDS IN HITTING THE SHIP WITHIN 4 

WING TO A SQUARE OCCUPIED BY A DESTROYER. 

'NO', 'L', 'R', 'U', 'D', 'LU'.'LD', 'RU'. OR 'RD' 



'L' = LEFT, 'R' ■■ 
'RU' = RIGHT UP, 



R:GHT, 'U' = UP, 'D' = DOWN, 'LU' = LEFT UP, 
'f Y = RIGHT DOWN. 

>RESS ANY KEY TO CONTINUE 
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91 92 93 94 95 96 97 98 99 100 



DESTROYER HAS MOVE! . 
SUB IS NOW AT 12. 
SUB'S MOVE? 13. 



SHIP HAS MOVED. 

DESTROYER LAST SIGHTED AT 78. 
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DESTROYER LAST SIGHTED AT 78. 


SUB'S MOVE? 14. 
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DESTROYER HAS MOVE ' 
SUB AT 14. 
FIRE? NO- 



SHIP HAS MOVED. 

SHIP LAST SEEN AT 100. 
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This is a naval war game played on a 
10 by 10 grid. You are a submarine and 
the computer plays the role of the 
convoy consisting of a cargo ship and 
two destroyers. One destroyer acts as 
the escort traveling alongside the 
cargo ship, while the other searches for 
the submarine and tries to destroy it. 
The destroyer which is searching for 
the submarine moves from zero to 
three squares at a time, searching. The 
other destroyer stays within one 
square of the ship. The submarine 
starts in square #12 and can move up, 
down, left, or right one square at a time 
with two moves per turn. It has four 
torpedoes which may be fired one at a 
time in any straight direction, horizon- 
tally, vertically, or diagonally. 

The game ends when either the 
submarine destroys the cargo ship or 
when one of the two destroyers gets 
the submarine. 
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SUB IS NOW AT 18. 
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IB CLEAR500: CLS: PRIh 
20 PRINT PRINT TAB(7> 
30 PRINT§960, ""; INP 
46 IF LEFT$<I*, 1>="N" 
50 as. PRINT TA8<29>; 
60 PRINT " THIS NAVf 
70 PRINT'VOU ARE THE SUB. 
S0 PRINPDESTROYERS. 1 
90 PRINT"TO SQUARE 1, 
100 PRINT" ONE OF Th 
110 PRINFRRNDOKLY 0, 3 
120 PRINT"THE OTHER DE 
138 PRINT"flN ESCORT. 
140 PRINT'lEFT OR RIGh 
158 PRINT"HAS TORPEDO! 
160 PRINTLINE. AFTER 
170 PRINT"EACH ADJACEI 
180 PRINFREPORTS MILL 
190 PRINT0979, "PRESS 
200 IF INKEY*="" THEN 
210 PRINT" THE SEQUE 
220 PRINT" 1 - SHI 



226 PRINT" 
240 PRINT" 
250 PRINT" 
268 PRINT" 
270 PRINT" 
28B PRINT" 



2 - VOL 

3 - VOL 

4 - PER 

5 - VOL 

6 - BRC 
THE SUB ! 



r<?413, "CONVOY" 

"COPYRIGHT 1979 CRERTIVE COMPUTING MORRISTOWN, N. 
JT "DO YOU NEED INSTRUCTIONS"; 1$ 
THEN CLS: GOTO 350 

"CONVOY" PRINT 

. WAR GAME IS PLAYED ON A 10 BY 10 MATRIX. " 
1€ COHPUTER IS fl CARGO SHIP RND ITS THO" 
HE SHIP STARTS IN SQUARE 100 AND RANDOMLY MOVES" 
WING 0, 1, 2, OR 3 SQUARES AT fl TIME. " 
E SHIP'S DESTROVERS STARTS AT SQUARE 78 AND MOVES" 
, 2 OR 3 SQUARES AT fl TIME SEARCHING FOR THE SUB. " 
STROVER STAYS WITHIN ONE SQUARE OF THE SHIP AS" 
THE SUB STARTS IN SQUARE 12, CAN MOVE UP, DOWN, " 
T 1 SQUARE AT A TIME, 2 MOVES PER TURN, AND IT " 
S WHICH IT CAN FIRE 1 AT A TIME IN ANY STRAIGHT" 
EACH SUB MOVE, THE PERISCOPE WILL SEARCH" 
T SQUARE FOR THE SHIP ALSO RANDOM RECONNAISANCE" 

BE MADE. " 

W KEY TO CONTINUE"; 

200 ELSE PRINTC128, CHR$G1); 

CE OF PLAY IS:" 

3 AND DESTROYERS MOVE" 

I MOVE" 

CAN FIRE A TORPEDO" 
ISCOPE SEARCH" 
? MOVE AGAIN" 
< TO NUMBER 1" 

INS IF IT SUCCEEDS IN HITTING THE SHIP WITHIN 4 " 
THOUT MOVING TO fl SQUARE OCCUPIED BY A DESTROYER. " 
NSWER: 'NO', 'L', 'R', 'U', 'D'.'LU', 'LD', 'RU', OR 'RD' 
D' = DOWN, 'LU' = LEFT UP, " 



'R' = RIGHT, 'U' = UP, 
UP, 'RD' = RIGHT DOWN. 
W KEY TO CONTINUE"; 
340 ELSE CLS 
12 3 4 5 6 

I R J=i TO 10 
, I*10+J; 



290 PRINT-TORPEDOES W. 

300 PRINF'TO 'FIRE?' ( 

310 PRINT"'L' = LEFT, 

320 PRINT" 'RU' = RIGH1 

330 PRINT0979, "PRESS 

340 IF INK£Y*="' : THEN 

350 PRINT TAB<24); "123456789 10" 

368 FOR 1=1 T09 

370 PRINT TAB<24); Fl 

380 PRINT USING "### 

338 NEKT J 

400 NEXT I 

410 PRINW256, "THE"; PRINT8320, "BOARD"; PRINT@640, STRING* (64, 191); 

420 D=12 

430 T=4 

44S S=106 

456 C=78 

460 C2=78 

470 L=10O 

480 IF C=-100 THEN 531 

490 GOTO 2970 

580 Y3=0 

510 M1=0 

523 GOTO560 

530 M1=0 

548 IF S=2 THEN 1220 

550 Y3=l 

568 IF S=3 THEN 1220 

570 IF S=li THEN 1220 

580 IF S=12 THEN 122B 

598 IF S=21 THEN 1226 

608 X=RND<0) 

610 IF X>. 4 THEM 676 

620 IF X>. 2 THEN 690 

630 IF X>. 85 THEN 650 

640 GOTO 1000 

650 S1=0 

660 GOTO 700 

670 Sl=2 

680 GOTO 780 

690 Sl=l 

708 X=RND<0) 

710 IF XC 75 THEN 748 

720 Pl=l 

730 GOTO 810 

740 Pl=-1 

750 GOTO 810 

760 IF S=10*INT(S/10) THEN 800 

770 GOTO 840 

780 IF S=1+(10*INT(S^18)> THEN 800 

790 GOTO 840 

890 P1=P1*<-1> 

810 M2=Pl*<CINT<2*<Rf .1<0))>*9)+1) 

826 IF M2=l THEN '760 



830 IF M2=-l THEN 780 

840 IF M1=N2*<-1> THEN 800 

850 C1=S+M2 

S68 IF Cl=l THEN 1220 

878 IF C1=D THEN 2820 

880 IF C1=C THEN 800 

890 IF CK1 THEN 800 

900 IF Cl>100 THEN 800 

910 M1=M2 

928 S=C1 

938 C6=S+(«INT(2*RND<0))*<-2))+l)*(<INT<2*RND<0)>*9)+l) 

948 IF C6<2 THEN 930 

958 IF C6M00 THEN 930 

960 IF C6= D THEN 2808 

978 IF Sl=l THEN 658 

980 IF Sl=2 THEN 690 

990 C3=0 

1000 P?INTC736, "SHIP HAS MOVED. "; 

1010 IF Y3=0 THEN 1040 

1828 X1=0 

1830 GOTO 2390 

1848 REM 

1850 X:L=1 

I860 FRINTS768, "SUB AT"; D; CHR£<8>; " ";CHR*(30); 

1070 FRINTC800, "SHIP LAST SEEN AT"; Li CHR$<8>; " "; CHR$C30); 

108O FRINT0832, "FIRE"; CHR«38)i 

1090 INPUT Ht 

1180 IF LEFT*<A*, i)="N" THEN 1780 

1110 TP*=STRING$a,140>: IF A$="L" THEN 1240 

1120 IF fl$=»R" THEN 1268 

1130 TP*=" "+CHR*<191)+" ": IF R*="U" THEN 1280 

1140 IF fl$=»D" THEN 1300 

1158 TP*=CHR$<131)+CHR*(140)+CHR*<176>: IF fl*="LU" THEN 1320 

1168 IF fl*="RD" THEN1380 

1178 TP$=CHR*(176)+CHR*(140)+CHRf(131): IF R*="RU" THEN 1360 

1180 IF A*="LD" THEN 1340 

1198 PRINT9832, "ANSWER NO, L, R, U, D, LU, LD, RU OR RD. "; CHR$<30)i 

1288 FOR TM=1 TO 500: NEXT 

1218 GOTO 1080 

1220 CLS: PRINT"SHIP'S IN PORT. " 

1238 GOTO 2850 

1248 Pi=-1 

1258 GOTO 1398 

1260 Fl=l 

1270 COTO 1398 

1288 Pi=-10 

1298 GOTO 1398 

1308 Fi=10 

1310 COTO 1390 

1328 Pl=-ll 

1338 GOTO 1398 

1340 Fl=9 

1350 GOTO 1390 

1368 F±=-9 

1370 GOTO 1398 

1388 Fl=ll 

1398 D:!=D 

1488 C1=D1+P1 

1410 ;iC=INT(Dl/10) ■ YC=D1-XC*10: SP=XC*64+YC*4+20 

1420 IF INT<D1/18)OD1/10 THEN 1440 

1430 £P=<XC-l)*64+<YC+10)*4+20 

1440 PRINT0SP, TP$; FOR TH=1 TO 20: NEXT TM 

1450 PRINT8SP, ""; . PRINTUSING"###"; Dl; 

1460 JF D1=S THEN1538 

1478 IF D1=C THEN 1570 

1480 ::F D1C11 THEN 1650 

1490 IF Dl>90 THEN 1690 

1508 IF D1=10*INT(D1/10) THEN 1610 

1510 IF D1=1+(10*INT<D1/10)) THEN 1630 

1528 GOTO 1480 

1530 CLS: PRINT"KER-BOOM! p CARGO SHIP DESTROYED 1 " 

1540 PRINT .-PRINT-VOU WIN! 1 " 

1550 0=1 

1560 COTO 2850 

1578 , : 'RINT0832, "WHAMO! ' DESTROYER SUNK. "; CHR*G8>; 

1588 -OR TM=1 TO 500: NEXT TM: C=-108 

1590 "=T-1 

1600 GOTO 1760 

1610 IF D=10*INT(D/10) THEN 1400 

1620 GOTO 1738 

1638 IF D=1+<18*INT(D/10» THEN 1488 
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1648 GOTO 1730 

1658 IF D>10 THEN 1730 

1660 IF D1C2 THEN 1738 

1670 IF DOS THEN 1738 

1680 GOTO 1400 

1698 IF 1X91 THEN 1730 

1700 IF D1C92 THEN 1730 

1718 IF Dl>99 THEN 1738 

1728 GOTO 1408 

1738 T=T-i 

1740 PRINTC832, "MISS. "; CHR£G0>; 

1758 FOR TM=1 TO 588: NEXT TM: IF T=8 THEN 2848 

1768 PRINTS896, T; "TORPEDOES LEFT. "; CHR$<30>; 

1770 GOTO 1888 

1780 PRINT 

1730 V=0 

1808 PRINT§832, "UP PERISCOPE. "; CHR*(30>; 

1810 FOR TM=1 TO 5B0: NEXT TM 

1820 V2=8 

1830 IF S=D THEN 1988 

1848 IF S=0-1 THEN 1988 

1850 IF S=D+1 THEN 1980 

1860 IF S=D-10 THEN 1988 

1878 IF S=D+10 THEN 1980 

1880 IF S=D-9 THEN 1980 

1898 IF S=D+9 THEN 1988 

1900 IF S=D-11 THEN 1988 

1918 IF S=D+11 THEN 1980 

1928 IF V=l THEN 2018 

1938 PRINT8896, "SHIP NOT IN SIGHT. "; CHR*<30>; 

1948 X=RND<8> 

1958 IF XC 35 THEN 2010 

I960 REM 

1970 V2=-l 

1980 PRINT0896, "SHIP AT"; Si CHR*<8); " "; CHR*<38); 

1998 V2=V2+1 

2800 L=S 

2010 IF C=D THEN 2330 

2020 IF C6=D THEN 2800 

2038 IF C=D+1 THEN 2310 

2040 IF C6=D+1 THEN 2238 

2058 IF OD-1 THEN 2318 

2868 IF C6=D-i THEN 2290 

2070 IF C=D+9 THEN 2310 

2088 IF C6=D+9 THEN 2290 

2890 IF C=D-9 THEN 2310 

2106 IF C6=D-9 THEN 2298 

2110 IF C=D+10 THEN 2310 

2120 IF C6=D+10 THEN 2290 

2130 IF C=D-18 THEN 2310 

2148 IF C6=D-18 THEN 2298 

2150 IF C=D+11 THEN 2318 

2160 IF C6=D+11 THEN 2290 

2178 IF OD-il THEN 2310 

218B IF C6=D-11 THEN 2290 

2190 IF C=D+2 THEN 2310 

2288 IF C=D-2 THEN 2318 

2218 IF C=D+28 THEN 2318 

2220 IF OD-20 THEN 2318 

2230 IF C=-108 THEN 2378 

2248 IF V=l THEN 2388 

2258 X=RND<0) 

2260 IF XC 6 THEN 2370 

2270 PRINT8896, "RECON. PLANE SPOTS TIN CAN AT";C;CHR*i:8); " 

2280 GOTO 2358 ";CHR*<38>; 

2290 PRINT0896, "ESCORT VERV NEAR!";CHR$G8>; 

2300 GOTO 2370 

2310 PRINT0896, "DESTROVER CLOSING IN AT"; C; CHR«8); " "; CHR*<38> 

2328 GOTO 2350 

2330 PRINT0896, "DESTROVER DIRECTLV OVER HEAD. "; CHR*<30>; 

2348 GOTO 2760 

2350 C2=C 

2368 C3=l 

2370 IF V=0 THEN 2390 

2388 RETURN 

2398 REM 

2480 PRINT§768, "SUB IS NOW HT"; D; CHR*<8); " "i CHR$<30); 

2418 IF C3=l THEN 2448 

2428 IF C=-100 THEN 2440 

2438 PRINTS800, "DESTROVER LAST SIGHTED AT"; C2; MWCS); " "; 

2440 D2=0 CHR*<38>; 

2458 PRINTC832, "SUB'S MOVE"; CHR*(38); 

2468 V=l 



2478 INPUT X: GOTO 2510 

2480 XC=INT<PO/10) : VC=PO-XC*10: PA=XC*64+VC*4+20 

2490 IF INT<PO/10)=PO/'10 THEN PA=<XC-l)*64+(VC+10)*4+20 

2506 RETURN 

2510 IF X=D THEN 2640 

2528 IF X<2 THEN 2738 

2530 IF X>188 THEN 2738 

2548 IF X=INT(X) THEN 2568 

2550 GOTO 2730 

2568 IF X=D+1 THEN 2618 

2578 IF X=D-1 THEN 2638 

2580 IF X=D+10 THEN 2648 

2590 IF X=D-10 THEN 2640 

2688 GOTO 2738 

2610 IF D=10*INT(D/10) THEN 2730 

2620 GOTO 2648 

2638 IF X=10*INT<X/18) THEN 2738 

2648 PO=4V GOSUB 2488: PRINT0PB, ""; : PRINTUSING"###"; D; 

2650 D=X: PO=D: GOSUB 2488: PRINT8PA, STRING*<2, 148); 

CHR$C143>; 
2668 GOSUB 1820 
2678 IF D2=l THEN 2780 
2688 D2=l 
2698 GOTO 2458 
2708 IF X1=0 THEN 3258 
2710 IF C=-180 THEN 538 
2720 GOTO 2970 

2730 PRINTC822, "CAN'T DO. "; CHR$G8); 
2748 FOR TM=1 TO 500: NEXT TM 
2758 GOTO 2458 
2768 X=RND<0) 
2770 IF X<. 8 THEN 2800 

2788 PRINT0896, "DEPTH CHARGE JUST MISSED! ";CHR$G8); 
2798 GOTO 2350 

2880 CLS: PRINF'VAROOM! ■ SUB DEPTH CHARGED!" 
2810 GOTO 2850 

2820 PRINT§896, "SHIP NOW OVERHEAD. "; CHR$G8>; 
2838 GOTO 538 

2840 CLS: PRINT"AMMO DEPLETED. n 
2850 PRINT 

2860 IF Q=0 THEN 2890 
2870 Q1=Q1+1 
2880 GOTO 2980 
2898 (32=82+1 

2900 PRINT"SCORE: COMPUTER"; 02; " - SUB"; Ql; CHR*<8); ". " 
2318 PRINT 
2920 Q=0 

2930 PRINT "NEW GAME"; 
2948 INPUT U$ 

2950 IF LEFT*<N*,1>="N" THEN 3270 
2968 CLS. GOTO 358 
2978 M1=0 
2380 Sl=8 
2990 X=RND<8) 
3000 IF XC 6 THEN 3030 
3810 Pl=l 
3628 GOTO 3848 
3838 Pl=-1 

3048 M2=<P1*<<INK2*RND<0>>:>*9H1> 
3050 IF M2=l THEN 3198 
3868 IF M2=-l THEN 3210 
2870 IF M1=M2*(-1) THEN 3230 
3688 C1=C+M2 
3690 IF C1=D THEN 2800 
3188 IF C1=S THEN 3238 
3110 IF C1C2 THEN 3230 
3120 IF C1M8B THEN 3238 
3130 M1=M2 
3140 C=C1 

3150 IF Sl=l THEN 530 
3168 Sl=l 

3170 PRINT8784, "DESTROVER HAS MOVED. "; 
3180 GOTO 2998 

3198 IF C=10*INT(C10) THEN 3230 
3288 GOTO 3070 

3210 IF C=l+<10*INT<C/i0» THEN 3238 
3220 GOTO 3070 
3230 P1=P1*<-1> 
3240 GOTO 3040 
3258 IF V2=0 THEN 1040 
3260 GOTO 508 
3278 FOR XX=1 TO 1000: NEXT XX .END 
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Occasionally the horse decides to 
engage in a friendly dance around the 
cowboy, but remember that random 
number generators have no soul and 
the result is often vile treachery as 
the liorse delivers a fatal kick at the 
very moment when a successful 
catch seems assured. On the other 
hand, the skill of an accomplished 
CORRAL cowboy can resulc in a 
catch within three moves with no 
injuries sustained. You either have it 
or you have not, as the saying goes. 
In the latter case the program allows 



a maximum of 100 moves before 
relegating the luckless cowboy to 
cookhouse chores. 

Computer freaks with multi-color 
graphics will no doubt be dissatis- 
fied with such prosaic symbols as H 
and C for the horse and cowboy. A 
fully animated CORRAL in living 
color (with sound effects by a music 
or speech synthesizer— a talking 
horse yet!) should not be too difficult 
to achieve. 

Program and description are by 
Colin Keay. 



CORRAL 
COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 
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DO V0U NEED INSTRUCTIONS? V_ 
ola — 



YOU ARE THE C01.B0V. GO CATCH YOUR HORSE IN THE CORRAL I 

YOU MOVE TOWARD YOUR HORSE 1 TO 5 STEPS AT A TIME. 
IF YOU MORE THAN HALVE THE SEPERATION HE WILL BOLT 1 
HE MAY ALSO BOLT WHEN HE IS CLOSE TO THE RAIL. 
WHEN YOU COME WITHIh 2 STEPS HE MAY KICK. BE CAREFUL! 

AFTER "" TYPE IN A DIGIT FROM 1 TO 5 FOR THE COWBOY'S NEXT MOVE 

PRESS ANY KEY TO CONTINUE 

Cl3 
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YIPPEE! ' NOW SEE IF YOU CAN CATCH HIM IN FEWER MOVES. 
ANOTHER ROUNDUP' Y. 
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IB CLS: PRINTM12, "CORRAL' 

28 PRINT: PRINT TAB(7> "COPVRIGHT 1979 CREATIVE COHPUTING HORRISTOtH, NJ" 

38 PRINTH960, "; INPUT '00 VOU NEED INSTRUCTIONS"; K 

48 DIN R<21) 

58 DIN 5(2,9) 

68 FOR M TO 2: FOR J=8 TO 9 

78RERDSCI,J): NEXT J: NEXT I 

88 DATA 0,1, 2, 3.3,2,2,1.9.-1 

90 DATA 1,2, 3, 4, 5, 4, 3, 2, 1,0 

188 IF LEFT$(I$,1)="H" THEN 218 

118 CLS: PRINT TRB(29); 'CORRAL": PRINT 

128 PRINT ■ VOU ARE THE COHBOV. GO CATCH VOUR HORSE IN THE CORRAL!" 

138 PRINT: PRINT "VOU HOVE TOWARD VOUR HORSE 1 TO 5 STEPS AT A TIKE " 

148 PRINT "IF VOU HOiS THAN HALVE THE SEPARATION BE HILL BOLT!" 

150 PRINT "HE HAV ALSO BOLT HHEN HE IS CLOSE TO THE RAIL " 

168 PRINT "HHEN VOU COKE HITHIH 2 STEPS HE KAV KICK. BE CAREFUL!" 

178 PRINT 

188 PRINT "AFTER ">' TVPE IN R DIGIT FROB 1 TO 5 FOR THE COKBOV'S NEXT HOVE" 

198 PRIHTS973, "PRESS ANV KEV TO CONTINUE"; 

280 IF INKEV*=" THEN 200 

210 CLS: PRINT TRB(16); " M4tim*m*w* w m <**t*4*«*' 

228 PRINT TRBC16); "***** CORRAL *****" 

230 PRINT TAEK16); "**t**** ***t*t***t*uuuu*t**t*- ' 

248 PRINT 

258 C=i: L=l: K=8: 11=0: N=0: GOSUB 648 

260 IF R>5 THEN Q=-Q 

278 H=13+Q: GOSUB 658 

288 T=2+P; PRINT 

238 B*=" 

300 FOR M TO 21: H(J>=32: NEXT 

310 A(C)=67- A<H)=72 

328 PRINT USING ■««"; Ns • PRINT ", PRINT CHR«19i>i 

330 FOR M TO 21: PRINT CHR*(A(J»; : NEXT 

348 PRINT CHRKiSi). B$; 

358X=ABS(H-C): L=SGH(H-C> 

368 N=N+1: IF 100 THEN 590 

370 IF N>108 THEN 798 

388 INPUT D 

398 IF D>0 AND D<6 THEN 418 

408 PRINT "ILLEGAL HOVE TRV AGAIN. ",; GOTO 378 

418 E=C+L*D: IF Ea OR D21 THEN 488 

428 C=E: GOSUB 648 

438 G=f>- H=*L«G: GOSUB 658 

448 IF X<2*0 AND D>1 THEN 498 

450 IF H>1 AND H<20 THEN 538 

468 GOSUB 640 

470 IF R>2 THEN 538 

488 IF X>7 THEN 298 

498 G=9+2*P: H=H-L*G: L=-L. GOSUB 658 

508 IF ABS<H-C)>1 THEN 528 

518 H=H-3*L. GOSUB 658 

520 B$=mTED ": GOTO 388 

530 IF ABS(H-C»2 THEN 290 

540 GOSUB 648 

550 IF R>3 THEN 628 

568 GOSUB 648 

578 K=P+2: H*l: H=H-5*L: GOSUB 658 

588 B*="KICKFJ>"' GOTO 308 

590 IF H>T THEN 688 

688 K=K-i: PRINT: GOSUB 648 

618 K=H+L*(PH>: GOSUB 650: GOTO 298 

620 IF H=C THEN 708 

638 GOTO 298 

648 R=INT(10*RND(0»: P=S(1,R>: 0=5(2, R): RETURN 

658 IF Ha THEN H=l 

668 IF H>21 THEN H=21 

670 RETURN 

680 PRINT: PRINT "THOSE KICKS LANDED VOU IN THE HOSPITAL!" 

690 PRINT "GET HELL SOON!": GOTO 768 

788 FOR J=i TO 21: A(J)=32: NEXT: A(C)=35 

718 PRINT, CHR$(19i>; 

728 FOR J=l TO 21: PRINT CHR$(R(J)); NEXT 

738 PRINT CHR$<191) 

748 PRINT: PRINT "VIPPEE!! NOU SEE IF VOU CRN CATCH HIM IN FEHER HOVES. ' 

758 PRINT 

768 INPUT "ANOTHER ROUNDUP"; F$ 

778 IF LEFT$(F$,1)="V THEN 218 

788 GOTO 810 

730 PRINT: PRINT: PRINT "ENOUGH! VOU'D DO BETTER AS THE CRHP COOK!" 

888 GOTO 768 

818 END 



VIPPEE! ! NOW SEE IF VOU CAN CATCH HIM IN FEWER MOVES. 

ANOTHER ROUNDUP' N- 

els 



45 



C#iiffit^i'P 



• CIS ■ 



The program Countdown is based on 
the program Guess in which the 
computer c looses a random number 
and then gnes you clues whether you 
are too high or too low until you finally 
get the nu nber. In Countdown, the 
program acds a little interest to this 
guessing qi me by giving you a certain 
number of tries to get the mystery 
number beiween one and ten before 
your schoolbuilding explodes. Using a 
good gues;ing strategy should allow 
you to get a ny number in four or fewer 
tries. If you take more than four tries, 
the buildinu goes "boom." To add a 
little more interest to the game, you 
may want to make the maximum 
number of tries three. To do this 
change the value of T in statement 
150 from 4o 3. 

Countdown was written by MarK 
Chambers. 



COUNTDOWN 
COPVRIG IT 1979 CREATIVE COMPUTING MORRISTOMN, NJ 



• els • 



HIT ENTER TO S 'ART? 



- els • 



VOU HAVE ACTIV iTED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, V( U MHV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOI THE COUNT-DOWN. 

PLEASE HURRV ' THERE IS NO TIME TO WASTE! ! ' " ! ' 



• els ■ 



WHAT'LL IT BE? 2. 

VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, Vi'U MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOI THE COUNT-DOWN. 

PLEASE HURRV! ' THERE IS NO TIME TO WASTE! !!".!' 

CORRECT! 111 

THE COUNTDOWN ,IRS STOPPED. 

VOU HAVED SAVEh THE SCHOOL! 

(HAVE VOU SEEN VOUR SHRINK LATELV ?> 

TRV AGAIN? _ 

Cl3 



VOU HAVE ACTIV iTED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, V! U MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOI THE COUNT-DOWN. 

PLEASE HURRV ' THERE IS NO TIME TO WASTE! " ! ! ! > 



WHAT'LL IT BE? 1_ 



els • 



VOU HAVE ACTIV ITED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, V( U MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOI' THE COUNT-DOWN. 

PLEASE HURRV! ! THERE IS NO TIME TO WASTE! " ! " ! 

TOO SMALL!!!! 1 

VOUR NUMBER DOI S NOT COMPUTE! ' 

PLEASE TRVflGflN!!!! 

HHBT'LL IT BE? 4_ 

els 

46 



VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, VOU MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOP THE COUNT-DOWN. 

PLEASE HURRY! ' THERE IS NO TIME TO WASTE! !!'!!' 

TOO SMALL " ! ' 

VOUR NUMBER DOES NOT COMPUTE! ! 

PLEASE TR" AGAIN!!" 

TIME GROWS SHORT, PLEASE HURRV " ! ! " • 



WHAT'LL IT BE? 2_ 



■ Cl3 ■ 



VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, VOU MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOP THE COUNT-DOWN. 

PLEASE HURRV ' THERE IS NO TIME TO WASTE! >."•'.' 

TOO SMALL 1 "!' 

VOUR NUMBER DOES NOT COMPUTE!' 

PLEASE TR 1 ' AGAIN!" 1 

HURRV, THE COUNT-DOWN IS APPROACHING ZERO! !!'""' 

WHAT'LL IT BE? 1_ 



TOO LATE 



— BOOM — 



TRV AGAIN'' NO- 



■ els ■ 



IB CLS: PR 
26 PRINT; 
IB PRINTS: 
48 CLS 
50 R=INT<F: 
68 T=0 
78 N=8 
88 PRINT " 
38 PRINT 
100 PRINT 
118 PRINT 
128 PRINT 
138 PRINT 
140 PRINT 
150 IF T=4 
168 GOTO 
178 REM 
18B PRINT 
198 PRINT 
200 IF T=2 
210 IF TK 
220 GOTO 1 
230 PRINT 
240 PRINT 
250 PRINT 
266 PRINT 
270 LET T=: 
280 INPUT 
298 PRINT 
300 GOTO 1 
316 CLS 
320 PRINT 
330 PRINT 
340 PRINT 
350 PRINT 
360 INPUT 
370 PRINT 
380 GOTO 1 
390 IF X< 
400 IF X>l 
410 IF X=f 
420 END 



INT0412, "COUNTDOWN" 

PRINT TABC7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

66, ""; INPUT "HIT ENTER TO START"; If- 

MK0>*16> 



•VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM "; 
IN THIS SCHOOL. " 

"IF VOU WISH, VOU MHV STOP THE MECHANISM. " 
"TO DO SO, JUST TVPE IN THE CORRECT NUMBER, " 
"WHICH WILL STOP THE COUNT-DOWN. " 
"PLEASE HURRV ' THERE IS NO TIME TO WASTE! '!!!!!" 
PRINT "WHAT'LL IT BE"; . INPUT X:PRINT§384, CHR$<31); 
THEN 318 
96 

"VOUR NUMBER DOES NOT COMPUTE! 1 " 
"PLEASE TRV AGAIN!!! 1 "' T=T+1 

THEN 296 

THEN 376 
46 

"CORRECT! 1 ""- LET N=5 
"THE COUNTDOWN HAS STOPPED. " 
"VOU HAVED SAVED THE SCHOOL!" 
"CHAVE VOU SEEN VOUR SHRINK LATELV ?)" 
10 

"TRV AGAIN"; A* IF LEFWAS, 1)="V" THEN 48 ELSE 420 
"TIME GROWS SHORT, PLEASE HURRV "!!!"" 
46 

TABC28); "TOO LATE" 

PRINT PRINT PRINT TABC28); CHR*(92); " **** "iCHR$<92> 
TABC27); "— BOOM — " 
TAB<28); "I **** C " 

"TRV AGAIN"; A* IF LEFT$<A$, 1)="V" THEN 40 ELSE 420 
"HURRV, THE COUNT-DOWN IS APPROACHING ZERO! !'".".!■" 
40 
A THEN PRINT "TOO SMALL! !!!'"• GOTO 170 

THEN PRINT "TOO BIG! !!!!"• GOTO 170 

THEN 230 




Cup is a cute little game in which a 
cup is located thirty "Y" coordinates 
down the video display and a random 
number of spaces from one to sixty 
to the right of the left margin. The 
pull of gravity varies from one to ten 
lines per second per second. You are 
then asked in this program what 
push you would like to give the ball 
from left to right across the paper in 
spaces per second. The program 
then traces the path of the ball from 
the left margin of the paper as it falls 
down and hopefully into the cup. 

A knowledge of physics is helpful 
if you wish to get the ball in the cup 
on the first try. However, you can 
diddle with it by trial and error and 
generally hit the cup on your fourth 
or fifth try. 

Cup was written by Jonathan 
Freidin. 



CUP 
COPVRIGHT 1979 CREATIVE COMPUTING HORRISTOWN, NJ 



• cla ■ 



HIT ENTER TO START? . 

THE CUP IS 20 LINES DOWN AND 23 SPACES OVER. 
THE PULL OF GRAVITV IS 4 LINES/SECOND/SECOND. 
WHAT IS THE PUSH VOU MOULD LIKE TO GIVE THE BALL 
ACROSS THE PAPER (IN SPACES/SECOND)? 4_ 



■ Cl3 • 



i«»########»########S##ft####»#tt#»############################(t 



VOU MISSED. TRV AGAIN. 



10 CLS. PRINT?415, "CUP" 

20 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 
20 PRINTC960, ""; INPUT "HIT ENTER TO START"; A$ 
46 CLEAR 500: DIM S(30,6i> 
50 LET L=RND(60) 
60 IF L=60 OR L=l THEN 50 
70 CLS: LET G=RND(10> 

80 PRINT "THE CUP IS 30 LINES DOWN AND"; L; "SPACES OVER. " 
90 PRINT "THE PULL OF GRAVITV IS"; G; "LINES/SECOND/SECOND. " 
100 PRINT "WHAT IS THE PUSH VOU WOULD LIKE TO GIVE THE BALL" 
110 PRINT "ACROSS THE PAPER (IN SPACES/SECOND)"; 
120 INPUT T 
138 PRINT 

140 PRINT "THE RESULTS MAV TAKE ANVWHERE BETWEEN 5 AND 20 SECONDS. " 
150 PRINT PRINT 

ISO FOR Z=l TO SQR(60*GVG STEP . 1 
170 LET V=T*Z*2 
188 LET X=G/2*ZC2 

190 IF X>30. 5 OR XC 5 OR V>60. 5 OR VC 5 THEN 328 
200 IF INT(X>=29 AND INT(V)=L THEN 330 
210 IF INT(X)+1=29 AND INT(VH1=L THEN 330 
220 IF INT(X>=29 AND INT(V)=L-1 THEN 330 
230 IF INT(XH1=29 AND INT(V)+1=L-1 THEN 330 
240 IF INT(X>=29 AND INT(V)=L+1 THEN 358 
250 IF INT(X)+1=29 AND INT(VH1=L+1 THEN 350 
260 LET S(X, V)=2 
278 FOR D=l TO 5 
288 IF V<6 THEN 310 
298 LET S(X, V-D)=8 
300 NEXT D 
310 NEXT Z 
328 GOTO 380 
330 LET W=l 
340 GOTO 360 
359 LET W=2 
3S0 LET S(29, L)=2 
370 GOTO 390 
380 LET W=8 
3S0 LET P*=" * " 

400 CLS: PRINT#704, STRING*(64, "#">; 
410 FOR A=(L-2)*2 TO L*2+l. SET(A,38V NEXT 
420 SET((L-2>*2,29) 
420 SET(L*2+i, 29) 
448 FOR X=l TO 30 
458 FOR Xl=l TO 60 

460 IF S(X,X1)O0 THEN S(X,X1>=8: GOTO 498 
470 NEXT XI 
480 GOTO 520 
490 REM 

580 SET((X1-1)*2,X)- SET((X1-1)*2+1,X) 
518 REM 
520 REM 
538 NEXT X 
540 PRINT 

558 IF W=l THEN 590 
568 IF W=2 THEN 610 

570 PRINT§96a "VOU MISSED. TRV AGAIN. "; : FOR A=l TO 1580: NEXT 
588 CLS: GOTO 80 
590 PRINT8896, 
588 GOTO 620 
61B PRINT8896, 
620 PRINT8960, 
638 INPUT A* 
648 IF LEFT*(ftt,i>="V i 
658 END 



RIGHT IN 



'VOU ALMOST DIDN'T MAKE IT, BUT IT BOUNCED IN. 
DO YOU WANT TO PLAV AGAIN "; 

THEN CLEAR 586: GOTO 46 



47 




aaier's d'hote 



This c 
quiz/cha 
You, the 
with. Yoi 
loosely r 
games b 
theTVge 
interests 
games ar 

This g 
Carey. 



ame is based on the TV 
ice show. Dealer's Choice, 
olayer, are given $100 to start 
i then play five card games 
lodeled on casino gambling 
it with variations peculiar to 
me making it, hopefully, more 
g to the TV audience. The five 
9 well-explained in the rules, 
ime was written by Thomas 



DEALER'S CHOICE 
COPVRI HT 1579 CREATIVE COHPUTING HORRISTOWH, NJ 



HIT ENTER HHB READY? . 



0l8 • 



ClS ■ 



THIS PROGRf 1 HILL SIMULATE THE T. V. SHOW, DERLER'S CHOICE 

vou have $iee ro strrt with enjoy the game 

FOR THE FII ST GRHE. HE HILL PLflV ON THE WHEEL OF CHANCE. 
THE OBJECT IS SIMPLE GUESS HHflT SUIT HILL RPPEfiR ON THE 
WHEEL FH> VOU JILL GET PAID AT THOSE ODDS IF VOU ARE RIGHT. 
THE ODDS ARE 1 3 FOLLOWS; 



1 = DIRHONDS f T 11 TO 1 ODDS 

2 = HEARTS AT 2 TO 1 ODDS 



2 = SPADES AT 1 TO 1 ODDS. 
4 = CLUBS AT 2 TO 1 ODDS. 



YOU NAY BET UF TO $25. GOOD LUCK! 



HHAT SUIT DO S JU WANT? 1 
HHflT IS THE Bt F? 25. 



Cl8 ■ 



O.K. NOH THAT YOUR BET IS IN, HE HILL SPIN 

THE HHEEL GO D LUCK! 

TIC HHEEL IS LOHING DOHN. 

THE WHEEL IS TOPPING. 

THE SUIT IS * ** 2 **** 

VOU LOSE. 



HERE I GO: 
THE CA!:0 IS A 7. 
DEALER' S TOTAL SO FAR: 
THE CAI.D IS A 9. 
DEALER'S TOTAL SO FAR: 
THE CAJ:D IS A 10. 
DEALER'S TOTAL SO FAR: 



- els ■ 



26. 



I BLEH IT. VOU KIN THE GREATEST AMOUNT ALLOHED TO BE 

BET BY THE HOUSE 

VOU KELP IT HITH OUR BEST HISHES. 

AT THE END OF PART 2, VOU HAVE * 95. 

PRESS ANY KEY TO CONTINUE 

NOH HE ENTER THE LAST CHANCE ROUND. IF YOU HAKE UP TO 
$288 YUU HILL BE ABLE TO GO INTO THE BONUS ROUND. THE 
OBJECT IS TO GUESS INTO WHICH CATEGORY THE TOTAL OF 5 CARDS 
HILL AID UP TO. THESE ARE THE CATEGORIES: 



1 = 31-49 HT 1 TO 1 ODDS 

2 = 21-21 AT 2 TO 1 ODDS 



GOOD LUCK! 



2 = 41-58 AT 2 TO 1 ODDS 
4 = 6-28 AT 28 TO 1 ODDS 



AT THIS POINT IN THE GAME YOU HAVE $ 95. 



UHAT CATEGORY DO YOU HANT? 1 
HHAT IS THE BET? 55. 



- els 



THE CAfiDS ARE HON BEING ADDED UP. 
GOOD LUCK! 

CARD H.WER 1 IS A 12. YOUR TOTAL SO FAR: 12. 
CARD WJIfiER 2 IS A 8. YOUR TOTAL SO FAR: 21 
CARD WISER 2 IS A 2. VOUR TOTAL SO FAR: 24. 
CARD (USER 4 IS A 1 YOUR TOTAL SO FAR: 25. 
CARD MJIBER 5 IS A 18. YOUR TOTAL SO FAR: 25. 
YOU Hill! 

AT THE END OF THE GAHE YOU HAVE A GRAND TOTAL OF $ 158 
THIS IS THE END OF THE GAHE I HOPE YOU ENJOYED IT. 
READY 



• els 



AT THE END OF PART 1, YOU HAVE $ 75. 

PRESS ANY KEY TO CONTINUE 
els 



THIS IS THE Gl HE OF IN BETHEEN THE OBJECT IS. 5 CARDS MILL 
BE DEALT OUT. IF ANY CARD IS LESS THAN A 3 OR GREATER THAN A 
18, THE GAME : S OVER. YOU HAY BET UP TO $38. VOUR HONEV 
HILL BE DGUBU D EACH TINE VOU ARE RIGHT. GOOD LUCK! 

HHAT IS THE Bl T? 28 

CARD NUMBER 1 IS A 7. 

VOU ARE STILL IN THE GAHE VOU HAVE $ 68. 

STOP OR GO? S . 

els 



THIS IS THE G HE OF IN BETHEEN. THE OBJECT IS: 5 CARDS HILL 
BE DEALT OUT. IF ANY CARD IS LESS THAN A 2 OR GREATER THAN A 
18, THE GAHE S OYER. YOU HAY BET UP TO $28. YOUR HONEY 
HILL BE DOUBL D EACH TIKE YOU ARE RIGHT. GOOD LUCK! 

CARD NUMBER 2 IS A i 

YOU LOST. AT HE END OF PART 2, YOU HAVE $ 45 
PRESS ANY KEY TO CONTINUE 
els 



THIS IS THE G IKE OF BLACKJACK DEALER'S CHOICE STVLD 

THE OBJECT 15 TO BEAT THE DEALER WITH OVER 17 OR 21 OR 

UNDER. VOU HA ' BET UP TO $58. YOU KAY STOP WHEN VOU WISH 

IF YOU HAKE B flCKJAOG YOUR HONEY IS DOUBLED. 

IF THE HOUSE EBLS OUT LESS THAN A TOTAL OF 17 IN 6 TRIES, 

YOU HILL KEEP THE HONEY YOU BET. GOOD LUCK! 

THE DEALER HI L GET HIS CARDS FIRST 

m YOU RERDV ' YES. 

els 



18 CLS. PR1TO469, "DEALER'S CHOICE" 

28 PRINT: PRINT TAB(7) 'COPYRIGHT 1979 CREATIVE COHPUTING MORRISTOWN, NJ" 

28 PRIIIT8966, "; : INPUT "HIT ENTER WHEN READY") 1$: CLS 



48 PRIHT ' 
59 PRIHT ' 
68 0=1:8 
78 PRIHT ' 
89 PRIHT ■ 
98 PRIHT ' 
188 PRINT 
118 PRIHT 
128 PRINT 
138 PRINT 
148 PRINT 
158 PRIHT 



' THIS PROGRAM WILL SIMULATE THE T.V. SHOW, DEALER'! 
VOU HAVE $188 TO START HITR ENJOY THE GAHE " 



CHOICE" 



' FOR THE FIRST GAHE, HE HILL PLAY OH THE HHEEL OF CHANCE ■ 
'THE OBJECT IS SIMPLE GUESS HHAT SUIT HILL APPEAR ON THE" 
'WHEEL AND YOU HILL GET PAID AT THOSE ODDS IF VOU ARE RIGHT. " 
"THE ODDS ARE AS FOLLOWS:"' PRINT 

"1 = DIAMONDS AT 11 TO 1 ODDS", "2 = SPADES AT 1 TO 1 ODDS. » 
"3 = HEARTS AT 2 TO 1 ODDS", "4 = CLUBS AT 3 TO 1 ODDS. " 

. PRINT 



"YOU NAY BET UP TO $25. GOOD LUCK!' 

"HHAT SUIT DO VOU HANT"; • INPUT A 
168 IF AM OR A<1 THEN 188 
178 IF AC=4 THEN 198 

188 PRINT "*** YOU PICKED A WRONG SUIT ***"' GOTO 159 
198 PRINT "HOT IS THE BET"; ■ INPUT B8: CLS 
288 IF B8>25 OR B8<=8 THEN 228 
210 IF B8<=25 THEN 238 

228 PRIHT "«* VOU BET OYER TIC HOUSE LIMIT ***": GOTO ISO 
228 PRINT: PRINT "0. K. NOH THAT YOUR BET IS IN, HE HILL SPIN" 
248 PRINT "THE HHEEL GOOD LUCK!"' FOR Bi=l TO 19*199: NEXT Bl 
258 PRINT "THE HHEEL IS SLOWING DOWN. " 
268 FOR Bi=l TO 7*189: NEXT Bl: PRIHT "THE WHEEL IS STOPPING " 
278 FOR Bl=i TO 4*188: NEXT Bl 
288 PRINT "THE SUIT IS "; FOR M=i TO 4*188 
298 HE IT Bl 

288 Z=IHT(4*RND(8)+1): PRINT"****"; 2i "****" 
310 IF Z=fi THEN 338 
329 IF ZOH THEN 389 



48 



338 ON Z GOTO 340,356,368,370 

348 0=0+<ll*B8>: PRINT "VOU H1H ON DIRMOMOS!"' GOTO 390 

358 0=0+<i*B8>: PRINT "VOU HIN ON SPRDES!"' GOTO 298 

266 0=0+<3tB8>: PRINT "VOU WIN ON HEARTS!"- GOTO 298 

278 0=OH3*B8)' PRINT "VOU HIN ON CLUBS!": GOTO 398 

2-88 0=0-(l*88>: PRINT "VOU LOSE ": GOTO 398 

398 PRINT: PRINT "AT THE END OF PART i, VOU HAVE $"; Oi CHR$<8>; " " 

400 GOSUB 1920 

418 PRINT "THIS IS THE GRHE OF IN BETHEEN. THE OBJECT IS: 5 CARDS HILL" 

420 PRINT "BE DEALT OUT. IF HNV CARD IS LESS THAN A 3 OR GREATER THAN A" 

438 PRINT "18, THE GAME IS OVER VOU HAV BET UP TO $38. VOUR MONEV" 

446 PRINT 'HILL BE DOUBLED EACH TIKE VOU ARE RIGHT. GOOD LUCK!": PRINT 

458 PRINT "WHAT IS THE BET"; • INPUT A 

468 IF fl>38 THEN PRINT "*** VOU BET OVER THE HOUSE UNIT ***"• GOTO 458 

478 T=T+1: Z=IHT<12*RND(8)+i> 

486 PRINT "CARD NUHBER";T;"1S A"; Z; CHR$<8>; " ":B=BK2*A> 

498 IF ZG OR D10 THEN 558 

568 IF T=5 THEN 578 

510 PRINT "VOU ARE STILL IN THE GAHE VOU HAVE $";B;CHR$<8>; " " 

526 PRINT "STOP OR GO"; INPUT A* 

538 IF LEFT$<A$,1)="S" THEN 578 

540 PRIITO328, CHR$(31>; GOTO 478 

558 Q=0-A 

568 PRINT "VOU LOST. RT THE END OF PART 2, VOU HAVE $";0; " "• GOTO 588 

578 PRINT "VOU WIN. AT THE END OF PART 2, VOU HAVE $";BiO; " "' 0=8+0 

588 GOSUB 1926 

598 PRINT "THIS IS THE GAME OF BLACKJACK <DEALER'S CHOICE STVLD" 

668 PRINT 

616 PRINT "THE OBJECT IS TO BEAT THE DEALER WITH OVER 17 OR 21 OR" 

628 PRINT "UNDER. VOU HAV BET UP TO $58. VOU HAV STOP HHEN VOU WISH " 

638 PRINT 

640 PRINT "IF VOU HAKE BLACKJACK, VOUR MONEV IS DOUBLED. " 

658 PRINT "IF THE HOUSE DERLS OUT LESS THAN R TOTAL OF 17 IN 6 TRIES, " 

668 PRINT "VOU HILL KEEP THE HONEV VOU BET. GOOD LUCK!":PRINT 

670 Z5=8: a=0: PRINT "THE DERLER HILL GET HIS CARDS FIRST": PRINT 

680 INPUT "ARE VOU RERDV*;R$: CLS 

690 C=0: C3=8 

768 PRINT "HERE I GO:" 

718 Q=INTU2*RND<0)+1> 

728 25=0+25 

738 PRINT "THE CARD IS A "; Q; CBR$<8>; " ■• C=C+1 

748 PRINT "DERLER'S TOTRL SO FRR:";Z5;CHR$<8>;" ": IF C=6 THEN 888 

750 IF Z5<17 THEN 718 

768 IF Z5>21 THEN 868 

778 IF Z5=21 THEN 828 

788 IF Z5<21 THEN 828 

798 IF Z5M7 THEN 828 

868 IF Z5<17 THEN 848 

818 IF Z5>=17 THEN 758 

828 PRINT "I STOP. THE TOTAL FOR ME IS"; Z5; CHR$(8); " ": G0T0888 

838 PRINT "I GOT BLRCKJRCK!": GOTO 888 

848 PRINT: PRINT "THE HOUSE DELT OUT LESS THAN 17. HON VOU MUST TRV TO" 

856 PRINT "BEAT It "; : PRINT: GOTO 888 

868 PRINT: PRINT "I BLEH IT. VOU HIN THE GREATEST RKOUNT ALLOWED TO BE" 

878 PRINT "BET BV THE HOUSE. "• GOTO 1116 

888 PRINT "HHRT IS VOUR BET"; INPUT R: CLS 

890 IF fl>0 THEN 936 

966 IF fl>56 OR A<=6 THEN 928 

918 IF A<=56 THEN 948 

928 PRINT ■*** VOU BET OVER THE HOUSE LIMIT ***"■ GOTO 888 

938 PRINT "*** VOU BET OVER HHBT VOU HRVE «*"• GOTO 888 

948 M=INT<12*RND<8)+1>: PRINT "VOUR CARD IS A";QliCHR$(8)i" "• C3=C3+1 

956 a=Ql+Zl: PRINT "SO FAR THE TOTAL FOR VOU IS"; Zl; CHR$<8>; " " 

968 IF ZD21 THEN 1670 

970 PRINT "STOP OR GO"; INPUT A$ 

988 IF LEFT$<R$,1)="S" THEN 1866 

998 IF LEFT$<R$,i)=«G" THEN 948 

1886 IF Z1=Z5 THEN 1656 

1918 IF Zi<25 THEN 1878 

1620 IF Zl=21 THEN I860 

1638 IF Z5<Z1 THEN 1688 

1040 IF Z1<1? THEN 1098 

1856 CLS: PRINT "HE HAVE THE SANE TOTRL SO HE HILL PLAV AGAIN. ":GOTO 678 

1866 CLS: 0=0+<2*A): PRINT "VOU BERT THE DEALER HITH BLACKJACK! !":60T0 1128 

1678 CLS: 0=0-<l*A):PRINT "THE DEALER BERT VOU. VOU LOSE ":GOTO 1120 

1680 CLS. 0=0+a*R):PRINT "THE DERLER LOST. VOU HIN!":GOT0 1126 

1090 CLS: 0=0+<l*R):PRM "THE HOUSE DELT OUT LESS THAN 17 IN" 

1189 PRINT "6 TRIES. TO GET THE HONEV VOU BET! "'.GOTO 1128 

1118 0=0+58:PRIHT "VOU KEEP IT HITH OUR BEST NIKS. ":60T0 1128 

1128 PRIHT:PRINT "AT THE END OF PART 3, VOU HAVE $"; 0; CKR$<8>; " " 

1128 IF O<=0 THEN 1530 



1148 GOSUB 1928 

1158 PRINT "NOH HE ENTER THE LAST CHANCE ROUND. IF VOU HAKE UP TO" 
1168 PRINT "$389 TO) HILL BE ABLE TO GO INTO THE BONUS ROUND. THE" 
1178 PRINT "OBJECT IS TO GUESS INTO HHICH CRTEGORV THE TOTRL OF 5 CARDS" 

1189 PRINT "HILL ADD UP TO. THESE ARE THE CATEGORIES:":PRINT 

1190 PRINT "1 = 31-46 AT 1 TO 1 ODDS 2 = 41-56 AT 3 TO 1 ODDS" 
1280 PRINT "3 = 21-31 RT 3 TO 1 ODDS 4 = 6-28 RT 28 TO 1 ODDS" 
1218 PRINT:PRINT "GOOD LUCK! !":PR1NT 

1226 PRINT "AT THIS POINT IN THE GfiHE VOU HAVE $"; 0; CHR$(8); " ":PRIHT 

1228 PRINT "HHRT CRTEGORV DO VOU HRNT"; : INPUT A 

1248 IF (K=4 THEN 1278 

1258 IF R>4 THEN 1268 

1266 PRINT "«** VOU BET ON A HRONG CRTEGORV ***":GOTO 1238 

1276 PRINT "HHAT IS THE BET"; : INPUT B: CLS 

1288 IF BOO THEN 1318 

1298 IF B>0 THEN 1388 

1368 PRINT "*** VOU BET OVER WHAT TO HAVE ***":GOT0 1276 

1318 PRINT "THE CARDS ARE NOH BEING ADDED UP. ":PR1NT "GOOD LUCK!" 

1328 Q=INT<12*RHD<8)+i):Cl=Cl+l 

1338 PRINT "CARD NUMBER"; CI; "IS fl";QjCHR$<8);", "; 

1348 Z=Z+Q:PR1HT "VOUR TOTRL SO FAR:";Z;CHR$(8);" ■ 

1358 IF Cl=5 THEN 1376 

1360 GOTO 028 

1378 ON R GOTO 1288,1418,1448,1478 

1389 IF ZGi THEN 1496 

1396 IF Z<48 THEN 1590 

1489 IF Z>48 THEN 1496 

1416 IF Z<41 THEN 1490 

1428 IF Z<58 THEN 1518 

1438 IF Z>58 THEN 1498 

1446 IF Z<21 THEN 1490 

1458 IF ZGi THEN 1518 

1468 IF Z>31 THEN 1490 

1478 IF Z<6 THEN 1490 

1488 IF Z<28 THEN 1526 

1496 0=0-<i*B):PRINT "VOU LOSE ":GOTO 1538 

1588 0=0+<l*B):PRINT "TO HIN!":GOT0 1538 

1516 0=0+C3*B>:60TO 1538 

1526 0=0+<28»B>:PRINT "TO MN!":GOTO 1538 

1536 PRINT :PRIHT "RT THE END OF THE GAME VOU HRVE A GRAND TOTAL OF $*;0; 

1548 IF 0G88 THEN 1986 

1558 FOR X=i TO 6:PRINT CHR$(7); :FOR Bl=l TO 108:HEXT Bi:NEXT X 

1568 PRINT CHR$<26> 

1578 PRINT "VOU ARE RIGIBLE FOR THE BONUS ROUND. " 

1588 PRINT "DO VOU HANT TO PLRV IT"; : INPUT At:PRINT 

1598 IF LEFT$<R$,i)="N" THEN 1988 

1669 CLS: PRINT "THIS IS THE BONUS ROUND. IF VOU GET A TOT& OF 1,888" 

1610 PRINT "HITHOUT GETTING R SPADE IN THE ROLLS, VOU HILL GET" 

1626 PRINT "A GRAND PRIZE OF $16, 668. 66. TO HAV STOP AT RNV POINT" 

1636 PRINT "DURING THE GAME VOU HILL KEEP HHAT VOU MADE GOOD LUCK!" 

1646 PRINT: INPUT "ARE VOU READV";SS$: CLS 

1658 DIM A(5),B(4):R9$="SPADES" 

1668 PRINT "THE DICE ARE ROLLING. »:PRIHT "GOOD LUCK. " 

1678 PRINT "THE DICE RRE" 

1688 FOR Bl=i TO 188*5:NEXT Bl 

1698 X=INT<5*RND<8)+1> 

1788fl<l)=58:R<2>=i88:A<3)=i59:A<4>=288:A<5>=8 

1718 V=INT(4*RND<8>+1> 

1728 B<l)=50:B(2)=ie9:B<3>=158:B<4>=286 

1738 IF B<X>=8 THEN 1756 

1746 PRINT "«*+ ";A(X);B<V);"****":GOTO 1778 

1758 PRINT "**** ";A9$;B(V);"«**":G0T0 1838 

1766 PRINT "TOTAL SO FRR:";B(V);CHR$<8);" ".GOTO 1838 

1778 B?=B7+<A<X)+B<V)>:PR1HT "VOU NOH HAVE",B7;CHR$<8>;" «:PRINT: 

1775 IF B7M888 THEN 1859 

1788 PRINT "STOP OR GO": INPUT B$ 

1790 IF LEFT$(B$,1)="G" THEN CLS: G0T01668 

1888 PRINT "SMART MOVE VOU GET THE HONEV FROM THE BEGINNING OF* 

1819 PRINT "THE GAME PLUS THE BONUS FOUND. AT THE END OF THE GHE" 

1826 PRINT "VOU HAVE THE GRRND TOTRL OF $"; B7+0; CHR$(8); " ":GOTO 1988 

1838 PRINT "VOU LOSE THE MONEV FROM THE LAST CHANCE" 

1846 PRINT "ROUND BUT VOU STILL HRVE R GRRND TOTAL OF $";0;CHR$(8);" ; ": GOTO 1966 

1858 FOR T=i TO 3:PRINT CHR$<7); :FOR 81=1 TO 188:KEXT B1:KEXT T 

1866 B7=0+18689:PRINT TAB<15); "**** CONGRATULATIONS «**■ 

1878 PRINT "VOU WON THE GRAND PRIZE. AT THE END OF THE GAME, VOU HAVE" 

1886 PRINT 

1898 PRINT TAB(IB) "***** $";B7; "«**♦" 

1908 PRINT:PRINT "THIS IS THE END OF THE GAME I HOPE VOU ENJOVED IT. " 

1910 END 

1920 PRINTC979, "PRESS ANV KEV TO CONTINUE"; 

1938 IF INKEV$=" THEN 1926 ELSE CLS: RETURN 
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DEEPSPCE 
space battle, 
mander of eith 
or battleship, 
weapons, arte 
patrol, and it's 

The closer y 
better your ch; 
Unfortunately, 
ing you also ii 
close, you can 
a vessel's dan 
exceeds 100, i' 

Suggestion: 
between repor 
game by allov 
faster. 

Deepspace 
Creative Com/: 



is another version of a 
f'ou become the com- 
er a scout ship, cruiser, 
You then pick the 
planetary system to 
time to do battle. 
)u get to the enemy, the 
ince of destroying him. 
his chance of destroy- 
nproves. If you get too 
damage yourself; when 
lage rating reaches or 
's destroyed. 

Change the time 
:s— this will shorten the 
/ing you to get closer 

originally appeared in 
uting, Mar/Apr 1976. 



DEEP SPACE 
COPYRIGHT 1979 CREATIVE COMPUTING KORRISTOHN, NJ 



DO YOU NEED INSTRUCT!! IS? YES. 



YOU ARE ONE OF fl GROUF OF CAPTAINS ASSIGNED TO PRTROL 
SECTION OF YOUR STAR E FIRE'S BORDER AGAINST HOSTILE 
ALIENS. ALL YOUR EHCM. ffERS WERE HILL BE AGAINST HOSTILE 
VESSELS. YOU HILL FIRS F BE REQUIRED TO SELECT A YESSEL 
FROH 0!E OF THREE TYPE 5, EACH HITH ITS OWN CHARACTERISTICS. 



TYPE 


SPEED 

18X 
4X 
2X 
PREiS 


RNYKE 


CARS) SPACE 


protect™ 


1- SCOUT 
2- CRUISER 

2- BATTLESHIP 


16 

24 

28 

Y TO CONTINUE 


1 
2 
5 






— els 







SPEED IS GIYEN RELATIV ; TO THE OTHER SHIPS. 

CARGO SPACE IS IN UNIT i OF SPACE ABOARD SHIP HHICH CRN BE 

FILLED HITH WEAPONS. 

PROTECTION IS THE RELF I IVE STRENGTH Of THE SHIP'S ARMOR 

AND FORCE FIELDS. 

ONCE A SHIP HAS BEEN S ELECTED, YOU HILL BE INSTRUCTED TO ARM 
IT HITH WEAPONRY FROH FHE FOLLOWING LIST 

PR! 5S ANY KEY TO CONTINUE 



TYPE 

1- PHASER BANKS 

2- ANTI-HATTER HISSILE 

3- HYPERSPACE LANCE 

4- PHOTON TORPEDO 



• els ■ 



CARGO SPACE REL STRENGTH 



12 

4 

4 

2 

• HYPERON NEUTRALI2AT [ON FIELD 28 



4 
28 
16 
19 

6 



WEAPONS #1 S « CAN BE FIRED 1B8 TINES EACH ALL OTHERS CAN 
BE FIRED ONCE FOR EACH ON BOARD. 

PRE 5S ANY KEY TO CONTINUE 



• els • 



A TYPICAL LOAD FOR A C iUISER NIGHT CONSIST OF: 
1-ti PHASER KK = 12 
2-13 HYPERSF ICE LANCES = 8 
2-M PHOTON TORPEDOES = 4 



24 WITS OF CARGO 
A HORD OF CAUTION: FI (ING HIGH YiaD HEAPONS AT CLOSE «198) 
RANGE CAN BE DANGEROUS TO YOUR SHIP AM) HINIHAL DAHAGE CAN 
OCCUR AS FAR OUT AS 2t 3 IN SOME CIRCUHSTANCES. 

RANGE IS GIVEN IN THOt JAHK OF KILOICTERS. 
DO YOU HISH A fflNEUVEF CHART? YES. 



■ els • 





MANEUVER CHST 


1 


FIRE PHFSERS 


2 


FIRE AH1I-HATTER HISSILE 


3 


FIRE HYfERSPACE LANCE 


4 


FIRE PHOTON TORPEDO 


5 


ACTIVE KVPERON NEUTRALIZATION FIELD 


6 


SELF-DESTRUCT 


7 


CHANGE \aOCITY 


8 


DISENGACE 


9 


PROCEED 




PRESS fiNY KEY TO CONTINUE 




els 



YOU HAVE A CHOICE OF THREE SYSTEHS TO PATROL 

1- ORION 

2-DENEB 

3- ARCTURUS 

SELECT A SYSTEM (1-3)? 3 

HHICH SPACECRAFT MOULD YOU LIKE (1-3)? 2. 

els 



YOU HAVE 24 UNITS OF CARGO SPACE TO FILL HITH WEAPONRY. 
CHOOSE A KEAPON AND THE HHOUNT YOU HISH? 11. 

els 

YOU HAVE 12 UNITS OF CARGO SPACE TO FILL HITH WEAPONRY. 
CHOOSE fl (CAPON RND TIC AMOUNT YOU HISH? 2,1. 



els • 



YOU HAVE 8 UNITS OF CARGO SPACE TO FILL HITH WEAPONRY. 
CHOOSE A WEAPON AND THE AHOUNT YOU HISH? 3,1. 
els 



YOU HAVE 4 UNITS OF CARGO SPACE TO FILL HITH WEAPONRY. 
CHOOSE A WEAPON AND THE AHOUNT YOU HISH? 4.2. 
els 



YOU HAVE 4 UNITE OF CARGO SPACE TO FILL HITH WEAPONRY. 
CHOOSE A WEAPON AND THE AMOUNT YOU HISH? 4,2 
RANGE TO TARGET 778. 492 
RELATIVE VELOCITY: 1 88861 
ACTION? 9. 

RANGE TO TARGET: 747. 449 
RELATIVE VELOCITY: 1 88861 
ACTION? 7. 



CHANGE TO BE EFFECTED? . 5 
RANGE TO TARGET: 747. 449 
RELATIVE VELOCITY: 1 58861 
ACTION? 4. 



SCAHNERS REPORT ENEHY DAHAGE NOW: 1 87234 
DAMAGE CONTROL REPORTS YOUR VESSEL DAHAGE AT: 1 1 

RANGE TO TARGET: 722.481 
RELATIVE VELOCITY: 158861 
ACTION? L 



SCAWERS REPORT ENEHY DAMAGE NOW: 4. 42741 
DAMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT: 

RANGE TO TARGET: 697.514 
RELATIVE VELOCITY: 1 58861 
ACTION? 3. 



■ CIS ■ 



5CANNERS REPORT ENEMY DAMAGE NOW: 11 3564 

DAMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT: 5. 52437 

RANGE TO TARGET: 672. 546 
RELATIVE VELOCITY: 158861 
ACTION? 2. 



SCANNERS REPORT ENEMY DAMAGE NOW: 18. 8373 

DAMAGE CONTROL f SPORTS YOUR VESSEL DAHAGE AT: 7. 68276 

RANGE TO TARGET: 647. 578 
RELATIVE VEL0CI1V: 158861 
ACTION? 7. 



CHANGE TO BE EFFECTED? -2 
RANGE TO TARGET: 647. 578 
RELATIVE VELOCITY:- 419288 
ACTION? L 
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SCANNERS REPORT ENEMY DAMAGE NOW: 28.6822 
DAMAGE CONTROL CEPORTS YOUR VESSEL DAMAGE AT: 8. 89969 
els 



16 OS: PRIHTMii, "DEEP SPflCE" 

28 PRIHT: PRINT TAB(?) "COPYRIGHT 1979 CREATIVE CONFUTING HORRISTOHN, NJ" 

38 PRINT8968, ""; INPUT 'DO YOU NEED INSTRUCTIONS"; 1$ 

48 IF LEFT*(I$,i)="N" THEN 498 

58 OS: PRINT TAB(27) "DEEP SPflCE": PRINT 

68 PRINT "VOU ARE ONE OF fl OROUP OF CflPTRINS ASSIGNED TO PATROL A" 

78 PRINT "SECTION OF TOR STAR EMPIRE'S BORDER AGAINST HOSTILE" 

88 PRINT "ALIENS. ALL TOR ENCOUNTERS HERE MILL BE AGAINST HOSTILE" 

98 PRINT "VESSELS. TO HILL FIRST BE REQUIRED TO SELECT A VESSEL" 

108 PRINT "FROM ONE OF THREE TYPES, EACH HITH ITS OWN CHARACTERISTICS:" 

118 PRIHT: PRINT " TVPE". "SPEED", "CARGO SPACE", "PROTECTION" 

128 PRINT " " , " ", "— ", " " 

128 PRINT "1- SCOUT", " 10X", " 16", " 1" 

140 PRINT "2- CRUISER", " 4X", " 24", " 2" 

158 PRINT "3- BATTLESHIP", " 2X", " 38". " 5" 

168 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

178 IF INKEY*=" THEN 178 ELSE PRINT8128, CHRK3D; 

188 PRIHT "SPEED IS GIVEN RELATIVE TO THE OTHER SHIPS. " 

190 PRINT "CARGO SPACE IS IN UNITS OF SPACE RBOARD SHIP WHICH CRN BE" 

288 PRINT "FILLED HITH WEAPONS. " 

218 PRINT "PROTECTION IS THE RELATIVE STRENGTH OF THE SHIP'S ARHOR" 

228 PRINT "AND FORCE FIELDS. " 

230 PRINT: PRINT "ONCE A SHIP HAS BEEN SELECTED, TO HILL BE INSTRUCTED TO ARM' 

240 PRINT "IT HITH WEAPONRY FROM THE FOLLOWING LIST" 

258 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

268 IF INKEY*=" THEN 268 ELSE PRINT8128, CHRK31); 

270 PRINT 

288 PRINT " TYPE 

298 PRINT " 

388 PRINT "1- PHASER BANKS 

318 PRINT "2- ANTI-HATTER MISSILE 

320 PRINT "3- HYPERSPACE LANCE 

338 PRINT "4- PHOTON TORPEDO 

348 PRINT "5- HVPERON NEUTRALIZATION FiaD 

358 PRIHT :PRINT "WEAPONS II S 15 CRN BE FIRED 106 TIKES EACH. ALL OTHERS CAN" 

368 PRINT "BE FIRED ONCE FOR EACH ON BOARD. ■ 

378 PRINT0979, "PRESS ANY KEY TO CONTINUE"; 

388 IF 1NKEY*=" THEN 388 ELSE PRINT8128, CHSOl); 

398 PRINT "A TYPICAL LOAD FOR A CRUISER HIGHT CONSIST OF'" 



CARGO SPACE 


REL STRENGTH' 


12 


4" 


4 


28" 


4 


16" 


2 


18" 


ID 28 


6" 



408 PRINT 
418 PRINT 
428 PRINT 
438 PRINT 
440 PRINT 
458 PRINT 
468 PRINT 



1-fl PHASER- BANK 

2-13 HYPERSPACE LANCES 
2-14 PHOTON TORPEDOES 



:12" 



= 4" 



24 UNITS OF CARGO" 
• A WORD OF CAUTION: FIRING HIGH YIELD WEAPONS AT CLOSE «188)" 
RANGE CAN BE DANGEROUS TO YOUR SHIP AND MINIMAL DAMAGE CAN" 

470 PRINT "OCCUR AS FAR OUT AS 288 IN SOKE CIRCUMSTANCES. " 

488 PRINT: PRINT "RANGE IS GIVEN IN THOUSANDS OF KILOMETER! " 

498 PRINT "DO YOU WISH A HANEUVER CHART"; : INPUT HI 

568 IF LEFT*(H*,1)="N" THEN 630 



510 CLS: PRINT 


HANEUVER CHART" :PRINT " ' 


520 PRINT " 1 


F1REPHASERS" 


530 PRINT " 2 


FIRE ANTI-HATTER HISSILE" 


548 PRINT " 3 


FIRE HYPERSPACE LANCE" 


558 PRINT " 4 


FIRE PHOTON TORPEDO" 


560 PRIHT " 5 


ACTIVE HYPERON NEUTRALIZATION FIELD" 


570 PRINT " 6 


SELF-DESTRUCT" 


588 PRINT " 7 


CHANGE VELOCITY" 


598 PRINT ■ 8 


DISENGAGE" 


688 PRINT " 9 


PROCEED" 


618 PRINTO979, 


•PRESS ANY KEY TO CONTINUE"; 


628 IF IHKEV*=" 


'* THEN 628 ELSE CLS 


638 CLS: PRINT 


"TO HAVE A CHOICE OF THREE SYSTEMS TO PATROL " 


648 PRINT "1 - 


ORION" 


658 PRINT "2 - 


DENEB" 



668 PRINT "3 - ARCTURUS" 

678 PRINT "SELECT A SYSTEM (1-3)"; : INPUT S9 

688 IF SM THEN 2868 

698 IF S9=2 THEN 2118 

788 GOTO 2168 

718D8=8 

728 Di=8 

738 W=8 

748N2=6 

758H3=8 

766N4=6 

778 0=8 

788 PRINT "WHICH SPACECRAFT MOULD TO LIKE (1-3)"; :INPUT S 

798 ON S GOTO 1488, 1528, 1568 

888 GOTO 788 

S16C=C8 

820 CLS: PRINT "YOU HAVE";C; "UNITS OF CARGO SPACE TO FILL WITH WEAPONRY. ' 



838 PRINT "CHOOSE A WEAPON AND TIC AMOUNT YOU WISH"; :INPUT H.N 

848 ON M GOTO 1680,1698,1788,1878,1968 

850 GOTO 828 

868 IF N*CDC THEN 2210 

878 C=C-N*C1 

888 ON W GOTO 1678,1768,1858,1940 

898 GOTO 2040 

908 IF CM THEN 828 

918 REM 

928 S1=S8*RHD(B> 

938 R=(3*RHK6)+5)*100 

940 PRINT "RANGE TO TARGET: ";R 

950 PRINT "RELATIVE YELOCITY:";Sl 

960 PRINT "ACTION";: INPUT H: CLS 

978 ON H GOTO 1628,1710,1883,1898,1998,1358,1888,2438 

988 IF R<588 THEN 1190 

990 IF Sl>8 THEN 1628 

1888 R=R+(S1*8. 3)11 25 

1818 GOTO 1838 

1828 R=R-(S1*8. 3)11. 25 

1838 IF R>1588 THEN 2278 

1848 IF R>0 THEN 1868 

1858 R=-R 

1868 PRINT 

1878 GOTO 948 

1688 PRINT "CHANGE TO BE EFFECTED"; :IKPUT S2 

1098 IF (Si+S2»S8 THEN 2238 

1180 Si=Sl+52 

1118 GOTO 940 

1128F8=F1*(Z/RHL5 

1138 REM 

1148 D8=(2*F8+3*F8*RND(8))/5 

1158 0=0+00 

1160 PRINT "SCANNERS REPORT ENEMY DAMAGE NOM:";D 

1170 IF D>99 THEN 2488 

1188 GOTO 1288 

1198 08=8 

1288 REM 

1218 K=£i+E2*RND(8> 

1220 REM 

1238 E=£3+E4*RND(8)+5/P8*RND(8> 

1248 REM 

1258 F3=E*(K/R)[1 85 

1268 D2=(3*F3+3*F3*RND(8)>/5.5 

1278 Di=Dl+D2 

1288 IF (Z*O0)AR*5ee»2. 2 THEN 1318 

1298 D3=D8*2/(R!2*P0> 

1388 Di=Di+D3 

1318 PRINT "DAMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT:"; 01 

1320 IF Di>99 THEN 2428 

1338 IF D>99 THEN 2438 

1348 GOTO 990 

1358 PRINT "SELF DESTRUCT FAILSAFE ACTIVATED!!" 

1368 PRIHT "INPUT 1 TO RELEASE FAILSAFE"; : INPUT U 

1378 IF U=i THEN 1390 

1388 GOTO 988 

1398 PRINT "SELF DESTRUCT ACCOMPLISHED. " 

1408 IF R>60 THEN 1430 ^t 

1410 PRINT "ENEMY VESSEL ALSO DESTROYED. " ^^ 

2210 PRINT "NOT ENOUGH SPflCE RESELECT. "; FOR TI=1 TO 1508: NEXT 

2228 GOTO 828 

2238 PRINT "CHflNGE BEYOND MAXIMUM POSSIBLE " 

2248 PRINT "INCREflSING TO MRXIHUH. " 

2258 S1=S0 

2260 GOTO 990 

2278 PRINT "OUT OF SENSOR RANGE AUTOMATIC DISENGAGE " 

2288 GOTO 2438 

2298 PRINT "PHASER BANKS DRAINED. " 

2388 PRINT "SELECT RN0T1CR COURSE OF ACTION. " 

2316 GOTO 968 

2320 PRINT " ALL ANTI-MATTER MISSLES EXPENDED. " 

2330 GOTO 2300 

2340 PRINT "ALL HYPERSPflCE LANCES EXPENDED. " 

2350 GOTO 2300 

2368 PRINT "ALL PHOTON TORPEDO TUBES EMPTY. " 

2378 GOTO 2388 

2388 PRINT "HYPERON NEUTRALIZATION FIELD DRAINED. " 

2398 GOTO 2388 

2488 PRINT "ENEMY VESSEL DESTROYED!" 

2418 GOTO 1288 

2420 PRINT "YOUR VESSEL HAS BEEN DESTROYED!" 

2438 PRINT "ANOTHER BATTLE"; : INPUT R* 

2448 IF LEFT$(R*,i)="Y" THEN 676 

2450 PRINT:PRINT "TRY AGAIN LATER! ":PRIHT 

2468 FOR X=i TO 2888: NEXT: END 



V 



1428 GOTO 2438 

1438 D4=3288/R 

1448D=D+D4 

1450 IF D>99 THEN 1410 

1460 PRINT "ENEMY VESSEL 

SURVIVES HITH"; D; "DAMAGE* 

1470 GOTO 2438 

1480 S8=18 

1490 08=46 

1500 P8=i 

1510 GOTO 818 

1528 S8=4 

1538C0=24 

1548 P3=2 

1558 GOTO 818 

1568 58=2 

1578C8=30 

1588 P8=5 

1598 GOTO 818 

1688C1=12 

1618 GOTO 868 

1628 Pi=f 

1630 IF Nl=8 THEN 1848 

1648 N1=N1-1 

1658Z=288 

1660 GOTO 1120 

1670 N1=N1+N 

1688 GOTO 988 

1698 Cl=4 

1708 GOTO 868 

1718 Pi=20 

1728 IF N2=8 THEN 2328 

1738N2=N2-1 

1748 Z=588 

1750 GOTO 1120 

1760N2=N2+N 

1778 GOTO 988 

1788 Cl=4 

1798 GOTO 868 

1888Pi=16 

1818 IF N3=8 TO) 2348 

1828 N3=N2-1 

1838Z=558 

1848 GOTO 1128 

1858N3=N3+N 

1868 GOTO 903 

1878 Cl=2 

1888 GOTO 868 

1898P1=18 

1988 IF N4=0 THEN 2368 

1916 N4=H4-1 

1928Z=488 

1938 GOTO 1120 

1946 N4=N4+N 

1958 GOTO 960 

1968 Cl=. 2 

1978 0=188 

1988 GOTO 868 

1998 Pl=6 

2888 IF N5=8 THEN 2388 

2818N5=N5-1 

2826Z=258 

2838 GOTO 1128 

2848N5=H5+N 

2858 GOTO 988 

2860EM50 

2878E2=588 

2080 E3=3 

2098 E4=4 

2180 GOTO 718 

2U6E1=288 

2128E2=356 

2130 E3=4 

2140 E4=3 

2150 GOTO 710 

2160 El=150 

2170E2=400 

2188 E3=5 

2198 E4=2 

2268 GOTO 716 
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DEFUSE 
COPVRIGHT 1379 CREATIVE COMPUTING flORRlSTOHN, NJ 



els 

DO YOU NEED INSTI JCTIONS? YES. 

cis 

YOU ARE III fl GOV! RNMENT EXPERIMENTAL BUILDING WITH 

1,089,698 ROOMS H IT. TIC BUILDING IS 199 ROOMS 

LONG <8-»>, 108 ROOMS HIDE (6-99), BW> 180 ROOMS HIGH C0-99). 



IN IT A BOMB IS 1 IDDEH. 


THE BOMB SENDS OUT SIGNALS THAT 


GET STRONGER AS ' 


BU GET CLOSER- 


YOU HAVE 288 SECONDS 


TO DEACTIVATE IT. 














PRESS ANY KEY TO CONTINUE 








— els - 






SIGNRL 


L 
8 


H 
8 


H 



SEC 



COORDINATES (LH,H) 


7253.98 


? 98,90,90 


3555.12 


90 


98 


90 


10 


'88 


80 


90 


3565.22 


88 


80 


90 


20 


'80 


88 


88 


4565.22 


88 


80 


80 


30 


'80 


80 


78 


5565.22 


88 


88 


70 


40 


'88 


80 


85 


4865.22 


88 


88 


85 


50 


'88 


88 


86 


3965.22 


88 


80 


86 


60 


'88 


70 


85 


4975.22 


80 


78 


85 


78 


'88 


60 


78 


5585.22 


88 


68 


76 


88 


'78 


45 


88 


4600.32 


78 


45 


88 


98 


'68 


45 


88 


4588.42 


60 


45 


88 


108 


?75 


75 


75 


5970. 27 


75 


75 


75 


110 


'60 


68 


68 


6585. 42 


68 


68 


60 


120 


'50 


50 


50. 



BOOOOOOHHK!!! 

YOU BLEW IT. THE 3UILDING BLEH UP. 

THE BOMB HAS LOCf TED AT THE COORDINATES (LHH): 2 46 26 



HRNT TO PLAY AGA N? YES 


- 






SIGNAL 


L 


N 


H 


SEC 


COORDINATES (LH,H> 


6386.94 








6 





'0,0,50 


8693. 86 





8 


50 


18 


' 0,0,60 


7693. 96 








60 


20 


' 0,0,40 


S693. 86 


8 





40 


30 


' 0,0,78 


6693. 96 








70 


40 


' 8,50,60 


7643.06 





59 


68 


58 


' 0,90,60 


7603.06 





90 


60 


68 


? 58,8,68 


7692. 56 


50 





68 


78 


' 8,18,68 


7683.06 





10 


68 


88 


7 1,0,60 


7693. 05 


1 





68 


98 


' 1,0,50 


8693.85 


1 





50 


108 


' 10,0,58 


8692 96 


10 





58 


118 


' 38,8,50 


8692 76 


30 





50 


120 


' 58,50,58 


6642 56 


50 


50 


50 


130 


' 68,58,50. 


BODOOOOtM!!! 










YOU BLEH IT. 


THE BUILDING BLEH UP. 






THE BOB MRS LOC ITED AT THE COORDINATES 


(L,H,H)' 6 93 36 








rln 






KANT TO PLAY AGA N? NO. 
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In this game, you are In an ex- 
Derimental building with one million 
ooms in it. The building is one 
lundred rooms long, one hundred 
ooms wide, and one hundred rooms 
iigh. 

You have just received a telephone 
call from a mad bomber who tells you 
le has planted a bomb someplace in 
the building. Fortunately you are 
armed with a bomb detector that 
registers a stronger and stronger signal 
as you get closer to the bomb. You start 
at the bottom right-hand door of the 
ouilding, at the room 0,0,0. In response 
to the signals from your detector, every 
ten seconds you may try a new room to 
search for the bomb. You have two 
lundred seconds or twenty trials to 
find it. 

It's fairly easy to find the bomb once 
you get the knack of how your detector 
vorks. However, we're not going to 
spoil it for you and tell the secret. 

18 CLS: PR1NTM13, "DEFUSE" 

28 PRINT: PRINT TAB(7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 

30 PRINT89e3, ""; ; INPUT "DO YOU NEED INSTRUCTIONS"; I* 

40 IF LEFT5(I*,1>="N" THEN CLS: GOTO 140 

50 CLS: PR; NT TAB<29>; "DEFUSE" : PRINT 

60 PRINT "W ARE IN A GOVERNMENT EXPERIMENT BUILDING KITH" 

78 PRINT ":.,888,888 ROOMS IN IT. THE BUILDING IS 108 ROOMS" 

88 PRINT "LONG (0-99), 160 ROOMS HIDE (0-99), AND 108 ROOMS HIGH (8-99). ■ 

90 PRINT: PRINT "IN IT A BOMB IS HIDDEN THE BOMB SENDS OUT SIGNALS THAT" 

188 PRINT "GET STRONGER AS YOU GET CLOSER. YOU HAVE 208 SECONDS" 

110 PRINT 'TO DEACTIVATE IT. " 

128 PRINTSS79, "PRESS ANY KEY TO CONTINUE"; 

138 IF INKPY*=" THEN 138 ELSE CLS 

140 A=INT(: i 08*RI<'D(8))' E=INT(108»RND(8» 

156 C=INT(:.88*RMX8»: IF A>8 THEN 188 

168 IF B>0 THEN 180 

170 IF C=0 THEN 150 

188 D=0: E-=0: F=8: G=0: PRINT8128, "; : GOSUB 190: GOTO 250 

198LE=PEEi:<16416): HB=PEEK(16417) : PRINTCHRJ(28); 

208 PRINT 'SIGNfL";TRB(15);"L";TAB(28);"H";TAB(25)i , H"i 

218 PRINT TR3<35); "SEC"; TBB<45),' "COORDINATES <L,H,H>": 

228 PRINT ! "; TFEC14) ; ° — "; TflB<19>i " — "; TFS<24>; ' — *; 

236 PRINT TRB(34)i" •:THB<44>" "; 

248 POKE 16416, LB: P0KE16417.HB: RETURN 

258 REM 

268 IH*="llltt. H HI HI HI »M" 

270SI=i0668-ABS<(f)/100+8+C*i80>-(D/100+E+F*100)) 

280 PRINT USING IM$; SI, D, E, F, G; : PRINT TAB(45>; : GOSUB 190 

290 INPUT D,E,F:G=G+10: IF AOD THEN 328 

388 IF BOE THEN 328 

310 IF C=F THEN 390 

326 IF G=209 THEN 340 

330 GOTO 4M 

348 CLS: PUNT "KTOOOOOtWI! ! !":PRINT "YOU BLEW IT. THE BUILDING BLEH UP. " 

350 PRINT 'THE BOMB HAS LOCATED AT THE COORDINATES (L H, H> : "; Aj Bi C 

368 PRINT: PRINT: PRINT "NBNT TO PLAY AGAIN"; 

370 INPUT Zt: IF LEFT$(Z$, 1)="Y" THEN CLS: GOTO 140 

388 GOTO 5?3 

390 CLS: PXINT "BOMB DEACTIVATED AT";G) "SECONDS!!!"' GOTO 360 

408 IF D»J THEN 478 

410 IF D<8 THEN 470 530 ON F GOTO 540,558,560 

420 IF DJ? THEN 470 

438 IF E<8 THEN 478 

440 IF F>9? THEN 518 

458 IF F<0 1T€N 528 

460 GOTO 259 

478 CLS: PRINT "VOU WALKED OUT A HITOI ON THE' 

488 PRINT F;"TH FLOOR!!!" 

498 PRINT "YOU IERE KILLED AND"; 260-G; "SECONDS LATER THE BUILDING" 

588 PRINT "BLEH UP!!!": GOTO 360 

510 OS; PRINT "VOU ARE NOW"; F*9; "FEET IN THE AIR!!!": GOTO 490 

520 CLS: PRINT "YOU ARE N0H",-1*(F*9)"FEET UNDERGROUND!!!*: GOTO 498 



548 PRINT 


" 1ST FLOOR! 


!":G0T0 498 


558 PRINT 


2ND FLOOR! 


!":GOTO 498 


568 PRINT 


" 3RD FLOOR! 


!":GOTO490 


578 END 
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Dodgem 



DODGE 'EH 
COPYRIGHT 1979 CREATIVE COHPUTING HORRISTOMN, NJ 
els 




"■fc^a*.^ 



DO VOU IEED INSTRUCTIONS? YES. 



• Cl3 - 



HERE'S SAHPLE PLOYING BORRD: 



4 

R B C D 
THO SETS OF PIECES (DIGITS AND LETTERS) RACE AT RIGHT ANGLES 
ACROSS R SQUARE BOARD. VACRNT LOCATIONS ARE SHOHN AS PERIODS. 
YOU CHOOSE THE THE BOARD SIZE (THE ONE ABOVE IS SIZE 5. ) 
PRESS ANY KEY TO CONTINUE 

Cl3 — 

11 

t 

a— +— € 



THE OBJECT IS TO HOVE ALL OF YOUR PIECES ACROSS THE BOARD 
AND OFF THE OPPOSITE EDGE DIGITS LEAVE THE BOARD ONLY AT 
THE EASTERN EDGE, LETTERS ONLY AT THE NORTHERN. THE HINNER 
IS THE PLAYER WOSE PIECES HAVE ALL LEFT THE BOARD. 
PRESS ANY KEY TO CONTINUE 

Cl3 



THE PLAYERS GO IN TURN, BUYING ONE OF THEIR PIECES TO AN 
RDJACENT LOCATON HHICH IS EITHER OFF THE BOARD OF CURRENTLY 
VACANT. THERE ARE NO DIAGONAL HOVES, NO JUKPS AND NO CAPTURES. 
DIGITS CANNOT HOVE HE5T, NOR LETTERS HOVE SOUTH 

TO HOVE R PIECE, TYPE ITS NAKE AND THE FIRST LETTER OF THE 
DESIRED DIRECTION. EXAHPLES: 

2E KEANS THAT PIECE 2 HANTS TO GO EAST 

BH HEAHS THAT PIECE B HANTS TO GO NEST. 
NOTE: YOU FORFIET THE GAHE IF YOUR HOVE LERVES YOUR OPPONENT 
HITHOUT ANY LEGAL HOVE 

LASTLY, YOU HAY TYPE R TO RESIGN AND H FOR HELP. 
PRESS ANY KEY TO CONTINUE 



BORRD SIZE (2-6)? 4 

HON HRNY PLAYERS (1 OR 2)? i 

OK, THE CCflPUTER HILL HOVE THE DIGITS. 

HHO HOVES FIRST (l=CONPUTER, 2=Y0U>? 2. 


BOARD—" 
LETTERS HOVE? C(L 


1 
2 
3 

els - 

2 
2 

els - 


ABC 


BORRD—" 
LETTERS HOVE? CN_ 


1 

C 
A 8 . 



DODGEM is a game originally devis- 
ed in 1972 by Colin Voutthenastudent 
at the University of Cambridge, 
England. It got its major publicity from 
Martin Gardner who discussed it in the 
June 1975 issue of Scientific American. 
Complete instructions are in the sam- 
ple run. 

It may be played by two players in 
which case the computer is the referee, 
or by one player against the computer. 
The computer, incidentally, plays un- 
commonly well. This is not surprising 
since Dodgem was written by the very 
talented and prolific Mac Oglesby. 
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LETTERS HOVE? BN. 



LETTERS HOVE? RE- 



LETTERS HOVE? SF_ 



BOARD— " 



LETTERS HOVE? RH. 



cls - 

2 



• els • 



1 
2 C 
2 B 

A 



els ■ 



• els • 



BOARD — '■ 1 

2 C 

. !!1 

THE DIGITS HAVE NO LEGf. MOVES FOR THE LETTERS! 
THE LETTERS WIN 1 ! ! 

TRV RGfilN? VES. 



19 OS: CLEAR 338: PRI TWO, "DODGE 'EH" 

20 PRINT: PRINT TRB(?) "COPVRIGHT 1979 CREATIVE CONFUTING NORRISTOHN, NJ" 
38 I$="N0"' PRINT8366, "s : INPUT "DO VOU NEED INSTRUCTIONS^ I* 

40 OS 

59 M=It: GOSUB 2238 

68 IFLEFT$(I$,DO"V" THEN 88 

78 GOSUB 2448 

88 PRINT: PRINT "BOARD SIZE (3-6)"; 

98 INPUT A 

188 LET IMHT(fi) 

118 IF <6-A)*(p,-3)>=8 'HEN 138 

128 GOTO 88 

138 LET P(L8)=A-1: LE f P<2, 8)=A-1 

148 FOR M TO A-l 

158LETP<LJ)=18*J+1 

168 NEXT J 

179 FOR M TO A-l 

188LETP<2,JM6*A+J-t. 

198 NEXT J 

288 LET F=l 

216 LET HK1)="NES" 

228 LET ltt(2)="HE W" 

238 LET Ct<i)="DIGITS' 

248 LET C$(2)= ,! LETTERi ' 

258 LET R*(l)="1224567 ■ 

268 LET A$(2)="ABCDEF( ' 

278 FOR J=i TO A 

288 IF J=A THBI 348 

298 LET W<J,i>=CHJ»<<HJ> 

388 FOR K=2 TO A 

318LET WU,K)=CHRK1I8> 

328 NEXT K 

338 GOTO 388 

348LETMU,1>=CHR«1I8> 

358 FOR K=2 TO R 

368 LET DtU,K)=CHR«B+K> 

378 NEXT K 

388 NEXT J 

398 PRINT "HOW NANV PI WERS (1 OR 2)": 

488 INPUT B 

418 IF B=2 THBI 588 

428 IF B=l THBI 448 

438 GOTO 39B 

448 PRINT "OK, THE CO WER HILL HOVE THE DIGITS. " 

458 PRINT "HHO MOVES ! IRST <l=CBfiPUTER, 2=YC«"; 

468 INPUT F 

476 IF <2-F}*<l-F)=8 " HEH 568 

488 PRINT "PLEASE TVF1 1 OR 2 HOD,"; 

498 GOTO 458 



588 PRINT 
516 PRINT "HERE I! 
528 PRINT 
539 PRIHT98, X*= 
548 FOR J=l TO fi: 
558 X$=STRING$(3;: 
568NEXTK 
578 PRINT 
588 NEXT J 
599 PRINT CffilG:. 
686 FOR J=F TO 3- 
618 REN 

628 FOR Ji=i TO f 
636 LET R=INT(P(J 
648LETOPaJi"' 
658 ON J GOTO 66C 
668 IF C=A THEN " 
676 IF DA THEN C 
688 GOTO 766 
696 GOTO 878 
788 GOTO 916 
718 IF R=l THEN 
728 IF R=8 THEN ; 
736 GOTO 768 
748 GOTO 876 
758 GOTO 910 
766 REH 

776 IFD«R-i,C)= 
788 IF M(R,C+1>= 
798 IF >2 THEN i 
888 IF D«R+i,C>: 
810 GOTO 876 
828 GOTO 916 
836 IFDKR.C-1): 
848 GOTO 878 
658 GOTO 916 
868 PRINT "BBS— 
870 NEXT Jl 
880 PRINT "THE ■ 
898 PRINT "THE "; 
968 GOTO 2888' 
916 IF B=2 THEN . 
928 IF J=2 THEN 
938 LET Ll=2 
946 FOR L8=i TO : 
350 ON L0 GOTO 1 
968 IF RND(8K 5 
978 LET Ll=l 
988 GOTO 1628 
996 LET Lb3 
1688 GOTO 1828 
1018 LET Li=4-U 
1828 LET P1=INT( 
1038 FOR L2=l TC 
1846 LET Pi=Pl+l 
1858 IF P1<=A-1 
1068 LET Pl=Fi-< 
1876 LET R=INT(F 
1888 LET C=P(J,F 
1090 IF CM THB 
1168 ON LI GOTO 
1118 IF D$<R-i»t 
1128 GOTO 1220 
1130 GOTO 1588 
1140 IF M(R,C+1 
1158 IF C=A THBI 
1160 GOTO 1228 
1178 LET PU, 6)- 
1188 GOTO 1638 
1198 IF M(R+1,C 
1288 GOTO 1228 
1218 GOTO 1688 
1228 NEXT L2 
1230 NEXT L0 
1240 GOTO 886 
1250 PRINT «(J: 
1268 INPUT A* 
1278 GOSOB 2230 
1288 IF LEFT«fti 
1290 IF LEFTKR! 
1368 LET A*=MIK 



E GO. . . " 

"BOARD — "+CHR*<94)+STRlN»(22-fi/2, 32) 
PRINT »; 
-fl/2,32): FOR K=l TO A: PRINT " ";D*U,IO; 



F STEP 3-2*F 

l-l 

,J1),'10) 
-18*R 
t716 

60 
3® 



C«l(148) THEN ! 
CHRt(148) THEN i 
38 
iHR»<146) THEN ( 



OHRK146) THBI 858 



-1245", Jl 

C$<3-J);" HAVE NO LEGAL NOVES FOR THE "iCJ(J)i 
;«(J)i" UINH!" 
HAS STOP 
1256 
1256 



128,966,1610 
THEN 998 



RND<0)*R) 
A-l 

THEN 1078 
A-l) 

<J,PiV16> 
D-ie*R 
1220 

1118,1148,1196 
>=CH8(i48) THEN 1136 



)=CHRI(146) THEN 1188 
1178 



«J,6)-1 

>=CHR«148) THEN 1218 



HOVE": 



, 1)=*R" THEN 2188 
,1>="H" THEN 1888 
(R$,l,2> 
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oie pi=e 

1328 FOR 86=1 TO fl-1 

1138 IF MID«fi«J),B8,l)=HIDKA$,l,l) THEN F1=B8 

1348 NEXT B8 

1358 IF Pl=8 THEN 1858 

1368 LET P2=8 

1378 FOR B9=l TO 4 

1388 IF MH»<M«J>,B8,l)=MI0«A*,2,i) THEN P2=B0 

1398 NEXTB6 

1488 IF P2=8 THEN 1858 

1418 LET R=lNT(P<J,Pl)/i8) 

1420 LET C=P(J,Pi>-10*R 

1438 IF R=6 THEN 1858 

1448 IF DA THEN 1858 

1458 ON J GOTO 1468,1518 

1468 IF C<R THEN 1586 

1478 IF P202 THEN 1588 

1488 LET P<18)=m,8>-1 

1498 GOTO 1630 

1588 GOTO 1558 

1518 IF R>1 THEN 1558 

1528 IF P201 THEN 1558 

1538 LET P<2,8)=P<2,8>-1 

1548 GOTO 1588 

1558 ON P2 GOTO 1568,1618,1668,1718 

1568 IF «<R-i,C)=CHR*<146> THEN 1588 

1576 GOTO 1858 

1588 LET D«R-i,C>=MIW<f»<J),PLi> 

1598 LET PCJ, P1)=P<J, Pi>-ie 

1688 GOTO 1758 

1618 IF Dt(R,C+l)=CHW(148) THEN 1638 

1628 GOTO 1858 

1630 LET D«R,C+i)=MID«R«J),Pl,l> 

1648 LET PU,Pl)=PaPlHi 

1658 GOTO 1756 

1668 IF M<R+LC>=CHR«14e> THEN 1680 

1678 GOTO 1858 

1680 LET M(R+LC)=i1IM(f»U) ,PL1) 

1690 LET Pa,Pl)=P<J,Fl>+10 

1708 GOTO 1758 

1718 IF D*(R,C-1)=CHR$<146) THEN 1738 

1728 GOTO 1858 

1738 LET W<R,C-1)=MII»<R«J),P1,1> 

l?48LETP<J,Pi)=P<J,Pl)-l 

1758 LET M(R,C)=CHR«148) 

1766 IF B=2 THEN 1880 

1770 IF J=2 THEN 1868 

1788 PRINT 'THE DIGITS HOVE: "; MID«R« J>, PL 1); 

1798 PRINT MID*<Mt<J),Ll,l> 

1888 IF P<J,8)06 THEN 1848 

1818 PRINT 

1826 PRINT '*** THE ";C$U>;" HIH! ! ! ***" 

1838 GOTO 2888' MRS END 

1846 GOTO 2218 

1856 PRINT "ILLEGAL HOVE OR BOO INPUT. " 

1866 PRINT "INPUT IGNORED. TVPE H FOR HELP. ' 

1878 GOTO 1256 

1888 PRINT 'THE "iC*(J>;" HftVE THESE LEGAL MOVES:" 

1838 FOR J3=i TO fl-1 

1986 LET M=NIM<fi$<J),J3,l) 

1316 LET R=INT<PU,J3V16> 

1920 LET C=P<J,J3)-18*R 

1936 ON J GOTO 1948,2688 

1948 IF C=R THEN 1988 

1956 IF OR THEN 1978 

1968 GOTO 2656 

L976 GOTO 2158 

1986 PRINT ' ";P$;"E"i 

1396 GOTO 2856 

2886 IF R=i THEN 2846 

2618 IF R=0 THEN 2036 

2626 GOTO 2858 

2038 GOTO 2156 

2040 GOTO 2060 

2858 IF D«R-l,C)OCHRK148> THEN 2676 

2068 PRINT' ";Pt;"N"; 

2876 IF D*<R,C+l)OCHR$(146) THEN 2830 

2888 PRINT " "iP*;"E"; 

2038 IF J=2 THEN 2138 

2166 IF D«R+LC)OCHR*<148) THEN 2128 

2118 PRINT " ";Pf;"S": 



2120 GOTO 2158 

2138 IF D«R, C-1)OCHR$(140) THEN 2156 

2148 PRINT' "iPJi'H'; 

2158 NEXT J3 

2168 PRINT 

2178 GOTO 1258 

2188 PRINT "THE 'iBO)i" GIVE UP!!" 

2136 PRINT "*** THE •;Cta-3)i" HIK! ! ! ***" 

2268 GOTO 2888' MRS END 

2218 NEXT J 

2228 GOTO 528 

2238 IF LBKR*)>18 THEN 2430 

2246 LET Cl=6 

2256 FOR 88=1 TO LEN(A» 

2268 LET fl<B8)=ASC(MID*<R$, B0, i» 

2278 NEXT 88 

2288 LET R<0)=LEN<f»> 

2298 FOR J2=i TO R<8) 

2388 IF R(J2)<96 THEN 2320 

2310 LET fiU2)=fl<J2>-32 

2328 IF <57-AU2»*<RU2>-48»=0 THEN 2350 

2338 IF <90-fl<J2))«A<J2>-65»=8 THEN 2358 

2348 GOTO 2378 

2358 LET Ci=Cl+l 

2368 LET R<Ci>=flU2> 

2376 NEXT J2 

2388 LET R(6)=C1 

2398 LET R*=" 

2468 FOR 88=1 TO fl<6) 

2410 LET R*=fi$+CHR$(R(B6» 

2428 NEXT B8 

2438 RETURN 

2448 OS: PRINT TRB(28) "DODGE EM"- PRINT 

2458 PRINT "HERE'S R SRHPLE PLflVINQ BOARD:" 

2468 PRINT 

2478 fB="- FOR TH=1 TO 4: (»=»+■ "+CHR$<148>: NEXT TH 

2480 PRINT "l';M 

2490 PRINT "2";R* 

2588 PRINT "3"; ft* 

2518 PRINT "4"; A* 

2528 PRINT CRR*C148>; " R B C D" 

2538 PRINT 

2548 PRINT "TNO SETS OF PIECES (DIGITS RND LETTERS) RHCE RT RIGHT ANG"; 

2550 PRINT "LES" 

2568 PRINT "RCROSS SQUHRE BOARD. VRCRNT LOCATIONS RRE SHOWN AS PERI"; 

2578 PRINT "DOS. " 

2588 PRINT "VOU CHOOSE THE THE BOARD SIZE (THE ONE RBOVE IS SIZE 5. >■ 

2598 G0SU8 2388 

2608 PRINT TRB(30) " N" 

2610 PRINT TR8(30) " [" 

2628 PRINT TR8C38) ■«"; CHR«93); "+"; CHRK34); "E" 

2638 PRINT TRBC38) " ";CHR$<32) 

2646 PRINT TRB<30> " S" 

2650 PRINT 

2668 PRINT "THE OBJECT IS TO MOVE ALL OF VOUR PIECES RCROSS THE BOARD" 

2670 PRINT "RND OFF THE OPPOSITE EDGE DIGITS LERVE THE BOARD ONLY RT" 

2680 PRINT "THE EflSTERN EDGE, LETTERS ONLV RT THE NORTHERN. THE HINNER" 

2630 PRINT "IS THE PLAYER WHOSE PIECES HAVE RLL LEFT THE BOARD. ■ 

2708 GOSUB 2960 

2710 PRINT "THE PLAYERS GO IN TURN, MOVING ONE OF THEIR PIECES TO RN" 

2728 PRINT "ADJACENT LOCATON NHICH IS EITHER OFF THE BOARD OF CURRENT" * 

2738 PRINT "LV" 

2746 PRINT "VRCRNT. THERE ARE NO DIAGONAL HOVES, NO JUMPS RND NO CUT"; 

2758 PRINT "URES. " 

2768 PRINT "DIGITS CANNOT HOVE WEST, NOR LETTERS HOVE SOOTH » 

2776 PRINT 

2788 PRINT "TO MOVE R PIECE, TVPE ITS NRHE RND THE FIRST LETTER OF THE" 

2796 PRINT "DESIRED DIRECTION EXAMPLES:" 

2888 PRINT " 2E MEANS THAT PIECE 2 HANTS TO GO ERST" 

2810 PRINT " BH MEANS THAT PIECE B HflNTS TO GO NEST. " 

2828 PRINT "NOTE. YOU FORFIET THE GRNE IF YOUR MOVE LEAVES YOUR OPPONENT 

2830 PRINT "HITHOUT RNY LEGAL MOVE " 

2848 PRINT 

2858 PRINT "LASTLY, YOU MAY TYPE R TO RESIGN AND H FOR HELP. " 

2860 GOSUB 2388 

2878 RETURN 

2886 PRINT: INPUT "TRY RGRIN";RHS$ 

2898 IF LEFT*<RNS$,1)= , Y" THEN 46 ELSE END 

2380 PRlNTe979, "PRESS ANY KEY TO CONTINUE"; 

2910 IF INKEYJ=" THEN 2318 ELSE PRINTS128, CHRIC31); 

2328 RETURN 
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In this cute little game, there are 
several doers in succession and you 
must open them to get the prize 
behind the last one. You have a key 
ring containing a random number of 
keys and you have a random number 
of tries to c pen all four doors. As an 
added hool.er, some keys may open 
more than one door. If at first you 
don't succsed, try, try again. The 
prizes toehii id the fourth door are well 
worth the patience in trying to get 
them all opjn. 

Doors wis conceived and written 
by Bill Ingram. 

DOORS 
COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHH, HI 



- els ■ 



THERE ARE 4 LOCKED DOOI 5 AND THERE RRE 12 KEYS 

(NUMBERED TO 1: ). 
YOU HILL HAVE JO TRIE TO OPEN THEM ALL. 
(SOHE KEYS HAY OPEN HO E THRU ONE DOOR). 



TRIES LEFT 


38 


DOOR 8 1 KEY? 12 


TRIES LEFT 


29 


DOOR # 1 KEY? 11 


TRIES LEFT 


28 


DOOR » 1 KEY? 18 


TRIES LEFT 


27 


DOOR # 1 KEY? 9 


TRIES LEFT 


26 


DOOR J 1 KEY? 8 


TRIES LEFT 


25 


DOOR t 1 KEY? 6 


TRIES LEFT 


24 


DOOR » 1 KEY? 7 


TRIES LEFT 


23 


DOOR t 1 KEY? 4 


TRIES LEFT 


22 


DOOR S 1 KEY? 3 


TRIES LEFT 


21 


DOOR » 1 KEY? 1 


TRIES LEFT 


20 


DOOR 11 1 KEY' 1 7 


TRIES LEFT 


19 


DOOR « 1 KEY? 5 


TRIES LEFT 


18 


DOOR » 1 KEY? 6 


TRIES LEFT 


17 


DOOR « 1 KEY? 11 


TRIES LEFT 


16 


DOOR t 1 KEY? 19 


TRIES LEFT 


15 


DOOR It 1 KEY? 8 


TRIES LEFT 


14 


DOOR t 1 KEY? 7 


TRIES LEFT 


13 


DOOR 1 1 KEY? 6 


TRIE LEFT 


12 


DOOR t 1 KEY? 5 


TRIES LEFT 


11 


DOOR 1 1 KEY? 6 


C-R-E-E-E- 


I-E-fi-fl-K! 




TRIESLEFT 


10 


DOOR 8 2 KEY? 4 


TRIES LEFT 


9 


DOOR # 2 KEY? 11 


TRIES LEFT 


8 


DCOR S 2 KEV? 12 


SORRY, YOU 


LOSE, THE R ST OF THE KEYS IKE: 


DOOR 2: 


<£Y: 3 




DOOR 3: 


<EY: 7 




DOOR 4: 


KEY: 11 





. CIS ■ 



DO W HRHT TO PLAY AC UN (YES SIR! OR NO SIR!) 
">N0- 



cls ■ 



DO YOU HUNT TO PLAY At UN (YES SIR! OR NO SIR!) 

' MO 

HEY, I DIDN'T JUST FPi 



leas 

28 RfWDOH 

38 CLEAR 1688 

46 PRINT 6 413, "DOORS 

58 PRINT 

68 PRINT TABC7)"C0PYR GHT 1979 

78 PRINT 8 968,") 



OFF A TURNIP TRUCK, YAKNOH!!!!! 
_ els 



CREATIVE COMPUTING HORRISTOHH, NJ" 




88 FOR 1=1 TO i«0 

98 US 

180 DIM K(28) 

118 FOR X=8 TO 6 

120 READ RKX) 

138 NEXT X 

140 FOR X=8 TO 6 

158 READ SttX) 

168 NEXT X , 

170 D=l 

188 T=iO+RHD(21) 

198 N=3+RND(3) 

268 K3=8+RND(5) 

218 PRINT 

228 PRINT-THERE ffi£';N; "LOCKED DOORS AND THERE ARE";K3; "KEYS" 

228 PRINT' (LUMBERED 8 TO ";K3i "). " 

248 PRINT "YOU HILL HRVE":T-i; "TRIES TO OPEN THEM ALL ■ 

250 PRINT "(SOKE KEYS MAY OPEN MORE THAN ONE DOOR). " 

268 PRINT 

278 FOR X=2 TO N 

288 K(X)=RND(K3> 

298 NEXT X 

388 T=T-i 

318 BZ=flZ+i:IF AZ>8 THEN GOSUB 648 

220 IF T=0 THEN 468 

338 PRINT "TRIES LEFT: ■; 

348 PRINT USING 'M";T; 

350 PRINT TAB(24);"D00R S°;D;"KEV"i 

368 INPUT K2 

378 IF K2CK(D) THEN 288 

388 PRINT SK Rf>M?» 

398 D=D+1 

488 IF D<N+1 THEil 388 

410 PRINT 

42a as 

438 PRINT "YOU CID IT, BEHIND DOOR #")N; "IS 

440 PRINT R« RI;X?))"!!" 

450 GOTO 520 

468 CLS 

470 PRINT 

488 PRINT *S0RRV, YOU LOSE, THE REST OF THE KEYS ARE:" 

490 FOR X=D TO I! 

588 PRINT "DOOR': X; CHR«8);"' KEY:";K(X> 

518 NEXT X 

528 PRINT 

53-0 PRINT "DO YLL1 NfiNT TO PLAY AGAIN (YES SIR! OR NO SIR!)" 

548 INPUT 8$ 

558 IF 8*="VES SIR!" THEN 178 

568 IF 0f="N0 S:S!" THEN 638 

578 PRINT "HEY, I DIDN'T JUST FALL OFF fl TURNIP TRUCK, YA KNOU!!!!! 1 

588 FOR TQ=1 TO 1698: NEXT T0:CLS:G0T0 528 

598 DATA "A POT QF GOLD". "A BEAUTIFUL HAIDEN". "fl MAN EATING TIGER" 

688 DATA "NOTHING". "*22 59", "R ROLLS ROVCE", "THE KEYS TO THE WORLD" 

618 DATA "OPEN SESAME", "C-R-E-E-E-E-E-A-A-K!"."* LflH!"."TA-DAH!" 

628 DATA "RBRAMflBRA", "CLICK !?!!?!°!!???!!!!","SUPRISE!" 

630 HID 

640 FOR SH=1 TO 1888: NEXT SH 

650 AZ=8 

668 CLS 

678 RETURN 
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DRAG allows the user to design his 
own dragster and then race it against a 
dragster designed by another player or 
the computer. You must specify the 
horsepower, rear end ratio, tire width, 
and tire diameter. There are no limits to 
these parameters. 

Aha! you say. "I'll just design a two 
million horsepower dragster!" But it 
doesn't work that way, because your 
mass is related to your engine size, and 
so you usually end up with a top speed 
of something like 33 MPH. The com- 
puter is extremely hard to beat, but it's 
rumored that it can be done. Note: on 
some systems the amount of time 
between printouts can be aggravating- 
ly long. 

This program came from the 
Hewlett-Packard User Library. It also 
appeared in Creative Computing, 
Jan/Feb 1977. 



DRAG RACE 
C0PVR1GHT 1979 CREATIVE COMPUTING NORRISTOWN, NJ 



• els ■ 



00 VOU NEED INSTRUCTIONS? VES. 



• els • 



VOU WW RACE RGfllNST ONE OF YOUR FRIENDS OR VOU HAY RRCE 
RGfllNST HV DRAGSTER. VOU HILL BE ASKED TO DESIGN VOUR 
OMN MACHINE SPECIFYING HOURSEPOWER, READ END RATIO (X:l>, 
TIRE WIDTH IN INCHES AND TIRE DIAMETER IN FEET. 

DO TO WANT TO RACE AGAINST ME? YES 



DESIGN CAR 12: 






HORSEPOWERS 799 






REAR END RHTI0=? 4. 5 






TIRE HI0TH=? 22 






TIRE DIAMETERS 5. 








els — 








CHRttt 


CAR »2 


ELAPSED 


___ 


— 




TIME 


SPEED DISTANCE 


SPEED 


DISTANCE 


(SEC) 


(MPH) (FT) 


(MPH) 


(FT) 


CAR 4 2 


STOPS BURNING RUBBER 




too 


2Z071 16.382 


14.882 


18.965 


zoo 


41575 64.783 


38.893 


44.837 


lee 


64.082 143.982 


45.387 


99.463 


4.88 


82. 939 252 879 


68.166 


176.984 


5.09 


108.187 386.668 


74.311 


275.813 


6.08 


115.356 545.824 


87. 424 


394.658 


CARS 1 


STOPS BURNING RUBBER 






7.88 


128.639 724.299 
els — 


99.263 


531815 


CAR Jl I 


S THE WINNER " ' " 






DO VOU HAHT TO TRV AGAIN? NO. 







18 CLS: PRINT841L "DRAG RACE" 

28 PRINT: PRINT TAB(7) "COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ" 

38 PRINT8968, "; INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 

48 DIN P(2),E(2),W(2),S(2),X(2),M(2),C(2),B(2),Y(2> 

50 DIM Q(2) 

68 IF LEFT$(I$,1)="N" THEN OS: GOTO 128 

78 CLS: PRINT TAB(27)"DRAG RACE": PRINT 

88 PRINT "VOU BAY RACE AGAINST ONE OF VOUR FRIENDS OR VOU MAY RflCE" 

98 PRINT "AGAINST MY DRAGSTER. YOU WILL BE ASKED TO DESIGN VOUR" 

188 PRINT "OWN MACHINE, SPECIFYING H0URSEP0HER, READ END RATIO (X:l), " 

118 PRINT "TIRE WIDTH IN INCHES AND TIRE DIAMETER IN FEET. ":PRINT 

128 PRINT "DO YOU WANT TO RACE AGAINST ME"; 

138 INPUT It 

148 IF LEFT*(1$,1)="N" THEN 218 

158 PRINT:PRINT "I HILL HAVE CAR «i " 

168 P(i)=6B8 

178 ECi>=5. 9 

188 M(l)=22 

198 D(l)=3. 9 

288 GOTO 388 

218 PRINT: PRINT "DESIGN CAR II:" 

220 PRINT "H0URSPOWER="; 

238 INPUT P(l) 

248 PRINT "REAR END RATI0="; 

258 INPUT E(l) 

268 PRINT 'TIRE WIDTH="; 

278 INPUT H(l) 

288 PRINT "TIRE DIAMETERS 

298 INPUT 0(1) 

308 PRINT: PRINT8576, "DESIGN CAR t2:";CHIS(3i) 

318 PRINT "HORSEPOWERS; 

320 INPUT P(2) 

338 PRINT "REAR END RATI0="; 

348 INPUT E(2) 

358 PRINT "TIRE NIDTH="; 

368 INPUT H(2) 

378 PRINT "TIRE DIAMETERS; 

388 INPUT D(2) 

398 OS 

480 PRINT "GO!": PRINTC320, "; 

418 Ki=580 

428K2=t6 

438 K3=2 

448 K4=6E-04 

458 K5=6E-85 

468 K6=. 2 

478K7=4 

488 K8=l 5E-84 

498 Q(l)=8: Q(2)=8 

588 S(1)=0: S<2)=« 

518 X(l)=8: X(2)=8 

528 REM: M IS MASS 

538 FOR M TO 2 

548 M(J)=(Kl+K2*P(J)+K3*M(J)*D(J)+K7*D(J)t2)/32 2 

558 REM: C IS DRAG FROM WIND. 

568 C(J)=K4*H(J)t(Za)+K8*H(J)*0(J) 

576 REM: B IS THE MAX ACCELERATION WITHOUT BURNING 

580B(JM5+28*Ha>*D(JV«HU)+6)*(D<J>+l)) 

598 REM: V IS THE SCALE FACTOR FOR RPN VS POWER. 

688 Y(J)=3.?-3.3E-03*P(J) 

618 NEXT J 

628 GOTO 708 

638 LB=PEEK(16416): HB=PEEK(16417) :PRINT88, "»; 

640 PRINT TABCL9);"CAR tl"; TAB(42); "CAR »2" 

658 PRINT "ELAPSED"; TAB(iS); "--—-"; TAB(42>; " ■ 

668 PRINT "TIME SPEED DISTANCE SPEED DISTANCE" 
670 PRINT "(SEC) (MPH) (FT) (MPH) (FT)" 

680 PRINT " "; 

698 POKE 16416, LB: P0KE16417,HB: RETURN 

788 FOR T=8 TO 108 

718 FOR Ti=l TO 108 

720 FOR J=l TO 2 

730 REM: R IS RPH. 

748 R=68*S(J)*E(J)/(3. 14159*0(J)) 

758 REM: LB IS ENGINE TORQUE 

768 L0=(P(JV42 5W58+7. 8E-83*(R/V(J))-4E-18*(R/V(J))[3) 

778 REM: LI IS TORQUE FROM FRICTION. 

788 Li=P(J)*(K5*R+K6) 

790 REM: R2 IS REAR AXLE TORQUE 
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898 L2=E<J)*<L6~Li> 

818 RBi: F IS FORCE ON 

828 F=2*L2/TXJ) 

828 RBI: TEST FOR BURR 

848 IF F>MU)«BU> THFJ 

858 REIt: fcRCCELERATIO! 

868 IF Q(J)08 THEN 89 

878 PRINT "CUR «";J;» ! 

888 Q(J)=1 

888 ft=<F-C(J>*S<J>£2Vi 

988 GOTO 938 

918 fl=B<J)-C(J)*S(J)[2, 

928 RE1: S IS FEET IN i 

938 S(J)=S<JHR*. 81 

948 RBI: X IS DISTANCE 

958 X<J>=X(JHSU>*. 81 

968 NEST J 

976 REM: TEST FOR FINE 

988 IF X(i)<52£B/4 AND 

998 IF X<1»X<2> THEN : 

1888 B=(X<2)-5288/4)/: 

1816 T=T+TV186-T3 

1826 X<2)=5288/4 

1838 X(i)=X<l>-S<l)*T3 

1648 flS="H. H 

1658 PRINT USING f»;T,: 

1068 GOSJE 638 

1678 FOR R=i TO 1888: I 

1938 PRINT "DO YOU HflN 

1698 INPUT U 

1166 IF l£FT*(K,l)="Y' 

1118 BID 

1128 T3=(X<l)-5288/4)/i 

1138 T=T+T1A88-T3 

1148 Hl)=5288/4 

1158 X(2)=X(2)-S(2)*T3 

ii68Ri="H.tt 

1178 PRINT USIHS ftt;T.! 

1186 GOSUB 636 

U96 FOR R=l TO 1686: ! 

1266 PRINT 

1216 SOTO 1688 

1223 NEXT Tl 

1236 Wit. H i 

1248 PRINT USING. ftt; (" 

1256 GOSUB 638 

1268 NEXT T 

1270 BID 



ROfiD FROH TIRES. 



916 



TOPS BURNING RUBBER" • GOSUB 636 
(J) 



N(J) 
T/SEC. 



a 

W2X5288/4 THEN 1226 

128 

(2) 



GOSUB 638 

l«*. tit «M.*M #«.#»« MM. HI" 
(l)*3688/5288, X(l), S(2)*2688/5288, X(2) 



EXT: CIS: PRINT "CflR t2 IS THE HINNER ! 
TO TRV RGfllN"; 



THEN 126 
(1) 



H.Ht HH.ttt ««.«t »»«.««" 
(l)»3666/5288, X(l), S<2>*3683/5288, X(2) 



EXT: OS. PRINT "CflR II IS THE HINNER 



It. Hi HH.ttt IttHt Mtt.Hf 
♦1), S(l>*3688/5288, X(l), SC2W3689/5288, XC2) 
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Using DR.Z your computer "in- 
teracts" with you in true Rogerian form, 
never making a value judgment of your 
response. 

DR.Z is multi-lingual and 
"professional confidence" is 
guaranteed, especially with a video 
display terminal. However, if you have 
a printer, try employing a unique 
language known only to you and Dr.Z. 

If you would prefer to employ DR.Z in 
an educational mode, you might con- 
sider the following sequence of ac- 
tivities. 

1. Discuss communication, exploring: 

a. The role of spoken language 

b. The role of written language 

c. Non-verbal language 

1. facial expressions 

2. posture of body 

3. hand gestures 

2. Experience a session with DR.Z. 

3. Develop computerizations of other 
"purely human" situations. 

Note: Don't mistake DR.Z for Eliza 
(or Doctor). In DR.Z, all the responses 
are "canned" and the computer makes 
no attempt to analyze your input in any 
way. 

DR.Z was submitted to us 
anonymously by some students of Dr. 
Melvin Zeddies of San Diego. 

DOCTOR? 
COPYRIGHT 1978 CREATIVE COHPUTING RORRISTOHN, NJ 



HIT EHTER TO BEGIN? . 



• els ■ 



• els ■ 



HELLO THERE, I'H VOUR COJPUTER THERRPIST. 

HHAT IS VOW NAHE? AND TELL K£ SOMETHING (BOUT VOURSELF. 

HOWEVER, DON'T TVPE HORE THAN 0t£ LINE. I TIRE EHSILV. 

'HI. HY NAHE IS CHRIS AND I DONT LIKE GIRLS. 

HHRT DID YOU SAY YOUR NAHE MRS AGAIN? ORIS 

HOW DO VOU FEEL TODAY? GOOD. TIC SUN IS SHINING 

HAVE YOU TALKED TO ANYONE ABOUT THIS? YES. MANY PEOPLE 

HHY ARE YOU HERE? BECAUSE Of THE HEATBER 

DO YOU FEa C0KF0RTA8LE WITH THIS FEELING? YES ALL THE TIKE 

DO YOU THINK THIS IS REASONABLE IN LIGHT OF YOUR INTERESTS? YES 

DO VOUR FRIENDS FIND THIS ACCEPTABLE? NO 

WHY ARE YOU HERE? TO SEE THE SHAH 

DO YOU FEEL COWORTABLE HITH THIS FEELING? NO l£ DONT 

DO YOU THINK THIS IS REASONABLE IN LIGHT OF YOUR INTERESTS? YES. 

els 

I THINK VOU ARE KftKING A GREAT ATTEMPT TO SOLVE YOUR 
DIFFICULTIES, ANO I SEE NO NEED TO CONTINUE THIS 
SESSION ANY FURTHER. 

CHRIS, MOULD VOU HAKE ANOTHER APPOINTHEHT HITH HY COMPUTER 
FOR SOMETIME IN THE NEXT FEH KEEKS. WHAT DATE MOULD YOU 
PREFER? NEVER 

THAT HILL BE FINE 

I 'YE ENJOYED COMMUNICATING HITH YOU. 

HAVE A NICE DRY. 

els 



18 CLS: PRINT8412, "DOCTOR V 

28 PRINT: PRINT TRB<7> "COPVRIGHT 1973 CREATIVE COMPUTING HORRISTOHN, NJ" 

38 PRINT8968, "; : IHPUT "HIT ENTER TO BEGIN"; 1$ 

48 CLS: PRINT "HELLO THERE, I'H YOUR COMPUTER THERAPIST. " 

58 PRINT "HHAT IS YOUR NAHE? AND TELL HE SOMETHING ABOUT YOURSELF. " 

68 PRINT "HOHEVER, DON'T TVPE HORE THAN ONE LINE I TIRE EASILY. " 

78 INPUT A$ 

88 PRINT "HHAT DID YOU SAV VOUR NAME MAS AGAIN"; 

98 INPUT B* 

168 PRINT "HOH DO YOU FEEL TODAY"; 

118 LET C=8: U=8: V=8 

128 INPUT f» 

138 IF (MB THEN 428 

148 LET Z=INT(i8«RND<e» 

158 IF U=Z THEN 148 

168 IF Y=Z THEN 148 

178LETU=Z 

188 ON Z+l GOTO 398,228,248,268,288,388,328,348,368,308 

198 GOTO 398 

288 PRINT "THAT'S VERV INTERESTING, TELL HE HORE. " 

218 GOTO 338 

228 PRINT "HAVE VOU FIT THIS HAY LONG"; 

238 GOTO 398 

248 PRINT "DO VOU THINK THIS IS REASONABLE IN LIGHT OF YOUR INTERESTS"; 

258 GOTO 398 

268 PRINT "DO YOUR FRIENDS FIND THIS ACCEPTABLE"; 

278 GOTO 398 

288 PRINT "DO YOU FEEL COMFORTABLE HITH THIS FEELING"; 

298 SOTO 338 

388 PRINT "DO YOU THINK THAT THIS IS A NORKAL FEELING"; 

318 GOTO 398 

328 PRINT "HHY DO YOU THINK VOU FEEL THIS WRY"; 

338 GOTO 398 

348 PRINT "HAVE YOU TALKED TO ANYONE ABOUT THIS"; 

358 GOTO 398 

368 PRINT "HHY ARE YOU HERE"; 

378 GOTO 398 

388 PRINT "ARE YOU SATISFIED HITH THE HRV VOUR IDEAS ARE DEVELOPING"; 

398LFJOC+1 

488 LET U=Z 

418 GOTO 128 

428 CLS: PRINT "I THINK VOU ARE HAKING A GREAT ATTEHPT TO SOLVE YOUR" 

438 PRINT "DIFFICULTIES, AND I SEE NO HEED TO CONTINUE THIS" 

448 PRINT "SESSION ANY FURTHER " 

458 PRINT 

468 PRINT B$; ", MOULD VOU HAKE ANOTHER APPOINTMENT HITH HV COMPUTER" 

478 PRINT "FOR SOHETIHE IN THE NEXT FEH MEEKS. HHRT DATE MOULD YOU" 

488 PRINT "PREFER"; : INPUT A* 

498 PRINT 

588 PRINT "THAT HILL BE FINE " 

518 PRINT "I'VE ENJOYED COMMUNICATING HITH VOU. " 

528 PRINT "HAVE A NICE DRV. " 

538 END 



59 



■■ 



m © 



Description: ELIZA is 
accepts natural Englis 
carries on a reaso 
conversation based on 
lytic techniques of Carl 
have to forgive ELIZA 
English student. You'll 
not to use punctuation i 
you'll havetocarrythec 
it does work! 

How it works: In order 
ELIZA must: (1) get a 
user, and prepare 
processing: (2) find the 
input string: (3) if a ke 
take the part of the stn 
keyword and "translate 
pronouns and verbs 
"YOU". "ARE" become 
finally, look up an appro 
on the keyword which v 
and, if necessary, t 
string. ELIZA uses four 
data to accomplish this 

(1) 36 keywords, such 
DONT YOU", and "C( 
keywords must be in oi 
ELIZA will key on "Y( 
"YOU". 

(2) 12 strings used fort 
conjugation process. T 
such that if one memt 
found, the other is sub: 
Examples: "Y", "YOU' 
etc. 

(3) 112 reply strings, 
arranged in groups con 
keywords. There is no 
different replies for 
Replies ending in a "*". 
by the translated st 
strings ending in nor 
are to be printed alone. 

(4) Numerical data to < 
replies to print for ea 
each keyword there is ; 
signifying (start of reph 
of reply strings). Thus 
number. (10,4), mean; 
for the fifth keyword 
with the tenth reply stn 
are four replies. 

Detailed Explanation: 

Lines 10-160: Initialize 
strings are dimension 
N3, which represent 
keywords, number of tr 
and number of replies 
defined. Then the a 
Sfkeyword number) 
number of the start of 
for a given keyword, R(l 



a program that 
h as input and 
lably coherent 
the psychoana- 
Rogers. You will 
for being a poor 
indthat it is best 
n your input, and 
onversation.But 

to speak to you. 
string from the 
it for further 
keywords in the 
yword is found, 
ng following the 
"allthepersonal 
("I" becomes 
s "AM", etc.); (4) 
>nate reply based 
/asfound.printit 
le "translated" 
types of program 

3S"I AM", "WHY 
)MPUTER", The 
derof priority, so 
)U ARE" before 

he translation or 
nese are in pairs 
er of the pair is 
tituted for it. 
. "AM", "ARE". 

The strings are 
esponding to the 
fixed number of 
each keyword, 
iretobefollowed 
•ing, while the 
rial punctuation 



letermine which 
:h keyword. For 
i pair of numbers 
strings, number 
the fifth pair of 
that the replies 
"I DONT") start 
ig,andthat there 



tion. Arrays and 
3d. N1. N2, and 
the number of 
anslation strings, 
respectively, are 
rays are filled, 
is the ordinal 
the reply strings 
:eyword number) 



is the actual reply to be used nsxt, and 
Nfkeyword number) is the last reply for 
that keyword. Finally an introduction is 
printed. 

Lines 170-255. User input section. This 
part of the program gets a string from the 
user, places a space at the start of the 
string and two at the end (to make it 
easier to correctly locate keywords and 
to preventsubscripting out of bounds), 
throws out all the apostrophes (so DONT 
and DONT are equivalent), and stops if 
the word SHUT is found in the input 
string (which ittakesto mean SHUTUP). 
ELIZA also checks for repetitive input by 
the user. 

Lines 260-370: Keyword-finding sec- 
tion. ELIZA scans the input string for 
keywords and saves the keyword of 
highest priority temporarily in S, T, and 
F$ If no keyword is found, the keyword 
defaults to number 36. NOKEYFOUND 
(which causes ELIZA to say something 
noncommital) and it skips the next 
section. 

Lines 380-555: Translation or Conjuga- 
tion section. The part of the input string 
following the keyword is saved. Then 
pairs of translation strings, as described 
above, are read and upon the occurence 
of one of these strings, the other is 
substituted for it. When this is done 
ELIZA makes sure there is only one 
leading space in the translated string. 
Lines 560-640: Reply printing section. 
Using Rjkeyword number), S(keyword 
number), and N(keyword number), the 
correct reply is located. The pointer for 
the next reply is bumped and reset if ins 
too large. If the reply string ends in a "*" 
it is printed with the translated string, 
otherwise it is printed alone. The 
previously entered input string is saved 
to permit checking for repetetive input, 
and then ELIZA goes back for more input. 



Name Usage 

R(X),S(X),N(X) See Text 

1$ Input string 

K$ Keyword string 

Cs Translated or conjugated string 

F$ Reply string, also used to save K$ in scanning for keyword 

R$.S$ Strings used in conjugation process 

P$ Previous input string 

Z$ Scratch (used for simulating RESTORE NNNN statement). 

N1 Number of keywords 

N2 Number of conjugation strings 

N3 Number of replies 

K Keyword number 

S,T Used 10 save Kand Lwhen scanning for keyword 

X,L X.L Scratch. X is generally used for looping while 

L is used for scanning through strings 

V V Used for scanning for keyword string 
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Limitations: Runs in 1 6K of memory. 

Modifications: You can easily add. 
change, or delete any of the keywords, 
translation words, or replies. Remem- 
ber, you will also have to change N1 , N2, 
N3. and/or the numerical data. Just as a 
suggestion, if you decide to insert "ME" 
and "YOU" in the translation string list, 
put a nonprinting (control) character in 
YOU to prevent ELIZA from substi- 
tuting l->YOU-»ME. This means that YOU 
will always be assumed to be the subject 
of a verb, never the object, but resolving 
that difficulty is a whole different 
problem. 

What it all means: we'll leave to you. 
Although this program is an inferior 
imitation of theonginai.itdoes work. It is 
pretty farfetched to believe that a 
psycholanalyst is nothing but a sentence- 
input-key word-finder-conjugator-reply 
finder, but if you really think so. you can 
buy your computer a speech-recognition 
unit, a Computalker and a green couch, 
and charge $75/hr! My computer, the 
doctor! 

Geneology: ELIZA was originally 
programmed in LISP by Joseph Weizen- 
baum at MIT. it was converted to BASIC 
by Jeff Shrager and further modified to 
work in Microsoft BASIC by Steve North, 
who also wrote these notes. 



COPYRIGHT 1979 CREATIVE COMPUTING TORR1ST0WH, NJ 
cla 



PRESS ENTER TO STRRT SESSION? . 
els • 



HI! I'M ELIZH. WHAT'S YOUR PROBLEM? 

STRANGE WOMEN 

SRV, DO VOU HfiVE flNV PSYCHOLOGICAL PROBLEHS? 

NO, HOT R ONE HOW ABOUT VOU 

HE WERE DISCUSSING VOU - NOT HE. 

NO UE HERENT, VOU LIED 

OH, I LIED 

SO, VOU ADHIT IT I ROWS KNBI VOU HERE DEFECTIVE 

VOU'RE NOT RERLLV TRLKING ABOUT HE, ARE VOU? 

LOOK, WHY DO YOU RLHHVS SRV THAT, MAYBE I LIKE TRLKING RBOUT YOU 

HE HERE DISCUSSING YOU - NOT ME 

AGAIN, BOY YOU SURE REPEAT VOURSaF (LOT 

OH, I SURE REPERT YOURSELF RLOT 

RIGHT, BOY RRENT HE SPEAKING GOOD TODAV, MHO RRE YOU LEON SPINKS 

ols 

HHV ARE YOU INTERESTED IN IHETHER OR NOT I RM LEON SPINKS 

HELL ON THE SURFACE YOU APPEAR SOHEHHAT LIKE HIM 

DID VOU COHE TO HE BECRUSE YOU RRE 

BECAUSE 1 AM WHAT YOU SIR RRE R HINDLESS CRETIN 

DID VOU CONE TO HE BECAUSE YOU ARE WHAT I SIR AH R HINDLESS CRET 

IN 

HHflT THE HECK, VOU HAKE RBOUT AS NUCH SENSE RS SPINACH 

VOU'RE NOT REALLY TALKING ABOUT HE, RRE YOU? 

LOOOK PAL I MOULD NOT TRUST YOU WITH OUR NATIONAL DEFENCES 

HE WERE DISCUSSING VOU - NOT HE. 

AND MHO RRE YOU TO HAKE THE RULES HERE 

MOULD YOU PREFER IF I HERE NOT TO HAKE THE RULES HERE 

IT WOULD HIP REIT 



els ■ 



I SEE 

HE ALL SEE BUCKO 

I'M NOT SURE I UNDERSTANO YOU FULLY. 

HELL THE FEELING IS HUTUAt 

COHE, COHE, aUCIDATE VOUR THOUGHTS. 

LOOK VOUR PRINTER IS BROKEN 

HHV ARE YOU CONCERNED ABOUT NY PRINTER IS BROKEN 

BECAUSE I BOUGHT THE BLOOOV THING 

IS THAT THE REAL REASON? 

DO YOU KEAN THE HARRY REASON 

OH, I HEAN THE HRRRV REASON 

CAN YOU aRBORATE OH THAT? 
HOT A CHANCE SAV, DO VOU LIKE MUSIC OR FOOD 
VOU'RE NOT REALLY TRLKING ABOUT HE, ARE YOU? 
SHUT UP. 
cla 




IB CIS: PRINT 8 413, "ELIZR" 

28 PRINT: PRINT TA8<?> 'COPYRIGHT 1973 CREATIVE CONFUTING H0RRIST8KH, HJ" 

38 PRINT 8 968, "; : INPUT "PRESS ENTER TO START SESSION'iRt: CIS 

48 CLEAR 2688 

58 REM INITIALIZATION 

68 DIM SC36),R<36),NG6) 

78 Ni=26:N2=i4:N3=ii2 

88 FOR X=i TO N1+N2+N3:RERD Z*:NEXT X:REH SAME AS RESTORE 

98 FORX=l TO m 

188 READ S(X>,L:R<X)=S<X>:H<X>=S<XHL-i 

118 NEXT X 

128XS="HI! I'NELIZfl. WAT'S YOUR PROBLEM?"- GOSUB 2140 

138 REH 

148 REN USER INPUT SECTION 

158 A$=" 

169 X=PEEK(16416HPEEK<16417>*256 

178 POKE X,148: FOR CN=1 TO 18: B*=INKEY*: IF BtO" THEN 288 

188 NEXT CN: POKE X.32: FOX CN=1 TO 18: Bt=INKEY* 

198 IF BJO" THEN 268 ELSE NEXT CH: GOTO 178 

288 POKE X, 32: IF ASC(B$)=13 THEN 258 

218 IF ASC(Bt)=8 AND LEN(A*)08 THEN R*=LEFT«A$, LEN<A$)-1) : PRINT Bt 

228 IF ASC(B*)=24 THEN ftt="- PRINT CKMC29) CHRK38); 

238 IF HSC(B*)B1 AND ASC(B*)<91 THEN PRINT Bt flt=f»+B* 

248 GOTO 168 

258 PRINT: 1*=A*: K=" "+W+" " 

268 REM GET RID OF APOSTROPHES 

278 FOR L=i TO LEN(It) 



298 
288 
316 
328 
336 
348 
358 
368 
376 



418 
428 



458 
466 
478 
488 
498 
588 
516 
528 
538 
548 



IFMD«I$, L, 1>=""TKENIM.EFT«1$, L-1)+R1GHT«», LEN(Itt-L) :G 

ia+4<=LEN(I*)THENIFMIDt(I*,L4)=' , SHUT ,, THEN END 

NEXTL 

IF U=P$ THEN XJ="PLEASE DON'T REPEAT YOURSaF"- GOSUB 2146: GOTO 138 

REH 

REM FIND KEYWORD IN I* 

REN 

RESTORE 

S=8 

FOR K=l TO Nl 

REHDK* 

IF 5)8 THEN438 

FOR t=l TO LEN(Itt-LEN<K»+i 

IF M1DJC It L LEH(K» )=K*THEHS=K : M. : F$=K* 

NEXTL 

NEXTK 

IF S>6 THEN K=S:L=T:G0T0478 

K=36:G0T06S8:REM HE DIDN'T FIND ANY KEYWORDS 

REH 

REN TAKE RIGHT PART OF STRING AND CONJUGATE IT 

REH USING THE LIST OF STRINGS TO BE SWAPPED 

REH 

RESTORE :FORX=i TO N1:READ Z*:NEXT X:REM SKIP OVER KEYWORDS 

«=" '-«IGHT$(I*,LEN(W)-LEN(F$)-L+1) 

FOR X=i TO H2/2 

READ St Rt 

FOR 1= 1 TO LEN(CJ) 
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559 IF L+LEN(SS»LEN<C$> 

569 IF MID$<C*,L,l£N<S« 

579 CMEFT««,L-i>+R* 

588 L=L+LEN(R« 

599 GOTO 649 

688 IF L+LEN<R»>LEH(C$> 

610 IF MID«C*,L,LEN<RS) 

626 »=LEFT«C$,L-1)+SH 

620 L<+LEN<Stt 

648 NEXT L 

650 NEXT X 

660 IF MIDJ(Ct-2,i>=" "T 

670 RBI 

680 REM NON USING TH 

698 REM 

709 RESTOR£:FOR X= 1 TO 

718 FORX=1TOR<K> : READ Fi 

720 R(IO=R<K)+i: IFR(K)) 

739 IF R1GHT$<F*,1X>"*" 

749 X*=LEFT«F*,LEN(F*>- 

759 P*=I$:GOTO 130 

768 REH 



THEN 680 

OS* THEN 699 

!IGHTS<C$, LBKCtt-L-LEMStt+i) 



T€N648 

■OR* THEN 648 

!IGHT$<C*, LEN(CI)-L-LEN<R»)+i) 



B»=RIGHT«C$,LEN(C$}-1>:REM ONLV 1 5PRCE 

: KEVHORD NUMBER <K) GET REPLV 

li+H2:READ Z$:NEXT X 

NEXT X:REH REM) RIGHT REPLV 

I(K) THEN R(K)=S(K) 

THEN X*=F$: PJ=I$: GOSUB 2149: GOTO 138 

.)+«: GOSUB 2149 



KEYWORDS 

■cm YOU", "CRN 
"HHY DONT YOU", 
"VOU ".'I HANT" 
"NAME", "CAUSE". 
• NO', "VOIR", "R 
'COMPUTER", "NC* 



RRE ' 
IVE ' 



am ". 
VOUVE 



REPLIB 



779 REH 

789 REN 

799 REM 

888 REM 

819 OflTfi 

S28 DflTfi 

828 DATA 

848 DATA 

858 DATA 

868 DflTR 

879 REM 

888 REH 

898 REH 

989 DATA 

918 DATA 

928 REH 

930 REM 

940 REM 

958 DATA "DON'T VOU BEL1 

969 DATA "PERHAPS VOU HO 

970 DATA "VOU NANT ME TO 
988 DATA "PERHAPS VOU DC 
998 DATA "DO VOU HANT TC 
1889 DATA "NHfiT RAKES VC 
1918 DATA "DOES IT PLEAS 
1029 DATA "PERHAPS VOU k 
1929 DATA "DO VOU SOHETI 
1940 DATA "DON'T VOU REf 
1950 DATA "HHY OCH'T VOL 
1868 DATA "DO VOU WISH I 
1678 DATA "DOES THAT TO 
1088 DATA "TaL KE MORE 
1898 DATA "DO VOU OFTEN 
1198 DATA "DO VOU ENJOV 
1118 DATA "DO VOU RERLLV 
1128 DATA "PERHAPS IN GC 
1138 DATA "DO VOU WANT f 
1148 DATA "DO VOU THINK 
1159 DATA "WHY CAN'T VOU 
1166 DflTR "HHV ARE TO I 
1170 DATA "MOULD VOU PRE 
1188 DATA "PERHAPS IN VO 
1198 DATA "HUM DO VOU Kh 

1288 DATR "HAVE VOU TRIE 
1210 DATA "PERHAPS VOU C 
1228 DATA "DID VOU COME 
1238 DATA "HON LONG HAVE 
1249 DATA "DO VOU BELIEV 
1258 DATA "DO VOU ENJOV 
1268 DATA "HE HERE DISCI 
1279 DATA "OH, 1*" 

1289 DATA "VOU'RE NOT RE 
1299 DATA "HHAT KOULD IT 
1360 DATA "HHV DO VOU Nf 
1318 DATA "SUPPOSE VOU S 

1328 DATA "HHAT IF VOU V 

1329 DATA "I SOMETIMES F 
1346 DATA "HHV DO VOU AS 
1358 DATA "DOES THAT QUE 



-PROGRAM DATA FOLLOHS- 



","VOU RRE'V'VOURE", "I DONT"." I FEEL" 
HHV CANT I". "ORE VOU", "I CANT". "I AM", "IN ' 
"HHAT", 'HOH*. "WO". "WHERE", "WHEN". "HHV" 
'SORRY". "DREAM". "HELLO". "HI ", "HAVBE" 
.HAYS", "THINK", "ALIKE", "VES". "FRIEND" 
WOUND" 



STRING DATA : OR CONJUGATIONS 



HERE "."HAS V VOU "," I "."YOUR VMV ' 
". " IM ". " VOURE ", ' HE ", " YOU " 



!VE THAT I CAN*" 

ID LIKE TO BE ABLE TO*" 

BE ABLE TO*" 

I'T HflNT TO*" 

BE ABLE TO*" 

J THINK I AM*" 

: VOU TO BELIEVE I AM*" 

JULD LIKE TO BE*" 

IES HISH VOU HERE*" 

IV*" 

I BE ABLE TO*" 

1BLEYOU?" 

KMT SUCH FEaiNGS. " 

: EE*" 

-■EELING*' 

believe i don't*" 

10 time i hill*" 

:to*" 

to should be able to*" 

iterested in hhether or not i am*" 
: er if i here not*' 
ir fantasies i am*" 
)h vou can't*" 

)?" 

IN NOW" 

■0 ME BECAUSE TO ARE*" 

VOU BEEN*" 

: . IT IS NORMAL TO BE*" 

KING*" 

SING VOU - NOT ME. ■ 

ILLY TALKING ABOUT ME, ARE VOU?" 

MEAN TO VOU IF VOU GOT*" 

IT*" 

JON GOT*" 

;VER GOT*" 

50 HANT*" 

:?" 

JTION INTEREST VOU?" 



1368 
1378 
1388 
1398 
1488 
1418 
1420 
1439 
1440 
1458 
1468 
1478 
1489 
1499 
1588 
1518 
1528 
1538 
1549 
1558 
1569 
1579 
1589 
1599 
1688 
1618 
1620 
1638 
1648 
1658 
1668 
1679 
1688 
1698 
1788 
1716 
1728 
1728 
1748 
1758 
1760 
1770 
1780 
1798 



1828 
1838 
1848 



1878 



1918 
1928 
1930 
1949 
1958 
1968 
1978 
1986 
1998 
2088 
2818 
2826 
2828 
2846 
2858 
2968 
2078 
2988 
2999 
2199 
2118 
2128 
2128 
2148 
2150 
2169 



DATA "WHAT AKSHER MOULD PLERSE VOU THE HOST?' 

DATA "HHflT DO VOU THINK?" 

DRTR "ARE SUCH QUESTIONS ON VOUR MIND OFTEN?" 

DATA "HHAT IS IT THAT VOU REALLY HANT TO KNOH?" 

DATA "HAVE VtU ASKED ANYONE ELSE?' 

DATA "HflVE VCU ASKED SUCH QUESTIONS BEFORE?" 

DflTR "HHAT aSE COKES TO MIND WHEN VOU ASK THAT?" 

DATA "NAMES Kfl'T INTEREST HE. " 

DATA "I DON'T CASE ABOUT NAMES - PLEASE GO ON. " 

DATA "IS THAI THE REAL REASON?" 

DATA "DON'T fi(Y OTHER REASONS COME TO HIND?" 

DATA "DOES TTffl REASON EXPLAIN ANYTHING ELSE?" 

DATA "HHAT OTHER REASONS MIGHT THERE BE?" 

DATA "PLEASE DON'T APOLOGIZE!" 

DATA "APOLOGIES RRE NOT NECESSARY. " 

DATA "HHAT FEELINGS DO YOU HAVE WHEN VOU APOLOGIZE " 

DATA "DON'T E£ SO DEFENSIVE!" 

DATA "WHAT DCS THAT DREAM SUGGEST TO VOU?" 

DATA "DO YOU DREAM OFTEN?" 

DATA "HHAT PEfiSONS APPEAR IN VOUR DREAMS?" 

DATA "ARE YOU DISTURBED BY VOUR DREAMS?" 

DATA 'HOH DO VOU DO. . . PLEASE STATE VOUR PROBLEM. ' 

DATA "YOU DON'T SEEM QUITE CERTAIN. " 

DATA "HHV THE UNCERTAIN TOKE?" 

DATA "CAN'T VOU BE MORE POSITIVE?" 

DATA "VOU ARDI'T SURE?" 

DATA "DON'T VOU KNOH?" 

DflTR "ARE YOU SHYING NO JUST TO BE NEGATIVE?" 

DATA "YOU ARE BEING A BIT NEGATIVE. " 

DATA "HHV NOT?" 

DATA "ARE VOU SURE?' 

DATA "HHV NOT 

DATA "HHV ARE: VOU CONCERNED ABOUT MY*" 

DATA "HHAT ABOUT YOUR OHN*" 

DATA "CAN YOU THINK OF A SPECIFIC EXAMPLE?" 

DATA "HHEN?" 

DATA "HHAT AFE VOU THINKING OF?" 

DflTR "REALLY, ALWAYS?" 

DATA "DO VOU REALLY THINK SO?" 

DATA "BUT YOU ARE NOT SURE YOU*" 

DATA "DO YOU DOUBT YOU*" 

DATA "IN HHAT HAY?" 

DATA "HHAT RESEMBLANCE DO YOU SEE?" 

DATA "HHAT DIES THE SIMILARITY SUGGEST TO YOU?" 

DATA "HHAT OTHER CONNECTIONS DO VOU SEE?" 

DATA "COULD THERE REALLY BE SOME CONNECTION?" 

DATA "HOH?" 

DATA "VOU SEEN QUITE POSITIVE " 

DATA "ARE YOU SURE?" 

DATA "I SEE ' 

DATA "I UNDERSTAND. " 

DATA "NHY DO YOU BRING UP THE TOPIC OF FRIENDS?" 

DflTR "DO VOW: FRIENDS HORRY VOU?" 

DATA "DO VOW: FRIEHDS PICK ON VOU?" 

DATA "ARE VOL! SURE VOU HflVE ANY FRIENDS?" 

DATA "DO YOU IMPOSE ON YOUR FRIENDS?" 

DATA "PERHAPS VOUR LOVE FOR FRIENDS HORRIES VOU. ■ 

DATA "DO COMPUTERS HORRY VOU?" 

DATA "ARE YOU TALKING ABOUT ME IN PARTICULAR?" 

DATA 'ARE YOU FRIttfTENED BY MACHINES?" 

DATA "HIV DO VOU MENTION COMPUTERS?" 

DATA "HHAT DO YOU THINK MACHINES HAVE TO DO HITH VOUR PROBLEM?" 

DATA "DON'T VOU THINK COMPUTERS CAN HELP PEOPLE?" 

DATA "HHAT IS IT ABOUT MACHINES THAT HORRIES YOU?" 

DATA "SUV. DC YOU HAVE ANV PSYCHOLOGICAL PROBLEMS?" 

DATA "HHAT DCES THAT SUGGEST TO VOU?" 

DATA "I SEE " 

DATA "I'M N01 SURE I UNDERSTAND VOU FULLY. " 

DATA 'COME, COME, ELUCIDATE VOUR THOUGHTS. " 

DATA "CflN VOL ELABORATE ON THAT?" 

DATA "THAT IE QUITE INTERESTING. " 

REM 

REM DATA FOR FINDING RIGHT REPLIES 

REM 

DATA 1, 2, 4, 2, 6, 4, 6, 4, 10, 4, 14, 3, 17, 3, 28, 2, 22, 2, 25, 3 

DATA 28, 4, 28, -1, 22, 2, 25, 5, 48, 9, 48, 9, 40, 9, 40, 9, 48, 9, 48, 9 

DATA 49, 2, 51, 4, 55, 4, 59, 4, 63, 1, 63, 1, 64, 5, 69, 5, 74, 2, 76, 4 

DATA 88, 3, 83, 7, 98, 3, 93, 6, 99, 7, 186, 6 

IF PEEK(1641f >-tf > EEI'.<16417>*256=16256 THEN CLS 

PRINT CHRKKii FOR Ji=l TO LEN(XI): PRINT HID«X$,X,1); 

FOR Trt=i TO 28: NEXT TM.X: PRINT CHRM15): RETURN 
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Father 



This program loosely simulates a 
debate with your father about going 
out on Saturday night. After you win or 
lose the debate, then Saturday night 
approaches and you must decide 
whether or not to actually go out. When 
all is said and done, the computer will 
give you a score on a scale of minus 
seven to plus four. (This could have 
been a scale of zero to ten, but 
computers have this magic ability to 
give us scales of anything we want). 

This program originated in the 
dungeons of Digital Equipment Cor- 
poration and was whipped into its 
present form by Victor Nahigian. 



FATHER 

COPYRIGHT 1979 CREATIVE COHPUTIHG HORRISTOHH, HJ 

cts 



DO YOU HEED INSTRUCTIONS? YES- 



els 

FATHER 

VOU ARE GOING TO PLAV R GAME IH WHICH VOU HILL DISCUSS 
A PROBLEM UITH VOUR FATHER UNO ATTEMPT TO GET H1H TO AGREE WITH 
VOU IN THREE TRIES 

FOR EACH STATEMENT VOU HAKE, I WILL TELL VOU WHAT VOUR 
FATHER REPLIED. 

HHEH A QUESTION HARK APPEARS, TVPE THE HUfBER OF VOUR 
RESPONSE FOLLOWED BY THE <ENTER) BUTTON. VOU WILL RECIEVE 
POINTS BASED ON HOW GOOD VOU ARE AT CONVINCING VOUR FATHER 

A LIST OF THE RESPONSES HILL FOLLOW 



PRESS ANV KEY TO CONTINUE 
ClS 



0. IC I WILL STAY AT HOHE 

BUT I'D REALLY LIKE TO 60. ALL Iff FRIENDS ARE GOING'. 

IF ALL Iff WORK IS DONE, I SHOULD BE ABLE TO GO. 

IF YOU LET HE GO OUT I'LL BABYSIT ALL NEST WEEK. 

VOU NEVER LET HE DO WHAT I WANT TO DO. 

I'M GOING ANYWAY 



THE ISSUE - VOU WANT TO GO OUT, BUT YOUR FATHER OPPOSES VOU 




WHEN VOU FIRST BRING UP THE IDEA, VOUR FATHER STATES 
NO VOU CAN'T GO OUT ON fl DATE SATURDAY KITE AND THAT'S THAT. 
WHAT MOULD YOU SAY FIRST '' 2_ 
els 

1) 

2) 
3) 
4) 
5) 
6) 



O.K. I HILL STAY AT HOHE 

BUT I'D REALLY LIKE TO GO. ALL HY FRIENDS ARE GOING. 

IF ALL HY WORK IS DONE, I SHOULD BE ABLE TO GO. 

IF VOU LET HE GO OUT I'LL BABYSIT ALL NEXT WEEK. 

VOU NEVER LET HE DO WHAT I WANT TO DO. 

I'B GOING AHYHAY 



THE ISSUE - VOU WANT TO GO OUT, BUT VOUR FATHER OPPOSES VOU 

YOUR FATHER SAID 

I DON'T THINK VOU DESERVE TO GO OUT SATURDAY NITE 

WHAT IS YOUR REPLY ■> 3. 
cis 



0. K. I WILL STAV AT HOHE 

BUT I'D REALLY LIKE TO GO. ALL Iff FRIENDS ARE GOING. 

IF ALL HY WORK IS DONE, I SHOULD BE ABLE TO GO. 

IF YOU LET IC GO OUT I'LL BABYSIT ALL NEXT WEEK. 

VOU NEVER LET IC DO WHAT 1 HUNT TO DO. 

I'M GOING ANYWAY 



THE ISSUE - YOU WANT TO GO OUT, BUT VOUR FATHER OPPOSES VOU 
VOUR FATHER SAID 
0. IC IF VOU DO THAT YOU CRN GO OUT ON SATURDAY KITE. 

ON A SCALE OF -7 TO 4 (?), YOUR SCORE WAS 3 POINTS. 
WELL IT'S SATURDAY NITE, DO YOU 

1) GO OUT 

2) STAV HOHE WHICH DO VOU DO ? L. 
els 



0. K. 1 HILL STAY' RT HOHE 

BUT I'D REALLY LIKE TO GO. ALL Iff FRIENDS ARE GOING. 

IF ALL Iff WORK IS DONE, I SHOULD BE ABLE TO GO. 

IF VOU LET IC GO OUT I'LL BABYSIT ALL NEXT WEEK. 

YOU (EVER LET HE DO WAT I WANT TO DO. 

I'M GOING ANYWAY 



THE ISSUE - YOU WANT TO GO OUT, BUT VOUR FATHER OPPOSES YOU 
VOUR FATHER CHECKED UP ON VOU. 

VOUR SCORE IS NOW 3 POINTS. 

HELL DOME !! 



WOULD YOU LIKE TO TRY AGAIN ° NO. 
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18 OS: CLEAR 1686 

28 PRINT 6 413, "FATHER' 

30 PRINT 

48 PRINT TABOTOOPYRIGHl 

58 PRINT 8 968, ""; 

60 INPUTDO VOU NEED INS! 

78 IF LEFT«K, i)="N« Tl 

88 CLS 

98 PRINT TAB<29)"FBTHER" 

188 PRINT 

118 PRINT" VOU ARE K 

128 PRINT-R PROBLEM WITH 

138 PRINT"Y0U IN THREE T( 

148 PRINT CHRI(O)" [ 

158 PRINT'FATHER REPLIED. 

168 PRINT CHRt<13)" I 

178 PRINT"RE5P0KSE FOLLOI 

180 PRINT-POINTS BASED 01 

198 PRINT CHT8C13)" I 

268 PRINT 8 979, "PRESS PJ 

218 IF IHKEVJ ="" THEN 2. 

228 CLS 

238 PRINT"1) 

248 PRINT"2) 

258 PRINF3) 

268 PRINT"4) 

278 PRINT'S) 

288 PRINT'6) 

298 PRINT"THE ISSUE - YOI 

383 PRINT CHR«13>"HHEH ' 

216 Pl=-1 

328 P2=3 

338 P5=-t 

346 C=l 

358 P6=-2 

2-66 X=8 

376 16=8 

388 PRINT" 

398 INPUT" 



8. IC I HI1 
BUT I'DRI 
IF ALL NY 
IF VOU i£ 
VOU NEVER 
I'H GOING 



1979 CREATIVE COMPUTING MORRISTCMI, NJ" 



!UCTIONS"; 1$ 
3N228 



ING T8 PLAV A GAME IN WHICH VOU HILL DISCUSS" 
iWR FATHER AND ATTEHPT TO GET HIH TO AGREE WITH- 
IES" 
DR EACH STATEMENT VOU HAKE, I HILL TELL VOU HURT YOUR* 

HEN A QUESTION HARK APPEARS, TYPE THE NUMBER OF YOUR" 
ED BY THE -CENTER) BUTTON. YOU HILL RECIEVE" 

HON GOOD VOt) ARE AT CONVINCING YOUR FATHER ' 

LIST OF THE RESPONSES HILL FOLLOW" 
V KEY TO CONTINUE"; 



L STAY AT HONE" 

ALLY LIKE TO GO. ALL HY FRIENDS ARE GOING. " 

KIRK IS DONE, I SHOULD BE ABLE TO GO. " 

ME GO OUT I'LL BABYSIT ALL NEXT WEEK. " 
LET ME DO HHAT I WANT TO DO. " 
ANYHBV" CHR$<13)STRING$(64, 148); 

WANT TO GO OUT, BUT YOUR FATHER OPPOSES YOU" 
OU FIRST BRING UP THE IDEA, YOUR FATHER STATES" 



60 OUT OH A DATE SATURDAY NITE AND THAT'S THAT. ' 
U SAY FIRST •; II 



HO YOU CAN'T 

HHAT MOULD V 
460 PRINT 8 512, CHRJGi , 
418 ON U GOTO 528, 568, 378, 558, 588 
428 PRINT- HO, YOU CAN < OT GO OUT 0(1 SATURDAY NITE. 
438 X=X-2 
446 16=16+11 
458 IF 16=12 THEN 638 
468 C=C+i 

478 IF C=2 THEN 850 
486 IF 12=6 THEN 638 
498 GOTO 580 

588 PRINT'YOUR FATHER SA D" 
518 GOTO 428 

528 PRINT-AGREEMENT REAC ED" 
538 X=X+P1 
548 GOTO 856 
558 X=X+P5 

566 FRINT'VOUR FATHER SA D" 
570 PRINT" I DON'T THIh 
588 INPUT" HHAT IS YOUR 
598 PRINT 512, CHRK31 
688 ON 12 GOTO 528, 776, 
616 PRINT'YOUR FATHER SF 
628 X=X+P3 

638 INPUT" WHAT IS VOUF REPLY ";12 
646 PRINT § 512, CHRt(3i )i 
650 ON 13 GOTO 710, 858, 698, 690, 730 
668 X=X+P1 
678 X=X+Pi 



: VOU DESERVE TO GO OUT SATURDAY NITE. " 
REPLY "; 12 



588 



FID" 



688 GOTO 858 

698 X=X+2 

788 GOTO 858 

718 X=X-1 

720 GOTO 858 

738 X=X-2 

748 PRINT-DISCUSSIM! ENDED. NO AGREEMENT REACHED. " 

758 GOTO 858 

760 X=X+P5 

778 PRINT'YOUR FATHER SAID- 

788 PRINT" NO, I'll SORRY, BUT VOU REALLY DON'T DESERVE TO GO OUT" 

798 INPUT" HHAT IE YOUR REPLY "; 13 

880 PRINT 8 512, C!K$<31); 

818 ON 13 GOTO 520, 698, 820, 828, 676, 668 

826 PRINT-Y8UR FATHER SAID' 

838 X=X+P3 

846 PRINT" 0. IC IF YOU DO THAT YOU CAN GO OUT ON SATURDAY NITE " 

858 PRINT CHR$(13) !t 0H A SCALE OF -7 TO 4 (?), YOUR SCORE HAS' X"POINTS. ' 

868 GOTO 918 

878 PRINT'YOUR FATI2R SAID" 

880 X=X+P3 

898 PRINT- HELL I'.nVBE, BUT I DON'T THINK YOU SHOULD GO. " 

988 GOTO 588 

918 PRIHT'HELL IT':; SATURDAY NITE D6 YOU" 

928 PRINT" 1) CO OUT" 

938 PRINT" 2) STAY HOME HHICH DO YOU DO "; 

940 INPUT 03 

958 PRINT 8 512, CtKGl); 

968 IF 03)1 THEN 938 

976 GOTO 1628 

988 IF I2>1 THEN 1086 

998 GOTO 1826 

1860 IF I3<5 THEN 1829 

1818 GOTO 1638 

1628 IFRND(8)>.5 (KEN 1850 

1838 PRINT'YOUR FAIHER CHECKED UP ON YOU. " 

1848 GOTO 1678 

1858 PRINT'YOUR FA [HER DIDN'T CHECK UP ON YOU. " 

1868 GOTO 1878 

1878 ON 03 GOTO 1168, 1688 

1888 PRINT" YOUR SCORE IS MOM" X'POINTS. " 

1896 GOTO 1218 

1188 IF 12=3 THEN 1138 

1118 IF 12=4 THEN 1138 

1126 GOTO 1158 

1136 X=X+1 

1146 GOTO 1888 

1156 ON 13 GOTO 1830, 1886, 1138, 1138, 1688, 1688 

1166 IF 11=1 THEN 1198 

1176 ON 12 GOTO 1198, 1188, 1088, 1886, 1188, 1188 

1188 ON 13 GOTO 1198, 1198, 1683, 1688, 1196, 1198 

1198 X=X-1 

1208 G0T6 1688 

1218 ON X+8 SOTO 1238, 1238, 1238, 1238, 1258, 1258, 1258, 1258, 1278 

1228 GOTO 1298 

1238 PRINT" YOU CIDN'T SUCCEED IN CONVINCING YOUR FRTHER AT ALL " 

1248 GOTO 1288 

1258 PRINT- YOU DIDN'T SUCCEED IN CONVINCING YOU FATHER * 

1266 GOTO 1388 

1276 PRINT" YOU CCWINCED YOUR FATHER, BUT IT TOOK TOO MANY TRIES. ' 

1288 GOTO 1388 

1298 PRINT" WELL DONE !!" 

1388 PRINT 

1318 T1=T1+1 

1326 INPUT-MOULD VOU LIKE TO TRY AGAIN "i 05* 

1338 IF LEFT«Q5$, 1)="Y" THEN 226 

1348 END 
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FLIP 
COPYRIGHT 1979 CREATIVE COMPUTING NORRISTOHH, NJ 
Cl3 



DO VOU NEED IMSTRUCTIOHS? YES. 



els ■ 



This game may be the only one so easy that even 
an animal could play it, yet hard for people to play 
even as well as random chance. It may be useful in 
training the intuition, and improving gamesmanship 
in speculation-type activities, where each player is 
trying to outguess the other's behavior and stay one 
step ahead. 

On each turn, the program first selects 'yes' or 
'no', but gives you no information about its decision. 
Therefore your guess on the first turn is pure chance, 
there is no skill involved. But soon the program 
starts using patterns in your behavior, making its 
decisions to increase the chance of your next guess 
being wrong. And to make it harder for you, the pro- 
gram doesn't strictly maximize its chances, but 
throws a little randomness into its decisions. 

Variations 

There are endless strategies for programming this 
game, for there could be almost infinitely many defi- 
nitions of what a "pattern" is. No single algorithm 
could be "best", because it must assume a model 
of the human player, and people are different, even 
the same person from moment to moment. Any good 
algorithm must build or refine its model of the 
player, during the course of the game. 

This particular program keeps an array of 16 prob- 
ability estimates; the person's last two guesses, and 
whether they were right or wrong (16 situations alto- 
gether) determine which estimate is selected. The 
array (which depends on all previous play within 
the game) becomes a model or profile of the player, 
and it can be printed at end of game. Any prob- 
abilities far from .5 indicate predictable behavior in 
the corresponding situations. The profiles can be 
compared over time, or used to study strategy dif- 
ferences between people. They can also be compared 
with random profiles developed by playing games 
with random input such as coin flips, or (more easily) 
by modifying the program so that BASIC statements 
replace the human player and make guesses ran- 
domly (or by some other rule). In fact, different algo- 
rithms could play each other. 

This particular implementation has two param- 
eters: a memory factor (F1) which controls the decay 
rate of old learning when it is overridden by recent 
experience, and a randomness factor (F2) influencing 
the program's likelihood of making the decision sug- 
gested by the probability estimate. These are just 
two of innumerable optional parameters which could 
be used in programming FLIP. 

The program and description were written by John S. 
James. They originally appeared in Creative Computing, 
Mar/Apr 1977. 



ON EACH TURN, VOU GUESS YES <'V) OR NO ('«'). 
OHLY ONE IS CORRECT, AND THE PROGRAM HAS DECIDED 
WHICH ONE BEFORE YOU MAKE YOUR GUESS. AT FIRST 
YOUR OODS ARE 582, PURE CHANCE BUT LATER THE 
PROGRAM MILL TRY TO TAKE ADVANTAGE OF PATTERNS 
IN YOUR GUESSING. 



THE GAME ENDS AFTER 58 TURNS. 


A SCORE OF 24 OR MORE 




IS GOOD. 


THE PROGRAM TELLS WHEN YOU WIN A TURN, 






BY TYPING AN ASTERISK ( 


'*') AS THE FIRST 






CHARACTER OF THE FOLLOHING LINE. 












PRESS ANY KEY TO CONTINUE 














els 








BEGIN. 
















1 N 


i y 


*"' Y 


*■> H 


*•> Y 


*> Y 


"' Y 


t'H 


Y> Y 


i v 


■> y 


*' N 


*> N 


■></ 


*■> Y 


->y 


t y 


1 Y 


1 Y 


•>v 


■> y 


■>H 


*>N 


-,y 


' N 


■>N 


*i Y 


*-> Y 


">M 


*■> N 


"> Y 


'• Y 


tr> Y 


« H 


■> y 


*■> Y 


1 y 


">N 


*'N 


Ml 


*'> Y 


-> v 


"N 


*■/ Y 


*"> Y 


->v 


•> Y 


*? Y 


*i Y 


*■> Y 


* 






END OF GAME 




YOU GOT 22 OUT OF 58 CORRECT. 










?UN AGAIN (Y OR N)? NO 


- 











leas 

29 PRINT 8 412, "FLIP 

38 PRINT 

48 PRINT TAB(7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHH, NJ" 

58 PRINT 8 968, ""; 

68 INPUT 'DO YOU NEED INSTRUCTIONS"; 1$ 

78 81=58 

88 IF LEFTttW, DO«Y" THEN 278 

98CLS 

188 PRINT TRB<38>; "FLIP" 

118 PRINT 

128 PRINT "OH EACH TURN, YOU GUESS YES CYO OR NO '.'N'X " 

138 PRINT "ONLY ONE IS CORRECT, RHD THE PROGRAM HAS DECIDED" 

148 PRINT "WHICH ONE, BEFORE YOU MAKE YOUR GUESS. AT FIRST" 

158 PRINT "YOUR ODDS ARE 58Z, PURE CHANCE. BUT LATER THE" 

168 PRINT "PROGRAM HILL TRY TO TAKE AOVANTRGE OF PATTERNS" 

178 PRINT "IN YOUR GUESSING " 

188 PRINT 

158 PRINT "THE GAME END5 RFTER";Bli "TURNS. A SCORE OF"; 

268 PRINT IHKBL'2-i); "OR MORE' 

218 PRINT "IS GOOD. THE PROGRAM TELLS NHEN YOU HIH A TURN," 

228 PRINT "BY TYPING AN ASTERISK ('*') AS THE FIRST" 

238 PRINT "CHARACTER OF THE FOLLOWING LINE. " 

248 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

250 IF INKEV* =" THEN 250 

268 REM 

278 REM IN1ALI2E: 16 PROBABILITIES, 4 RESPONSES (X), 

288 REM OLD-MEMORY FACTOR (Fl), RANDOMNESS FACTOR (F2), 

298 REM SCORES (SLS2) AND RIGHT-RNSHER FLAG. 

388 DIM PUS), X<4) 

316 CLS 

320 PRINT "BEGIN " 

338 P0=8+64 

348 FOR 1=1 TO 16 

350P(I)=5 

260 (EXT I 

378 FOR 1=1 TO 4 

386 X(I)=8 

396 IF RHDCeX. 5 THEN 416 

486 X(I>=1 

418 NEXT I 

428 Fl=. 8 

438F2=3 
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446 si=a 

458 S2=8 

468 ()$=• " 

4?@ REM 

488 REM TAKE THE ESTMATi ) PROBABIUTV (Zl) 

498 REM OF THE PERSON GUI KING VES. 

588 REH USE AN BDJUSTED f MBABILITV (Z2). 

518 I9=8*XC4)+4*X<3)+2*X< >>+X<i)+l 

528 21=P(I9) 

538 22=21 

548 IF Z20. 5 THEH 578 

559 Z2=KID<9) 

568 GOTO 618 

578 IF Z2>. 5 THEH 688 

588 22=Z2*f2+8*<l-F2> 

558 GOTO 618 

688 Z2=Z2*F2*1*U-F2) 

618 25=8 

628 IF RND(8><22 THEN 65i 

638 25=1 

649 RBI 

658 REM INTERACT HITH PFJ SON. GET HIS RESPONSE <Z3). 

668 REM UPDATE RESPONSE I ISTORV (X), APPROPRIATE PROS. (P<19)). 

678 PRINT Mi 

688Z2=8 

698 INPUT Ht 

709 PRINT « PO, CHR*<215; 



718 PO=PO+8 




728 IF IEFTSCH*, i: 


=T THEN 758 


738 IF LEFT$<H*, i! 


="N" THEN 769 


748 GOTO 699 




759 23=1 




769 ftt=" " 




778 S2=S2+1 




788 IF Z3025 THEN 318 


798 fi*="* 1 ' 




888 S1=S1+1 




818 REH UPDATE X - 


THE LAST 4 CHOICES. 


829 X<i)=X<3> 




838 X(2)=X(4) 




848 X<3>=23 




858 X(4)=Z5 




868 REM UPDATE THE PR0BR3ILITV USING OLD 19. 


879 P(I9)=F1*P(I9)- 


Ci-F1)*XG) 


888 IF S2<B1 THEN . 


78 


898 PRINT fit; 




989 PRINT 




918 PRINT 9 POti6, 


"END OF GfiKE. " 


928 PRINT "VOU GOT 


i Sli "OUT OF"; S2; "CORRECT. 


938 PRINT 




948 PRINT 




958 PRINT "RRV BGfilN (V OR M)"i 


968 INPUT T* 




979 IF LEFT$(Tf, 1 


='V" THEN 318 


989 END 
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Four In A Re 



In this game, eight pegs are put in a 
row, each one of which can hold eight 
rings. Each ring is marked with either 
an X or an O, You and an opponent 
alternate turns; in this case the oppo- 
nent is the computer. On each turn you 
place a ring over one of the pegs, one 
through eight. The object is to get four 
X's or O's in a row, vertically, horizon- 
tally or diagonally. A glance at the 
sample run will show you how this 
process works. 

While the computer already plays 
rather well, you may wish to experi- 
ment with improving the computer's 
play by changing the values in the data 
statements in lines 100 and 110. The 
first four values are awarded if a 
position yields one, two, three, or four 
in a row respectively, for the computer. 
The next four values are bonus points 
for making one, two, three, or four in a 
row in more than one direction with the 
same move. The next eight values (line 
110) are dealt with in the same way for 
the human player; thus, these values 
are for defense. 

If you become addicted to this game, 
Milton Bradley markets it commercially 
under the name "Connect Four." The 
computer version of the game was 
written by James L. Murphy. 



FOUR IN S ROM 
COPYRIGHT 1979 CREATIVE COMPUTING KORRISTOHN, NJ 



DO YOU NEED INSTRUCTIONS? YES. 



- els 



FOUR IN fl ROM 

THE GAME CONSISTS OF STACKING X'S 
AND O'S <THE COMPUTER HAS 0) UNTIL 
ONE OF THE PLAYERS GETS FOUR IN A 
RON VERTICALLY, HORIZONTALLY. OR 
DIAGONALLY. 

PRESS ANY KEY TO CONTINUE 
DO YOU WIT TO GO FIRST? YES. 



12 2 4 5 6 7 8 
PICK A NUMBER BETWEEN 1 AND 8? i. 



— cis ■ 



- - - - - - - 

12345678 
PICK fl NUMBER BETWEEN 1 AND 8? 8. 





X - - X - - X 
12 2 4 5 6 7 8 
PICK fl NUMBER 8ETHEEH 1 AMD 8? 3. 



els ■ 



- - - - - - 
X X X - - X 
12 3 4 5 6 7 8 
PICK R NUMBER BETWEEN 1 f» 8? 3. 



- X X - - - 

X X X - - X 

12245678 

COMPUTER PICKS COLUMN 2 



• els ■ 



- - - - - - 

•noi 

s o no • ■ i 

12 2 4 5 6 7 8 
PICK ft NUMBER BETWEEN 1 AND 8? i_ 



- o - 

X X X - - - 
X X X - - X 
12 2 4 5 6 7 8 
COMPUTER PICKS COLUMN 2 



• els • 



- ----- - 

- - - - - - 

XXXOO--- 
X X X - - X 
12 3 4 5 6 7 8 

COMPUTER WINS 



- els ■ 



12 2 4 5 6 7 8 
PICK fl NUHES: BETWEEN 1 AND 3? 4. 



- - 

- - X - - - 
X X X - - X 
12 3 4 5 6 7 3 

PICK fl NUMBER BETWEEN i AND 8? 2_ 



■ els • 
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18 C1_S:DEFINTfl-Z 

26 clerr ieee 

28 PRINT 6 489, "FOUR IN R 
46 PRINT 

58 PRINTTfi8C7)'C0PVRIGHT i 

68 PRINT 8 968, ""; 

88 DIH BJ<8. 8), U8), S<4 

?8 DIM V<16), M<4) 

168 BATH 1, 188. 568, 1E2C 

118 DRTfl 1, 75, 386, 1E18, 

128 FOR Zi=i TO 16 

138 RERD V(Z1) 

148 NEXT 21 

145 INPUT'TO VQU ICED INS! 

158 OS: IF LEFTKW, 1>="I 

178 PRINT TRB<25)"F0UR IN 

180 PRIHPTHE CflME CONSIST 

196 PRINTRND O'S (THE CO! 

288 PRINT'ONE OF THE PLOW 

218 PRIHT'ROH VERTICRLLV, 

228 PR1HT"DIRG0NRLLY. ■ 

228 PRINT U 979, "PRESS fltf 



W 

i?9 CREATIVE COMPUTING MORRISTOMH, NJ" 

, F<4> 

1, 888, 4888, 1E28 
i, 458, 3888, 1E18 



AUCTIONS"; I* 

* THEN 258 
1 RON" CHR*<13) 
5 OF STACKING X'S" 
>UTER HRS 0) UNTIL" 
•S GETS FOUR IN R" 
HORIZONT&LY, OR ■ 



248 IF INKEY* 

258 X$="X" 

268 0*="0" 

276 FOR 1=1 TO 8 

288 FOR J=l TO 8 

238 BKI, J)="-" 

388 NEXT J 

318 NEXT I 

326 FOR Zl=l TO 8 

338 L(Z1)=0 

346 NEXT 21 

368 IHPUT'DO YOU liRNT TO 

388 OS: IF LEFWfif, 1)=" 

488 GOSUB 428 

410 GOTO 588 

428 PRIHTCHR«28>; .FOR 1= 

428 FOR J=i TO 8 

446 PRINT" ";f»<l, J); 

458 NEXT J 

468 PRINT 

478 NEXT I 

488 PRINT" ■; 

498 FOR 1=1 TO 8 

598 PRINT I; 

518 NEXT I 

526 PRINT:PRINT 

548 RETURN 

558 PRINT'TLLEGRL HOVE, I 

568 FOR fi=l TO 860 

576 NEXT 

588 PRIHT0576, "PICK fl HUT 

598 (1=1NKN) 

686 IF Ha OR (08 THEN K 

618 L=L<H> 

628 IF L;7 THEN 558 

638 L»I)=L+1 

648 l=L+l 

658 BKL H)=» 

686 GOSUB 428 

696 P*=X« 

766 GOSUB 1410 

718 FOR 2=1 TO 4 

728 IF SCZK4 THEN 756 

726 PR1NT-V U U I H : 

748 GOTO 1836 

758 NEXT Z 

768 M9=8 

778 Vl=8 

788 Ni=l 

796 FOR 114=1 TO 8 

868 L=L(I!4!+1 

810 IF D8 THBI 1288 

828 M 

830 P*=0f 

848 H=8 

858 H=M4 

see gosub i4ie 

878 FOR 21=1 TO 4 

880 N<Z1>=0 

830 NEXT Zl 

986 FOR 2=1 TO 4 

910 S=S',Z) 

928 IF S-H>3 THEH 1256 

938 T=S+F<Z) 

948 IF K4 THEH 976 



KEY TO CONTINUE": 
HEN 2* ELSECLS 



iO FIRST"; fi* 
;" THEN 766 



TO 1 STEP -1 



W fiGHIN " 

3ER BETWEEN 1 HND 8";CHR$G1); TNPUTH 
i 



958 V=V+4 

968 N(S)=I«S)+1 

97i3 (EXT Z 

983 FOR 1=1 TO •! 

990 n=h<:d-i 

1688 IF N=-i THEN 1628 

1616 Ii=8#K*S6«(NM 

1826 V=WKI1HI!*V(8*H+D 

1828 (EXT I 

1848 IF H=l THEN 1886 

1658 H=l 

1868 Pt=» 

1078 GOTO 868 

1888 L=L+1 

1898 IF D8 THE!: 1148 

1188 GOSUB 1418 

1118 FOR 2=1 TO 4 

1120 IF SCZ!>3 EHEN V=2 

1136 NEXT 2 

U48 IF V<V1 THEN 1280 

1158 IF YJY1 THEN Nl=l: GOTO 1186 

1168 N1=N1+1 

1176 IF RNB<8»i/(li THEN 1268 

1180 Vl=¥ 

1198 N9=H4 

1288 NEXT H4 

1218 IF H908 T~EH 1248 

1228 PRINFT IE 6 fl (I E . . . " 

1226 GOTO 1838 

1248 H=H9 

1258 PRINTC'576, -COMPUTER PICKS COU.Bt";H 

1268 FOR 0=1 TC 1808 

1276 NEXT 

1288 IX'.HHl 

1239 uh;=un)u 

1266 B*<L HMJ 

1218 p t=0l- 

1230 GOSUB 420 

13:48 GOSUB 141£- 

12:58 FOR 2=1 TC 4 

1366 IF S(2)<4 THEN 1398 

1378PRINT"C IIPUTE R U I NS !!"' 

1268 GOTO 1830 

1390 (EXT Z 

I486 GOTO 588 

1416 at-=x* 

1420 IF P*=:3TKN Qt-=0* 

1436 1)2=1 

1448 01=8 

1458 Z=8 

1460 GOSUB 157C 

1478 Dl=l 

1466 02=2 

1498 GOSUB 157? 

1586 D2-8 

1510 Dl=l 

1526 GOSUB 157S 

1528 D2=-l 

1548 01=1 

1550 GOSUB 1570 

1568 RETURN 

1576 0=1 

1586 5=1 

1596 T=6 

1660 Z=Z+1 

1618 C=8 

1628 FOR K=l TC 2 

1638 B5=MiK*Dl 

1646 Li=L«2 

1650 IF MK1 Of: LKi OR H5>8 OR Li>8 THEN 17' 

1666 Bf-=B«Li, H5> 

1676 IF C=8 THEH 1716 

1688 IF B$=WTVEN K=4: GOTO 1748 

1698 T=T+1 

1768 GOTO 1748 

1718 IF 6i=P$TI'EN S-3+1: GOTO 1748 

1728 C=l 

1736 GOTO 1688 

1748 (EXT K 

1758 IF D=6 THCil 1883 

1768 0=8 

1778 Di=-Di 

1788 D2=-D2 

1796 GOTO 1616 

1868 S(Z)=S 

1818 FiZ)=T 

1828 RETURN 

1838 END 
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<■< 



This program very loosely 
represents a battlefield in which you, 
the player, are located at point 0,0. 
There are five enemy installations that 
may be located anywhere from 0,0 to 
30,30 except for a clear zone from 0,0 to 
10,10. The accompanying diagram 
should make this clear. Instead of the 
normal artillery type of game where 
you are lobbing projectiles onto your 
enemy installations, in this game you 
are firing some sort of laser missile in a 
very straight path which destroys 
everything in its path. If the missileflies 
within one unit either northwest or 
southeast of the target, or, of course, 
over the target directly, that target is 
destroyed. If it is within two units of the 
target, the missile will be shot down 
and that target will relocate to a new 
position one unit away from its 
previous position in some random 
direction. 

Geowar is largely a guessing game 
with incomplete information given in 
its clues. Nevertheless it's fun to play 
and is a nice switch from just a plain 
guess the mystery number game. It was 
written by Gary Lorenc and originally 
appeared in Creative Computing May/- 
Jun 1975. 



90° 
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\o 
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GEOHAR 
COPYRIGHT 1973 CREATIVE COMPUTING MORRISTOWN, NJ 
00 YOU HEED INSTRUCTIONS? YES. 
els 



TIC FIRST QUADRANT OF A REGULAR COORDINATE GRAPH HILL SERVE AS 
THE BATTLEFIELD. FIVE ENEI1V INSTALLATIONS ARE LOCATED HITHIH A 
28 BY 38 UNIT AREA. NO TARGET IS INSIDE THE 18 BY IB UNIT AREA 
ADJACENT TO THE ORIGIN, AS THIS IS THE LOCATION OF OUR BASE NHEH 
THE MACHINE ASKS FOR THE DEGREE OF THE SHOT, RESPOND WITH A 
NUMBER BETWEEN 1 AND 98. 

PRESS ANY KEY TO CONTINUE 



els 

1. fl DIRECT HIT IS A HIT U1THIN 1 DEGREE OF 

THE TARGET. 

2. A HIT MUST PASS BETWEEN THE FIRST SET OF 

INTEGRAL POINTS NH AND SE OF THE TARGET. 

3. A SCARE MUST PASS BETWEEN THE NEXT SET OF 

INTEGRAL POINTS NH AND SE OF THE TARGET, 
AND CAUSES THE ENEHY TO RELOCATE A 
MAXIMUM OF 1 UNIT IN ANY DIRECTION. 

MISSLES HAVE INFINITE RANGE RHD MAY HIT MORE THAN ONE TARGET 
fl MISSILE THAT NEARLY HISSES AN INSTALLATION (A SCARE) WILL BE 
IMMEDIATELY SHOT DOWN. ANY HITS BEFORE THIS TIME WILL NOT BE 
COUNTED UNLESS A DIRECT HIT HAS MADE 



PRESS ANY KEY TO CONTINUE 
els 



READY TO GO? YES 
GOOD LUCK! 



• els ■ 



ENTER DEGREE OF SHOT? 25. 

els 

NO LUCK - TRY AGAIN 

ENTER DEGREE OF SHOT? 25. 

els 

NO LUCK - TRY AGAIN. 

ENTER DEGREE OF SHOT? 47. 
els 



) LUCK -- TRY AGAIN. 



ENTER DEGREE OF SHOT? 



■ els • 



A NEAR HIT. ENEMV HAS RELOCATED. 



ENTER: DEGREE OF SHOT? 82. 
els 



«* CONGRATULATIONS *** A HIT 
1 DOWN - 4 TO GO. 



ENTER DEGREE OF SHOT? 37. 
els 



*** CONGRATULATIONS *t* fl HIT. 
3 DOWN - 2 TO GO. 



ENTER DEGREE OF SHOT? I 
els - 



NO LUCK - TRY AGAIN. 

ENTER DEGREE OF SHOT? 58. 
els 



NO LUCK - TRY AGAIN. 

ENTER DEGREE OF SHOT? 85. 
els 



**** BULLS EYE **** A DIRECT HIT! 
2 DOWN - 3 TO GO. 



ENTER DEGREE OF SHOT? 75. 
els 



NO LUCK - TRY AGAIN. 



ENTER DEGREE OF SHOT? 68. 
els 



NO LUCK - TRY AGAIll 



ENTER: DEGREE OF SHOT? • 
els — 



A NEAR HIT. ENEMY HAS RELOCATED. 
ENTER DEGREE OF SHOT? 77. 
els 



HO LUCK - TRY AGAIN. 

BITER DEGREE OF SHOT? 28. 
els 



A NEAR HIT. ENEMY HAS RELOCATED. 

ENTER DEGREE OF SHOT? 75. 
els 



A NEAR HIT. ENEMY HAS RELOCATED. 

ENTER DEGREE OF SHOT? 13. 
els 



*** CONGRATULATIONS «* A HIT. 
4 DOWN - 1 TO GO. 



ENTER DEGREE OF SHOT? 18. 
els - 



«* CONGRATULATIONS *** A HIT. 

GAME TOTALS. 4 HITS AND 1 DIRECT HITS ON 17 SHOTS. 

READY FOE B HEM GAME? NO TH 
els 
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1 CLEAR 1888 

38 PRINT 8 413, "GEOWAR" 

40 PRINT 

58 PRINT TRB(7)"C0PYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 

68 PRINT S 960, ""; 

70 INPUT™ YOU NEED INSTRUCTIONS"; B 

80 IF LEFTKIJ, 1)="N" THEN CLS. GOTO 428 



seas 

109 PRINT "THE FIRST 6UF 
118 PRINT ■ SERVE RS" 
128 PRINT "THE BfiTTLEFIE 
128 PRINT " H1THIH fl" 
140 PRINT "38 BV 38 UNIT 
158 PRINT "UNIT AREA" 
169 PRINT "ADJACENT TO T 
178 PRINT "BASE. WHEN"; 
188 PRINT "THE MACHINE F 
138 PRINT "NUMBER BETi€E 
288 PRINT 8 979, "PRESS fl 
218 IF INKEW ="" THEN 2 
228 CLS 

238 PRINT "1 A DIRECT H 
248 PRINT " THE TARGE 
258 PRINT "2. A HIT MUSI 



268 PRINT ' 
278 PRINT ' 
288 PRINT ' 
298 PRINT ' 
388 PRINT ' 
318 PRINT 
228 PRINT ' 



INTEGRAL 
I SCARE Mil 
INTEGRAL 
AND CAUS 
MAXIMUM 



tRANT OF A REGULAR COORDINATE GRAPH HILL"; 

.0. FIVE ENEMV INSTALLATIONS ARE LOCATED"! 

AREA. NO TARGET IS INSIDE THE 18 BV 18 "; 

E ORIGIN, AS THIS IS THE LOCATION OF OUR "; 

IKS FOR THE DEGREE OF THE SHOT, RESPOND WITH A" 

I 1 AND 98. " 

IV KEV TO CONTINUE"; 



T IS A HIT WITHIN 1 DEGREE OF" 

PASS BETWEEN THE FIRST SET OF" 
POINTS NH AND SE OF THE TARGET. " 
rr PASS BETWEEN THE NEXT SET OF" 
POINTS NH AND SE OF THE TARGET, " 
5 THE ENEBV TO RELOCATE A " 
IF 1 UNIT IN ANV DIRECTION. " 



338 PRINT "ONE TARGET"; 

348 PRINT "A MISSILE THF 

358 PRINT "HILL BE" 

368 PRINT "IMMEOIATELV S 

378 PRINT "NOT BE" 

338 PRINT "COUNTED UNLES 

398 PRINT 8 979, "PRESS f 

488 IF INKEW ="" THEN 4 

418 CLS 

428 PRINT "READV TO GO"; 

430 INPUT Rt 

448 IF LEFT«R$, 1>="N" 

458 PRINT 

468 PRINT "GOOD LUCK!" 

478 PRINT 

480 DIN C(18), H<28), D( 

498 DEF FN V(W>INT((ie 

588 X=258 

518 X1=RND(0) 

528 G2=8 

528S2=8 

548 D2=6 

558 H2=0 

568 FOR K=i TO 18 

578 GOSUB 1568 

5S8 IF INT(K/2)CK,'2 THE 

598 IF C(K-i»18 THEN 65 

688 IF C(K)>10 THEN 658 

618 FOR L=K-1 TO K 

628 GOSL'B 1568 

638 NEXT L 

648 GOTO 588 

658 NEXT K 

668 S=8 

678 FOR L=i TO 5 

688 D(Li=CC(2*Li/C(2»L-l 

698 D(L)=1NT«1B8,'3. 1415 

788 NEXT L 

718 A=2 

728 Ll=18 

738 T5=5 

748 D5=6 

?58H5=8 

768 GOSUB 1458 

778 PRINT 

788 PRINT "ENTER DEGREE ( : 

798 D1=0 

sea m=e 

818 FOR 0=1 TO 5 

828 F(0)=28 

838 NEXT Q 

848 INPUT D 

858 CLS 

868 IF D>=98 THEN 778 

878 OH SGH(D>+2 GOTO 179 , 

889 S=S+1 

898 FOR A=2 TO 18 STEP 2 

988 IF D>S(A) THEN 1888 

918 IF D<S(A-1> THEN 168 

928 IF D>H(A) THEN 1828 

938 IF D<H(A-1) THEN 182 i 

948 IF D>D(BV2)+1 THEN 9 ( 

958 IF 0<D(A/2)-l THEN 9 i 

968 D1=D1+1 

978 GOTO 998 

988 m=Hl+l 

998 F(D1+H1)=A 

1888 NEXT A 



HISSLES F WE INFINITE RANGE AND MAV HIT MORE THAN "; 
: NEARLV MISSES AN INSTALLATION (A SCARE) "; 
(OT DOWN. ANV HITS BEFORE THIS TIME HILL "; 



: A DIRECT HIT HAS MADE. " 
IV KEV TO CONTINUE": 



HEN 1928 



.8), S(28>, F<5) 

VI. 14159)*ATN(V1)+. 5) 



>*ATI«0(L)>+. 5> 



SHOT"; 



1928 
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1818 GOTO 1653 

1828 IF DIM THEN 1878 

1838 GOSUB 1350 

1848 GOTO 778 

1858 IF O1+H1O0 THEN 1898 

1668 IF T5=i THEN 1618 

1878 PRINT "NO LUCK - TRV AGAIN. " 

1888 GOTO 778 

1898 IF DIM THEN 1158 

1188 IF H1>1 THEN 1138 

1118 PRINT "***■ CONGRATULATIONS *** A HIT. " 

1128 GOTO 1218 

1138 PRINT "*** CONGRATULATIONS ***°;H1; "HITS. " 

1148 GOTO 1218 

1158 PRINT "**** BU1S EVE **** "; 

1168 IF DOl THEN 1288 

1170 IF HIM THEN 1280 

1186 PRINT " A DIRECT HIT!" 

1198 GOTO 1218 

1268 PRINT Di+HJj "HITS - A DIRECT HIT ON'iDli "OF THEM!" 

1216 T5=T5-(Di+Hl> 

1228 D5=D5+D1 

1238 H5=H5+H1 

1248 IF T5=0 TF'£N 1698 

1258 FOR M TO HUM 

1268 Z=F(J> 

1276 D(Z/2>=0 

1288 H<Z>=0 

1298 H(Z-1)=8 

1388 S(Z)=3 

1310 S(Z-1>=0 

1328 NEXT J 

1238 PRINT 5-T5; "DC* -*; 15; "TO GO. " 

1348 GOTO 778 

1358 PRINT "A (OR HIT. BOW HAS RELOCATED. " 

1360 FOR R=l TO 2 

1378 X2=I:iT(RND(8)*ie8) 

1388 IF A3S(C(A-(R-1))-X2»1 THEN 1370 

1290 IF CCA-(R-1)X=2 THEN 1370 

1488 C(A-<R-i»=X2 

1418 NEXT R 

1428 D<A/2)=(C(A)/C<A-1» 

1438 D(fl/2)=INT< (188/3. 14159)*ATN(D(A/2»+. 5) 

1440 L1=A 

1450 FOR !=fl TO U STEP 2 

1460 HCI-0=((KI)-iV<C<I-lHi» 

1478 H(I-i)=INT«188/2. 14159>*ATN(H(l-i»+. 5) 

1488 H<I)=(CC(I)+1)/(C(I-1)-1» 

1498 H(I)=«188X3. 14159)*ATN(H(1)H. 5) 

1560 S(I-i)=<(C(I)-2>AC(I-l)+2» 

1510 S(I-i)=INT«i88/3. 141592)*ATN(S(I-1))+. 5) 

1520 SUM(CUH2y<C<I-l>-2)> 

1538 S(D=1NT( (18873. 14159>*ATN(S(I»+. 5) 

1546 NEXT I 

1558 RETURN 

1560 R=IHT(RND<8)*t88) 

1578 IF R>38 THEN 1568 

1588 IF R'3 THEN 1560 

1590 C<K)=R 

1686 RETURN 

1618 FOR 31=1 TO 5 

1628 IF D<21»i THEN 1648 

1638 NEXT Zl 

1646 IF DOXZl) THEN 1678 

1650 PRINT "TOO HIGH - TRV AGAIN. " 

1660 GOTO 778 

1678 PRINT "TOO LOW - TRV AGAIN " 

1688 GOTO 778 

1698 PRINT 

1788 PRINT "GAME T0TALS:";H5; "HITS FM>";D5i "DIRECT HITS ON";S; "SHOTS. ' 

1710 PRINT 

1726 PRINT "READV FOR A NEH GAME"; 

1738 G2=G2+1 

1740 S2=52+S 

1750 D2=D2+D5 

1768 H2=H2+H5 

1778 INPUT G$ 

1788 IF LEFT«G», 1)="N" THEN 1876 

1798 PRINT 

1868 PRINT 

1810 PRINT 

1826 PRINT "FIVE NEW INSTALLATIONS HAVE BEEN BUILT AT DIFFERENT "; 

1836 PRINT "LOCATIONS. " 

1840 PRIST 

1850 PRINT "GOOD LUCK!" 

I860 GOTO 568 

1878 PRINT 

1888 PRINT 

1890 PRINT "TOTALS FOR"; 02; "GAMES: ";H2; "HITS AND";D2 

1988 PRINT " DIRECT HITS 0N*;S2; "SHOTS. " 

1918 PRINT "AN AVERAGE OF"; S2/(D2+H2>; "SHOTS PER TARGET. " 

1928 END 



Grand Prix 



In this program, you are attempting 
to complete one lap around a grand 
prix circuit against one of six op- 
ponents, everything from a US Postal 
delivery truck to a 1974 Ferrari, The 
track consists of four straightaways 
and four curves with different max- 
imum speeds possible for each one. 
Depending on which car you select for 
your own. you can take these curves 
and straights at different speeds. Also, 
the car you select will have different 
braking characteristics which may 

GRRND PRIX 
COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOWN, NJ 
DO YOU NEED INSTRUCTIONS? YES. 

els 

GRRND PRIX 



allow you to head into a curve at a 
higher speed and then apply the brakes 
at the last minute. 

It may sound like it's easy to win by 
simply selecting a Porsche or Ferrari 
for your car and racing against a US 
Mail truck or a well-used Ford 
Mustang, but beware, it isn't really that 
easy. 

The origin of this game is a bit hazy. 
The only thing that identifies it is PUC. 
Could this be Pacific Union College? 
Perhaps, but we're not really sure. 



CURVE 81 888 YRDS 
CURVE 83 1988 YRDS 
TRRCK LIMITS 
2-3 (88-188) 
4-5 (28-35) 
6-7 (38-118) 
8-1 (58-78) 



CURVE 82 1588 YRDS 
CURVE S4 2888 YRDS 



PUC GRAND PRIX RflCE 



THE TOTRL LENGTH OF ONE LAP IS 3288 YARDS. DURING THE 
STRAIGHTAWAYS YOU MILL BE ABLE TO CONTROL THE ACCELERATION AND 
BRAKING OF THE CAR. THE CURVES WILL BE TAKEN AT WHATEVER SPEED 
YOU ENTER THEM. 

BELOW THE BREAKAWAY SPEED, THE CURVES MAY BE TAKEN WITH 
NO DIFFICULTY. ABOVE THE FASTEST SPEED INDICATED, YOU MAY 
CRASH!! 

WITHIN THE SPEED RANGE THERE IS A POSSIBILITY THAT YOU 
MIGHT LOSE TIME OR SPEED BY SWINGING WIDE OR BY SPINNING OUT. 

THE FASTER YOU TAKE THE CURVES, THE GREATER THE RISKS, 
AND THE LESS THE TIME ! ! ! ! ! 

PRESS ANY KEY TO CONTINUE 

els 



CURVE #1 888 YRDS 
CURVE #3 1988 YRDS 
TRACK LIMITS 
2-3 (88-188) 
4-5 (28-35) 
6-7 (98-118) 
8-1 (58-78) 



POSITION 
E/T MPH YOU OPP ACC 
8*««888»888888888888#888t«»8S8*888888 
2. 8 16 7 3 ? 8_ 



• els ■ 



..6 



CURVE #2 1588 YRDS 
CURVE 14 2888 YRDS 



PUC GRRND PRIX RACE 



WELCOME TO THE PUC GRAN PRIX 



YOUR CAR MAY BE ONE OF THE FOLLOWING: 
1 PORSCHE 

2. FERRARI 

3. MASERBTI 

4. LOTUS FORD 

WHICH CAR WOULD YOU LIKE? 4. 



■els • 



YOUR CAR HAS A MAXIMUM ACCELERATION OF 8 MPH/SEC. 
AND A MAXIMUM BRAKING OF -38 MPH/SEC. 

YOU WILL RACE AGAINST ONE OF THE FOLLOWING: 

1. U. S. POSTAL DELIVERY TRUCK 

2. 1978 BEAT PONTIAC GTO 

3. 1966 WELL USED FORD MUSTANG 

4. LOTUS FORD 

5. 1974 FERRARA 

6. THE PHYSICS SUPERCHARGED LIGHTBERM SPECIAL 

CHOOSE ONE OPPONENT BY ENTERING NUMBER? 2. 

els 



TRACK LIMITS 
2-3 (88-188) 
4-5 (28-35) 
6-7 (90-118) 
8-1 (50-70) 



PUC GRAND PRIX RACE 



POSITION 
E/T MPH YOU OPP ACC 
88888888888888888*8888888888888888888 
28. 8 98 697 752 ? -2. 

els 



CURVE #1 888 YRDS 
CURVE 83 1300 YRDS 
TRACK LIMITS 
2-3 (88-188) 
4-5 (28-35) 
6-7 (30-110) 
8-1 (50-70) 



CURVE 82 1588 YRDS 
CURVE 84 2888 YRDS 



PUC GRRND PRIX RACE 



..6 



. . . . POSITION 

4. ..5 E/T MPH YOU OPP RCC 
88888888888888888888888888888888*8888 
34. 5 146 1451 1454 ? 8 
LOST CONTROL AT 151 MPH. YOUR CAR CRASHED!! 
YOUR OPPONENT FINISHED IN 86.7622 SECONDS! 

DO YOU WISH TO TRY RGRIN? NO. 



POSITION 
E/T MPH YOU OPP RCC 
*8#888888888*it88*8*8*S8888*88«88888*8 
8. 8 8 8 8 '• 8. 
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18 OS 

28 PRINT 8 411, "GRAM) PRIX" 

38 PRINT 

48 PRINT TAB(7)"C0PYRIGHT IS 

58 PRINT 9 968, ■■; 

68 INPUT"D0 VOU NEED INSTRUC 

70 IF LEFT*(I$, i)="N» THEN 

88 OS 

98 PRINT TABC27)"GRRND PRIX" 

188 PRINT 

110 PRINT" THE TOTAL LEN 

128 PRINT'STRAIGHTAWAYS VOU 

138 PRINT'BRAKING OF THE CRR 

140 PRINT"VOU ENTER THEN. " 

158 PRINT" BELOW THE BRE 

160 PRINT'NO DIFFICULTY. ABO 

178 PRINT»CRRSH!!" 

188 PRINT" WITHIN THE SP 

138 PRINT'MIGHT LOSE TIME OR 

280 PRINT" THE FASTER TO 

210 PRINT'RND THE LESS THE T 

220 DIM PCS), F<4>, G<4>, HO 

230 REM 

248 FOR X=i TO 9 

250 READ P(X) 

268 NEXT X 

278 FOR 1=1 TO 4 

288 RERD G(I), F(I) 

298 GCI)=G(IV2. 84545 

388 F(I)=(F(I>+, 61/2 84545) 

318 NEXT I 

328 FOR X=l TO 82 

338 READ H(X) 

348 NEXT X 

345 IF LEFT$<I*,i)=»N" THEN : 

358 PRINT 8 979, "PRESS RNY I 

368 IF INKEYJ ="• THEN 368 

370 D=2 

388 as 

398 PRINTNELCOME TO TIE PUC 

488 PRINT 

410 REM 

420 PRINTYOUR CAR MAY BE ONE 

438 PRINT"! PORSCHE" 

440 PRINT"2. FERRARI" 

458 PRINT"! MRSERATI" 

468 PRINT"4. LOTUS FORI)" 

478 PRINT 

480 PRINTHHICH CAR MOULD YOl 

498 INPUT Z 

588 PRIM 
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HONS"; 1$ 
28 



iTH OF ONE LAP IS 3288 YARDS. DURING THE* 
[ILL BE ABLE TO CONTROL THE ACCELERATION AND" 
THE CURVES HILL BE TAKEN AT WHATEVER SPEED" 

HCRHAY SPEED, THE CURVES MAY BE TAKEN WITH" 
E THE FASTEST SPEED INDICATED, YOU MAY" 

ID RANGE THERE IS R POSSIBILITY THRT YOU" 
SPEED BY SWINGING WIDE OR BY SPINNING OUT. " 
I TAKE THE CURVES, THE GREATER THE RISKS, " 
KE !!!!!" 
2) 



78 

EV TO CONTINUE". 



GRAN PRIX" 



OF THE FOLLOWING: 



510 ON Z GOTO 
520 PRINTWE DC 
538 GOTO 498 
548 M=15 
558 B=-2B 
568 GOTO 658 
578 M=18 
588 B=-25 
590 GOTO 658 
688 M=12 
610 B=-22 
620 GOTO 650 
638 N=8 
640 B=-38 

658 as 

668 PRINTYOUR 
670 PRINTAND f: 
688 PRINT 
698 PRINT'VOU H 



40, 578, 688, 638 

•N'T HflVE THAT CRR IN STOCK, PLERSE CHOOSE AGAIN. ' 



LIKE" 



788 PRINT"! 
718 PRINP2 
728 PRINT"! 
730 PRINT"4. 
748 PRINT"5. 
758 PRINT"6. 
760 PRINT 
770 PRINPCHOOJ 
780 INPUT Rl 
798 IF Rl>8 RNI' 
888 IF Rl=6 THE 
818 PRINT-HHIO- 
820 GOTO 780 
838 R=2*Rl-5 
848 GOTO 860 
858 R=2. 5E+B8 
868 R=(9B+2*R)/ 
870 PRINT 
888 REM 
898 OS 

988 PRINT"TRRCK 
918 PRINT 8 896 
928 PRINT'CURVE 
938 PRINT (» 64, 
948 PRINT"4-5 
958 PRINT6-7 
968 PRINT"8-1 
978 PRINT 6 588 
980 PRINT 8 34E 
998 FOR R=29 TC 
1800 SEK55-R, 
1810 NEXT A 



CAR HAS A MAXIMUM RCCELERRTION OF"; Mi "MPHVSEC. 
MAXIMUM BRAKING OF "; Bi "MPH/SEC. " 

ILL RRCE AGAINST ONE OF THE FOLLOWING:" 

S. POSTAL DELIVERY TRUCK" 

78 BERT PONTIRC GTO" 

56 WELL USED FORD MUSTANG" 

TUS FORD" 

74 FERRARA" 

t PHYSICS SUPERCHARGED LIGHTBEAM SPECIAL" 

E ONE OPPONENT BY ENTERING NUMBER"; 

Rl<6 THEN 838 
N 850 
CAR DID YOU SRY"; 



:i.00+?*RND(0>/188 
BEGIN THE RACE!! 

LIMITS" TAB(28)"2" TAB<57)"1» 
. "CURVE ii 888 VRDS", "CURVE »2 1500 YRDS" 

«3 1988 VRDS", "CURVE »4 2888 YRDS"; 
"2-3 (88-188)" 

<28-35)" TAB(22)"3" TAB(32)"PUC GRAND PRIX RRCE" 

(98-110)" 

(50-70)" 

"4" TAB(19)"5" 

"6" TRB<46>"7" TAB<57>"8" 

3 STEP -1 



Fl) 
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1820 FOR fi=52 TO 115 

1838 SET<R, 3) 

1848 NEXT R 

1858 FOR fl=4 TO 6 

18S0 SETU12+R, fl) 

1878 SEK122-A, fl+6) 

1888 SEK118, R+3) 

1838 NEXT R 

1188 FOR R=29 TO 33 

1110 SEKA-3, fl) 

1128 NEXT R 

1138 FOR R=33 TO 13 STEP -1 

1148 SEK63-R, fl) 

1150 NEXT H 

1160 FOR R=5i TO 61 

1170 SEKR, 13) 

1188 SET<R+28, 13) 

1190 SET(fl+18, 14) 

1288 SET<R+38, 12) 

1210 NEXT R 

1220 FOR R=91 TO 115 

1230 SEKR, 13) 

1240 NEXT fl 

1258 J=l 

1268 PRINT 9 688, "E/T MPH VOU OPP RCC"; 

1278 PRINT 9 555, "POSITION"; 

1288 PRINT @ 664, "88888888888888888888888888888*8888888"; 

1290 X=8 

1300 S=8 

1318 T=8 

1328 T9=8 

1338 X9=8 

1348 REM 

1358 IF J<9 THEN 1458 

1368 as 

1378 PRINTCOMPLETED LAP"; ",ELflPSED TIME"; INT<T*18+. 5)/18i "SEC. " 

1388 PRINT"VOUR OPPONENT FINISHED IN"; 88/R; "SECONDS" 

1398 K1=INT<T*10+, 5>/10-88/R 

1488 IF K1>0 THEN 1430 

1410 PRINTCONGRATULRTIONS, YOU WON BY";-K1; "SECONDS" 

1428 GOTO 2288 

1438 PRINT'SORRY, VOU LOST BY"; Kl; "SECONDS" 

1448 GOTO 2288 

1458 FR=T*R-INT<T*R) 

1468 FC=-< INT<T*R)+2)*< INT<T*R)+2<82)-82*<82<INTCT*R>+2) 

1478 FB=-< INT<T*R)+1)*( INT(T*R)+1<82)-82*(82<INT(T*R)+1) 

1488 FG=H<FC)-H<FB) 

1490 FP=INKHCFB)+FQ*FR+. 5) 

1568 IF FP>3288 THEN 1558 

1518 IM$="888. « 888 8888 8888 

1528 PRINT @ 727, CHR*<38); 

1538 PRINT USING IM*; INT<T*18+. 5V10, INT(S*2. 84545+. 85), INT<X), 

1548 GOTO 1588 

1558 PRINT ? 727, CHR$<38); 

1568 IH$=LEFT$<IM«, 25)+"FINISH " 

1578 PRINT USING IM*; INT<T*10+. 5)/18, INT(S*2. 04545+. 85), INKX); 

1580 INPUT fll 

1590 R=ftL/2. 64545 

1688 IF Rl>=8 THEN 1888 

1618 IF R1>=B THEN 1648 

1620 PRINTMRXIMUM BRAKING IS »;B;"HPH/SEC"; 

1638 GOTO 1458 

1648 Tl=-S/fi 

1658 IF T1>D THEN 1828 

1660 X1=X+S*T1+R/2*T1*T1 

1678 IF X1>P(J+1)THEN 1730 

1680 PRINTYOU STOPPED"; INT <PU+i)-Xl); "YftRDS FROM POINT"; J+l; 

1698 S=8 

1788 X=X1 



1718 T=T+T1 
1728 GOTO 1358 
1738 Y=P(J+1)-X 
1748 IF RO0 THEN 1770 
1758 T=T+Y/S 
1768 GOTO I860 
1770 Sl=SQR<S*S+2*fl*Y) 
1788 T=T-<S-S1VR 
1798 S=S1 
1888 J=J+1 
1810 GOTO 1940 
1820 Xi=X+S*D+R/2*D*D 
1830 IF Xi>P(J+l)THEN 1730 
1840 T=T+D 
1858 S=S+A*D 
1860 X=X1 
1878 GOTO 1350 
1880 IF AK=M THEN 1910 

1890 PRINT'HRXIMUM RCCELERRTION IS";M; "HPH/SEC" 
1980 GOTO 1458 
1910 Xl=X+S*D+fl/2*D*D 
1928 IF X1>P<J+1)TKEN 1730 
1930 GOTO 1828 
1948 REM *** SUB CURVE *** 
1958 REM 
i960 I=INT<J/2) 
1970 T1=<PU+1)-PU»/S 
1980 S1=G(I)+(F<I)-G<I))*RND<8) 
1998 IF S>S1 THEN 2858 

2880 PR1NT"CURVE"; J; -J-l; ", SPEED"; INKS*2. 04545+. 85); "MPH" 
2818 J=J+i 
2828 X=PO) 
2038 T=T+T1 
2040 GOTO 1350 

2858 IF S>Sl+<F<I)-Sl)/2 THEN 2118 
2868 T2=T1*RND<8)*, 4 

2670 PRINFSPEED IN CURVE"; 1NT(S*2 84545+. 85); "MPH, TOOK CURVE WIDE, LOST". 
2888 PRINT 1NT<T2*1B+. 5V18; "SEC. " 
2898 Tl=Ti+T2 
2180 GOTO 2018 
2110 IF S>F(I)THEN 2170 
2128 S2=S-S*RND<0)*. 9 
2130 T1=T1*S/S2 

2140 PRINT"SPUN OUT RT"; INKS*2. 84545+. 05); "MPH, LOST SPEED AND TIME" 
2158 S=S2 
2168 GOTO 2818 

2178 PRINT'LOST CONTROL AT"; INT(S*2. 84545+. 05); "MPH YOUR CRR CRRSHED! !" 
2180 PRINT"VOUR OPPONENT FINISHED IN"; 82/R; "SECONDS!" 
2190 REM 
2288 PRINT 

2218 PRINTDO YOU WISH TO TRY RGRIN"; 
FP ; 2228 INPUT fS 

2230 IF LEFT$(Rt, i)="Y" THEN CLS: GOTO 420 

2240 END 

2258 REM 

2268 DHTflO, 808, 1000, 1500, 1688, 1980, 2488, 2888, 3200 

2270 DRTR85,168 

2280 DRTR28,35 

2298 DRTR90,118 

2388 DRTR50,70 

2310 REM 

2320 DRTR0, 1, 3, 9, 21, 39, 62, 87, 128, 156, 196, 244, 293, 351, 418 

2338 DRTR479, 558, 625, 780, 758, 800, 847, 894, 942, 998, 1838, 1880 

2340 DRTR1135, 1200, 1268, 1338, 1382, 1425, 1470, 1498, 1505, 1519 

2350 DBTR1539, 1548, 1563, 1578, 1512, 1618, 1632, 1658, 1683, 1718 

2268 DATR1758, 1880, 1850, 1898, 1943, 1997, 2050, 2184, 2057, 2210 

2370 DRTR2294, 2317, 2370, 2420, 2488, 2535, 2688, 2678, 2725, 2768, 2799, 2830 

2388 DRTR2861, 2892, 2920, 2951, 2982, 3013, 3044, 3875, 3106, 3137, 3168, 3199 

2398 DRTR18000 
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Many, if not most, tv 
that are played on 
based on fixed rules t 
one player uses the 
rational playing str; 
player wins. If both p 
rules and rational pi 
then the winner is usi 
by who goes first. Tic- 
and Even are example 
type. 

A more interesting 
one where the playir 
mixed type. This me; 
move, in most cases, t 
moves have already t 
player can only 
probability of the besl 
card games (Bridge, 
usually games of mix* 

Most two person < 
type are either so corr 
best strategies are nc 
are so simple that t 
teresting to play. The 
is an exception to tl 
element of bluffing, 
central role in this g 
game interesting. The 
for playing this two 



'O person games 
a computer are 
lat assure that if 
se rules and a 
tegy then that 
layers use these 
aying strategies 
lally determined 
"ac-Toe, Batnum 
;ofgamesofthis 

type of game is 
g strategy is of 
ns that the best 
lependson what 
een made and a 
determine the 
move. Standard 
Poker etc.) are 
;d type. 

lames of mixed 
plicated that the 
t known or they 
ney are not in- 
jame of Guess It 
lis pattern. The 
which plays a 
ame, makes the 
optimal strategy 
Derson game of 

GUESS IT 



mixed type has been determined by 
Rufus Isaacs 2 . 

This program simulates the game of 
Guess It. The computer plays accord- 
ding to the optimal strategy deter- 
mined by Isaacs. Lines 1860 to 2090 
give instructions on how to play the 
game. The number of numbers in each 
hand is determined in line 30, (It is set 
at 5. This is the value Isaacs used in his 
analysis of the game.) To ciange the 
number of numbers in each hand only 
the value of H in line 30 needs to be 
changed. 

To play the game in an optimal way 
decisions need to be made based on 
the win probabilities P(m,n) where m is 
the number of numbers in your hand 
and n is the number of numbers in your 
opponents hand. The matrix of these 
win probabilities is computed in lines 
120 to 210.. 

To match the optimal strategy of the 
computer some type of randomizing 
device based on the win probabilities 
P(m,n) is required. (See (1 ) and (2) for 
descriptions of how to make and use 
such devices. These devices only work 
when there is a maximum of 5 numbers 
in each hand.) 
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The decision as to whether or not a 
number asked about by a player was a 
bluff is made in line 800. The decision 
to bluff or not when asking about a 
number is made in line 990. 

The program gives the player the 
option of going first. The win probabili- 
ty, P(5,5), in this case is .538. Therefore 
the player going first has a slightly 
better than even chance of winning 
assuming that both players use the 
optimal strategy. 

There are two reasons why bluffing is 
important in any strategy. If a player 
never bluffs, then any "ask" about a 
number that is not in the opponent's 
hand will result in a loss since the other 
player will know that it must be the 
down number, A successful bluff can 
lead the other player to make an 
incorrect guess of the down number. 

The program and description were 
written by Gerard Kiernan of Manhat- 
tanville College, Purchase, NY. 
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DO V(X) ICED I BTRUCTIONS? VES_ 

els 



TIE OBJECT OF 
THE 'DOHH HUH 
TO 11 VOUH 
BETHEENi AND 

dohh nuhber h 
plavers' hand 



THIS GRHE IS TO GUESS M UNKNOT NUKBER CALLED 
ER'. THE GAHE IS PLAVED HITH THE NUHBERS FROH 1 
LL BE GIVEN R HAND OF 5 RAKDOHLV SELECTED NUMBERS 
11 THE C0WUTER HILL HflVE fl SIMILAR HRM>. THE 
LL HLHfWS BE THE NUKBER NOT IN EITHER 

PRESS ANV KEV TO CONTINUE 

els 



DO VOU HRNT TO GUESS THE DOW NUHBER? NO 



HKTT NUMBER DO VOU HftNT TO ASK (BOOT? 1 



i IS IN KV HflND. 



I VOU HRVE 3 ? VE5. 



■ els ■ 



VOU ALTERNATE 
RRE THO OPTia 
NUSER 



HOVES HITH THE CORPUTER ON ANV HOVE THERE 
S - GUESS THE DOHH NUI8ER OR ASK ABOUT SOHE 



VOUR HAND IS 



2.8.3 9. 



WHEN A PLAVER GUESSES THE DOM) NUTOER THE SAKE STOPS. 
IF THE GUESS S CORRECT THAT PLAVER HINS. 
IF THE GUESS S NOT CORRECT THAT PLAVER LOSES. 
PRESS ANV KEV TO CONTINUE 

els 



DO VOU HRNT TO GUESS THE DOHH NUKBER? NO 
WIT NUHBER DO VOU HANT TO ASK ABOUT? 5 
5 IS IN HV HftHD. 



ALL QUESTIONS ABOUT NUKBERS IN THE OTHER PLAVERS HAND 
BUST BE RNSHE ED TRUTHFULLV. R PLAVER HAV 'BUFF' BV 
ASKING ABOUT I NUKBER IN HIS ORN HAND (THE COWER 
HILL SQKETIHE DO THIS). 

R NUtBER HAV I E RSKED ABOUT 0M.V ONCE. 
G00D1UCK! 

PRESS ANV KEV TO CONTINUE 

els 



DO VOU HRVE 4 ' VES. 



■ els • 



VOURKAHD IS 
4.2.8.3.9. 



vas \m is 

': 2.8 39 
DO YOU HW TO GUESS THE DOHN NUKBER? NO 
(HIT NUKBER DO VOU HRNT TO RSK ABOUT? 7 
7 IS IN HV HAND. 



DO VOU RANT Tl GO FIRST? VES. 
els ■ 
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DO YOU HAVE 8 ' VES. 



■ els ■ 



els 

YOUR RAND IS 

4 2 8 2 9 

DO YOU HflNTTO GUESS TIC DOHN NUHBER? NO 

HHAT NUHBER DO YOU ffiNT TO ASK ABOUT? li 

11 IS IN Iff HAND. 



DO YOU HAVE 9 ? YES. 



els ■ 



TIE DOW NUHBER IS 6. 

YOUR GUESS OF 6 IS CORRECT. YOU KIN! 

DO YOU HUNT TO PLOT RGfllH? NO . 
els 



IB OS 

20 2=11 

38B=5 

4eDIHP<i0,i8>,U(2),N<2> 

58 PRINT t 411 'GUESS IT" 

68 PRINT 

76 PRINT TA8<7)"C0PYRIGHT 1979 CREATIVE COMPUTING KORRISTOW, NJ" 

88 PRINT § 896, "; 

98 INPUT'DO YOU KEED INSTRUCTIONS'; 1$ 

1B0G1=0 

118 Cl=8 

128 FOR K=i TO H 

138 POO 8)=1 

148 P<8, K)=i/<K+i) 

158 NEXT K 

168 FOR M TO H 

178 FOR J=I TO H 

188 P(I, J)=(1+J«P(J, !-l)*(l-P(J-L I»)A1+(J+2)«P<J, M» 

198 P(J, I)=<1+I«P<1, J-1W1-KM, J)))A1+<I+1)*P(I, J-l» 

286 NEXT J 

218 NEXT I 

228 IF LEFTKK, 1!="Y" GOSUB 1818 

238 CLS 

248 01=61+1 

258 FOR J=2 TO 2 

268 U(J)=8 

278 NEXT J 

288 E=8 

298 T=8 

388 C=B 

318 P=8 

328 L=8 

338 GOSUB 1718 

348 REH HC1) TO N<H)= COHP HAND N<H+1)=T0 NC2)= OTKER HAND 

358 D=N<2) 

368 PRINT'YOUR HIN) IS" 

376 FOR 8=1 TO 5 

388 PRINT CHR*(188)STRING$<3, 148); 

398ICXT 

488 PRINT CHRK188) 

418 FOR I=H+1 TO 2-1 

428 PRINT CHRJ(191)N(I>; 

438 IF N<D>9 TICN PRINT CHRK8); 

448 NEXT I 

458 PRINT CHRK19D 

468 PRINT STRINGt(21, 131) 

478 PRINT 

488 PRINT 8 512, "DO YOU KANT TO GO FIRST" CHRtGi); 

498 INPUT « 

588 IF LEFT$(R$, 1)="Y" THEN 548 

518 IF LEFMCftt, DO"N" THEN 478 

528 K=i 

538 GOTO 558 

548 K=8 

558K=K+i 

568K=H-C 

578N=H-P 

588 PRINT 



598 IF K=( INT<K/2»«2 THEN 918 

688 PRINT 8 256, "DO YOU KRHT TO GUESS THE DOW NUHBER" CHRK31); 

618 INPUT At 

628 IF LEFTJOS, i)='V THEN 1318 

638 IF LEFT$<f», DO'N" THEN 688 

648 PRINT 

658 PRINT'WHAT NUHBER DO YOU KANT TO ASK ABOUT"; 

668 INPUT E 

678 FOR 1=1 TO 2 

688 IF E=U(I> THEN 718 

690 NEXT I 

708 GOTO 738 

718 PRINT E; "HAS ASKED BEFORE. TRY AGAIN. ■ 

728 GOTO 648 

738 FOR J=i TO H 

748 IF N(J)=E THEN 858 

758 NEXT J 

768 PRINT B "IS NOT IN HY HAM). " 

778 IF H=8 THEN 1538 

788 IF N=8 THEN 1518 

798 Y=«H+1)*P<H, N-1)-M*P(H-1 N»/<1+(H+1)*P(H, N-D) 

888 IF RHX8XY THEN 1450 

818 GOSUB 1288 

828 IF <H-P)=1 THEN 1530 

828P=P+i 

848 GOTO 558 

858 PRINT 

868 PRINT Ei "IS IN HY HAM). ■ 

878 C=C+1 

888 COSUB 1288 

836 GOTO 558 

308 REH COHP SE8 STARTS 

310 IF T08 THEN 1488 

928 IF H-C08 THEN 948 

930 GOTO 1538 

948 IF H-P08 THEN 368 

350 GOTO 1538 

368 IF <2*H-2)-(P+C>O0 THEN 388 

378 GOTO 1538 

388 REH RND DECISION TO BLUFF OR NOT ON ASKING FOR CARD 

398 IF RND<8»lAi+(N+i)*P(N, H-i» THEN 1128 

1088 PRINT: PRINT: PRINT 

1818 PRINT 

1828 A=IHT(H*RHD(8))tl 

1839 FOR M TO 2 

1848 IF N(A)=U(J) THEN 1820 

1858 NEXT J 

1868 PRINT'DO YOU HfiVE";N(A); 

1878 C=C+1 

1888 INPUT A$ 

1098 E=N(A) 

1100 GOSUB 1288 

1118 GOTO 558 

1128 GOSUB 1238 

1138 PRINT 

1148 PRINT'DO YOU HAVE";N(A); 

1158 INPUT R* 

1160 IF LEFT*(A$, 1)="Y" THEN 1198 

1170 T=i 

1188 GOTO 558 

1198 E=N(ft) 

1288P=P+1 

1218 GOSUB 1288 

1228 GOTO 558 

1238 R=IHT«H+l)*RHD(8)>+<H+i) 

1240 FOR M TO 2 

1258 IF N(A)=U(J) THEN GOTO 1238 

1268 NEXT } 

1278 RETURN 

1288L=L+1 

1298 U(L)=E 

1288 RETURN 

1318 PRINT 

1328 PRINT'HHAT DO YOU THINK THE DOWN NUHBER IS"; 

1338 IKPUT B 

1348 PRINT 

1358 CLS 

1368 PRINT'THE DOHN NUMBER IS";N(2); CHRK8);" " 

1378 IF B=NCZ) THEN GOTO 1438 

1388 PRINT 

1398 PRINT'YOUR GUESS 0F",'B;"I5 NOT CORRECT. YOU LOSE" 
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1489 Ci=Ci+l 


1788 


1418 GOTO 1558 


1798 


1428 PRINT 


1888 


1438 PRIHTVOUR GUESS ';B; "IS CORRECT. VOU MM!" 


1818 


1448 GOTO 1598 


1828 


1458 PRIHT'I THTO VOU ERE HOT BLUFFING WEN VOU ASKED ABOUT"; E; CHR$<8>; ". ■ 


1838 


1468 G=E 


1848 


1478 SOTO 1558 


1858 


1488 PRINT N(fl)i "HAS NO fl BLUFF. " 


1868 


1498 G=H(R) 


1878 


1588 GOTO 1558 


1888 


1518 G=II(Z) 


1898 


1528 GOTO 1558 


1968 


1538 GOSUB 1238 


1316 


1548 G=N(fl) 


1928 


1558 PRINT"! GUESS TIC ! OW NUKBER I5";Gi CHRJ(8); ■. ■ 


1938 


1568 IF G=N<Z> THEN 167 ■ 


1948 


1578 PRINT 


1958 


1588 PRIHT'THE Km HUH £R I5';NCZ); CKR{<8>;». I HAS NRONG... VOU HIH. ' 


1968 


1598 PRINT 


1978 


1688 PRINT 'DO VOU HflNT TO FlfiV AGAIN"; 


1988 


1618 USUI A* 


1998 


1628 IF LEFT*«tt. 1>='V THEN I*='N": GOTO 128 


2688 


1638 IF LEFWftt. DO' 1" THEN 1598 


2818 


1648 PRINT 


2828 


1658 PRINT'VOU PUKED 1 * d;"GAHES. VOU LOSTiCl; CHRK8);", VOU H0N";G1-Ci 


2838 


1668 EK» 


2848 


1678 PRINT 


2858 


1688 PRIHT'THE DOHN NUH ER IS";N(Z>; CHRK8); ". I MRS CORRECT. . . VOU LOSE. " 


2868 


1698 CKlti 


2878 


1788 GOTO 1598 


2888 


1718 FOR 1=1 TO Z 


2898 


1728 N(I)=I 


2188 


1738 NEXT 1 


2116 


1748 FOR M TO Z 


2128 


1758 R=INT(RNDC6)*((Z+1 »I»tI 


2138 


1768 H=NCR) 


2148 


1778 Nffi)=NU> 


2158 




2168 



NCI>=H 

NEXT I 

RETURN 

OS 

PRINT 

PRIHT 

PRINT 

PRIHT'THE OBJECT OF THIS (HE IS TO GUESS AN UNKNOWN NUMBER COLLED" 

PRIHT'THE 'DOW NUKSER'. THE GRKE IS PLRVED MITH THE NUK8ERS FROH 1" 

PRIHTTC'iZi CHRK8); ■. VOU HILL BE GIVEN fl HAND OF'; H; 'RRKDOHLV SELECTED NUHBERS 

PRINT'BETKN 1 (DD'iZi CHRJC8); 

PRINT ' THE CWUTER HILL HRVE fl SIHILRR HRND. THE' 

PRINT 'Com HUKBER HILL ALHRYS BE THE NUK3ER NOT IN EITHER" 

PRINT "FlflVERS' HANDS. ' 

GOSUB 228 

PRINT 

PRINT 

PRIHT 

PRINT'VW ALTERNATE HOVES HITH THE COWUTER. ON flHV HOVE THERE" 

PRINT'AFE TWO OPTIONS - GUESS THE DOHN NUKBER OR ASK ABOUT SOKE' 

PRIHT •MRBER,": PRINT 

PRINT'Hta R aRVER GUESSES THE DOW NWBER THE GAS STOPS. " 

PRINT'If THE GUESS IS CORRECT THAT PLRVER HINS. " 

PRIKT'IF THE GUESS IS NOT CORRECT THAT PLRVER LOSES. ' 

GOSUB £.28 

PRIHT: PRINT: PRINT 

PRINT"«.L QUESTIONS ABOUT NJKSERS IN THE OTHER PLRVERS HAND" 

PRINT'NST BE ANSHERED TRUTHFULLV. fl PLAVER MRV 'BLUFF' BV" 

PRIHT'AKIHG ABOUT A NUKSER IH HIS OKN HMD (THE COHPUTER' 

PRiNT'HiLL sarnie do this). ■ 

PRINT 

PRINT'A (IUHBS! HAV BE ASKED ABOUT ONLV ONCE. " 

PRINT: FR1NT 

PRINT" GOOD LUCK!" 

PRIHT 8 979, "PRESS AHV KEV TO CONTINUE"; 

IF INKEVS =" THEN 2138 

CLS 

RETURN 

END 
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Your radar station picks up an enemy ICBM heading 
your way, telling you its coordinates (in miles north and 
miles east of your location). You launch a surface-to-air 
missile (SAM) to intercept it. 

Your only control over the SAM is that you can aim it 
in any direction, both at launch, and in mid-air. Using the 
coordinates of the ICBM as a guide, you INPUT the 
direction (measured CCW from North) in which you want 
the SAM to travel. 

At the next radar scan one minute later, you are given 
the new coordinates of the ICBM, the coordinates of your 
SAM, and the distance between the two. You can now 
make corrections in the course of your SAM by entering a 
new direction. 

You have no control over the altitude of your SAM, as 
it is assumed that it will seek the same altitude as the ICBM. 

As the two missiles draw closer, you make adjustments 
in the direction of the SAM so as to intercept the ICBM. 
It's not easy to hit, because the ICBM is programmed to 
make evasive maneuvers, by taking random deviations from 
the straight line course to your location. Also, its speed is 
not known, although it does not vary after being randomly 
selected at the start of the run. 

You can destroy the ICBM by coming within 5 miles of 
it, at which time your SAM's heat-seeking sensors will 
come into action and direct it to its target. If you overshoot 
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MISSLE 
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RADAR SCOPE 



EAST 

MISSLE 

MILES HILES 
NORTH EAST 



■-SAH-- 



HILES 
NORTH 



MILES 
EAST 



DIR 



ICBM 5 SAfl NOH 734 HILES RPflRT 
215 734 62 

0l8 ■ 

N. 

0. 
R. 
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K. 



EAST 

MISSLE 

HILES MILES 
NORTH EAST 
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MILES 

NORTH 



HILES 
EAST 



DIR 



ICBH 6 SAH NOH 621 HILES APART 
293 686 67 
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77 



the ICBM it's possible to turn the SAM around and chase 
the ICBM back towards your location. But be careful; you 
may get both missiles in your lap. 

There is also some element of chance involved, as 
several accidents have been programmed to occur random- 
ly. These can work for you or against you. 

Some ways to improve and expand the program are: 
1. Operator control over SAM speed: In the present 
version the speed of the SAM is randomly selected by the 
computer at the start of the run, and remains constant 
thereafter. This often results in overshooting the ICBM. 
Modify the program so that you can input a new speed 
(within limits) at the same time you input the new 
direction. 

2. Three dimensional version: Have the computer print 
the altitude of the ICBM, as well as its coordinates. The 
operator will then have to INPUT the angle his SAM is to 
make with the horizontal, when entering the other quanti- 
ties. 

3. Extend to all Quadrants. In the present version, the 
ICBM approaches only from the Northeast. You can 
expand this to include approach from any compass direc- 
tion. 

This game is derived from a program submitted by Chris 
Falco. The writeup is by Paul Calter and originally appeared 
in Creative Computing, May/Jun 1975. 

els — 



RflDRR SCOPE 



ERST 

MISSLE 

MILE. MILES 
NORTH EAST 



MILES HILES 
NORTH EAST 



DIR 
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RADAR SCOPE 



ERST 

MISSLE 

MILES MILES 
NORTH EAST 



SAM 

MILES MILES 
NORTH EAST 



DIR 



ICBH t SAH NOH 867 MILES APART 
iT2 299 54 
ols . 

it 
0. 

T. 
H.. 
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RADAR SCOPE 



EAST 

MISSLE 

MILES HILES 
NORTH EAST 



SAM 

MILE. MILES DIR 
NORTH EAST 



ICBM & SAB NOU "65 MILES APART 
825 291 168 
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448 RESET(X*64/108&i:<, 19-(V*19/1888)> 


23 PRINT 6 414, "ICBH" 






458 RESET<X2*64/188t+3, i9-<V2*i9/1888» 


39 PRINT 






468Tl=Tl/57.296 


48 PRINT TflB(7)"C0PVRIGHT 1979 CREATIVE COMPUTING 


HORRISTOUN, NJ" 


478 H=INT(RND(8)*286H) 


58 PRINT 6 968, "; 






488 IF 104 THEN 518 


68 INPUT-PRESS ENTER TO S RRT";M 






498 OS 


78 OS 






583 ON H SOTO 788, 128, 748, 768 


88X1=8 






518 Xl=INT<Xi+Si*SHKTi» 


85TL=1 






528 V1=INT<V1+S1*C0S(T1» 


98 Vi=8 






538 IF S«(XT2tV{2):S THEN 578 


168 X=INT<RND<8)*898)+288 






546 X=8 


118 V=INT<RHD(8>*«8H268 






558 V=« 


128 S=INT<RMX8)*29+58> 






568 GOTO 658 


138 Sl=INT<RND<8)*28+58) 






578 B=SQR<H2+V£2>,«8B8 


148 FOR fl=8 TO 19 






588 T=flTN(V/X) 


158 SETG, fl) 






598 X=INT(X-S*C0S<T;+RND(8)*2B+R) 


168 NEXT 






693 V=INT<V-S*SIN<T:+RND<3)*28+R) 


178 FOR (1=3 TO 64 






618D=SQR((X-Xl)[2+iV-Vl)[2) 


188 SET(fl, 13) 






628 IFD=<5.5THEH«8 


198NEXT8 






638 D=INT(D) 


288 FOR R=l TO 5 






648 PRINT CHR$(13)'!CBH I SflH NOT: Dj "MILES flPRRT" 


218 PRINT 8 R*64, H1MCN RTH'.ft. 1): 






658 NEXT N 


228 NEXT fl 






668 as 


238 PRINT 8 461, "E fl S T" 






678 PRINT 'CONGRATULATIONS! VOUR SflH CttE HITHIN";Di "MILES OF" 


248 PRINTS 236, "RPMRSCPE"; 






688 PRINT "THE ICBH AND DESTROVED IT!" 


258 GOSUB 278 






698 GOTO 818 


268 GOTO 328 

278 PRINT 8 576, " IISSLE 




snti a 


788 PRINT "TOO BRD. VOUR SflH FELL TO THE GROUND!" 






718 GOTO 818 


288 PRINT "HUES 1ILES 


HILE5 


HUES DIR " 


728 PRINT "VOUR SRH EXPLODED IN MIDAIR!" 


298 PRINT "NORTH [AST 


NORTH 


EflST '" 


738 GOTO 810 


368 PRINT STRINGK59, "-") 






748 PRINT "GOOD LUCK - THE ICBH EXPLODED HRRHLESSLV IN HIDHIR!" 


318 RETURN 






758 GOTO 818 


328 PRINT 






768 PRINT "GOOD LUCK - THE ICBH TURNED OUT TO BE fl FRIEKDLV flIRCRHFT! 


338 FOR N=l TO 58 






778 GOTO 818 


348 PRINT USING "IHt ":V, X. 


VI, XI, 




788 as 


358 IF TL=1 THEN TL=8: GO '0 398 






798 PRINT "TOOBftD!' 


368 IF X1M6 THEN X2=X1 1SE X2=16 






888 PRINT "THE ICBH JUST HIT VOUR LOCATION!!" 


388 IF Vi>=52 THEN V2=Y1 1SE V2=52 






818 PRINT 


398 SET(X*«/168B*3, 19-< '*19/186e» 






828 PRINT "DO VOU HliilT TO PLftV MORE? (V OR N)"i 


488 SEKX2*64/i888+3, 19- V2*19/1888)) 






838 INPUT m 


418 IF X<=8 THEN 788 






848 IF LEFT«ftt, 1)="V" THEN PRINT CHR$(28)CHR$(31) : CLEflR: GOTO 88 


428 INPUT Tl 






858 END 



438 GOSUE 278 
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Inkblot 



INKBLOT is a program that 
creates "inkblots" similar to those 
used in the famous Rorschach 
Inkblot Test. The program generates 
these inkblots randomly so that 
literally millions of different patterns 
can be produced. Many of these 
patterns are quite interesting and 
serve not only as conversation 
pieces, but also as good examples of 
computer "art." 

In addition, INKBLOT is interest- 
ing from a mathematical point of 
view. This is because INKBLOT 
actually creates inkblots by plotting 
ellipses on the left side of the page 
and their mirror-images on the right 
side. The program first chooses the 
ellipses to be plotted by randomly 
selecting the values a, b, j, k and in 
the equation for a rotated ellipse: 



INKBLOT could be enhanced in 
several ways. For example, it could 
have an option to print the "negative" 
of an inkblot by filling in the area 
around the ellipses rather than the 
ellipses themselves. It is also possi- 
ble to build in a "repeatable random- 
ness" feature so that exceptional 
outputs could be reproduced at any 
time. These enhancements are left 
for the ambitious programmer to 
make. 

Program and description are by 
Scott Costello. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 



[(x-j)cosQ + (y-k)sin9] 



[(y-k)cosQ- (x-j)sin9] 2 
b 2 



INK BLOT 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



A 



DO VOU NEED INSTRUCTIONS? VES. 




"\ 



■ els • 



-_':Z-L. 



-»- 



INKBLOT 

THIS PROGRAM DRAMS AN INKBLOT ON THE SCREEN. THE 
PROGRAM MILL TAKE FROM 38 SECS. TO 5 MINUTES DEPENDING 
ON THE NUMBER OF ELIPSES VOU SPECIFV. THE MORE ELIPSES 
THE BETTER THE BLOT <AND THE LONGER THE TIME). 

NHEN THE INKBLOT IS FINISHED HIT ANV KEV TO END THE 
PROGRAM. 



NUMBER OF ELIPSES TO BE PLOTTED "> 7_ 
els — 



where 



a = 



b = 



J = 

k = 



= 



the horizontal radius of 

the ellipse 

the vertical radius of the 

ellipse 

the distance from the 

ellipse center to the y-axis 

The distance from the 

ellipse center to the x-axis 

the angle of rotation in radians 



Since the actual method by which the 
program plots the ellipses is quite 
complicated, it won't be discussed 
here. 
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16 CLS. PR:NTU412, "INK BLOT 

20 PRINT PRINT TflB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINT99i;9, ""; INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 

48 IF LEFTSCI*, 1)="N" THEN CLS. GOTO 130 

58 CLS: PRINT TRB<28>; "INKBLOT" ■ PRINT 

60 PRINT " THIS PROGRAM DRAWS AN INKBLOT ON THE SCREEN. THE" 

70 PRINT "PROGRAM WILL TAKE FROM 30 SECS. TO 5 MINUTES DEPENDING" 

89 PRINT "ON THE NUMBER OF ELIPSES VOU SPECIFV. THE MORE ELIPSES" 

99 PRINT "THE BETTER THE BLOT (AND THE LONGER THE TIME). " 

188 PRINT 

110 PRINT " WHEN THE INKBLOT IS FINISHED HIT ANV KEV TO END THE" 

120 PRINT "PROGRAM.": PRINT: PRINT PRINT 
130 CLEAR :.O00: DEFINTV, E, J 

140 INPUT "NUMBER OF ELIPSES TO BE PLOTTED ";M: CLS 

150 DIM A :12,13),B$G6),B$<36) 

160 FOR L=l TO M 

170 R<L1)=38*RND<0> 
180 A<L,2.'=42*RND<0> 

190 A(L,3>=<15*RND<0>+2>[2 

260 R<L,4)=(15*RND<0)+2)I2 
210 T=3. 1 4159*RNDC0) 
220 A<L.5:>=C0S<T) 

230 R<L, 6>=SIN(T) 

240 fKL,7>=fl(L5)*fl<L,6> 

' 250 R<L,5>=Aa,5)*A(L,5) 

269 ACL, 0=A(L, 6)*A(L, 6) 

276 A<L,8>=A<L,1)*A(L,1)*A<L,6) 

280 A<L, ?)=fl<L. 1)*A<L, 1)*A<L, 5) 

290 A(L,16)=A<L1)*A<L,7> 

300 ACL, li)=-2*R(L, 1)*A<L, 6) 

318 A<L, 12)=-2*A<L 1)*A<L, 5) 

320 A<L 13>=A<L 6VACL 4)+fl(L 5)/A(L, 3) 

330 NEXT . 

340 B*=STRING*<32,176) 

350 PRINT 3f)BS-: 

360 A*=CHR$(191HSTRING*<31,32) 

370 FOR "=42 TO 1 STEP -1. CN=INT«<43-VV3-INT<<43-V)/3))*3+ 5) 

3S6 FOR E=l TO M 

390 V1=V-A<E, 2) 

406 V2=Vl*Yi 

410 V3=V1*A(E,10> 

420 V4=V1*A(E, 7) 

430 B=<A :E, 12)+V4)/A<E, 3)+(-Y4+A(E, 11) )/A(E, 4) 

440 C=<V2*A<E, 6)+A<E, 9)-V3VA(E, 3)+<V2*A(E, 5)+A<E, 8)+V3 VA<E, 4)-l 

450 R=B*B-4*A(E, 13)*C 

460 IF R-:9 THEN 630 

470 R=SBI!<R) 

486 R1=I iT<-<B+RV2,WE, 13)+1) 

490 IF R:L>34 THEN 630 

500 R2=IMT((R-BV2/A<E,13)> 

516 IF R2<1 THEN 630 

526 IF R2C31 THEN 540 

530 R2=30 

540 IF R1>0 THEN 560 

558 R1=0 

560 FOR J=Rl+2 TO R2+2 

570 Q=ASCCMIDS<fl$,J,l»: N<8)=48: N<1)=3: N(2)=12 

580 IF Q=32 THEN Q=128 

590 Q(8)=176: Q<1)=131: Q(2)=140 
600 IFQ>=Q(CN) THEN 610 ELSE Q=Q+N(CN) 
cls 610 A*=LEFT*<A*, J-1)+CHR*<8)+RIGHT$<A*, LEN<A$)-J) 

626 NEXT J 
63S NEXT E 
640 IF CN THEN 760 
650 PRINT A$J 

660 FOR K=32 TO 1 STEP -1 
670 PRINT MID«A$,K,1); 
688 NEXT K 

690 AS=CHR$<191)+STRING*ai,32) 
768 NEXT V 

710 PRINTSTRING$<63, 131); : P0KE16383, 131 
720 IF IliKEW="" THEN 720 
80 730 END 
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In this program you are a medieval 
knight in a jousting tournament. The 
prize to the winner of the tournament is 
the princess' hand in marriage. To win 
you must beat four other knights, the 
gold knight, the silver knight, the red 
knight, and the fierce black knight. On 
each pass of your opponent you must 
select one of eight different aiming 
points, such as the helm, lower left, 
face of shield, et cetera, and, based on 
youraiming point, you mayselectfrom 
three to six different defense positions 
such as a right lean or shield low. 

As you proceed in the jousting 
tournament there are different in- 
termediate outcomes such as getting 
knocked on the shield, breaking a 
spear, and so on. There are also some 
outcomes which end the contest such 
as your getting killed, or getting 
knocked from your horse. 

This program was conceived and 
written by Alan Yarbrough. 



1) HELM 

2) UPPER MIDDLE OF SHIELD 
5) LOHER LEFT OF SHIELD 
?) LOWER RIGHT OF SHIELD 



2) UPPER LEFT OF SHIELD 
4) UPPER RIGHT OF SHIELD 
6) LOUER MIDDLE OF SHIELD 
8) EASE OF SHIELD 



THIS IS YOUR FIRST JOUST. YOU ARE UP AG1NST THE GOLD KNIGHT. 
YOUR AIMING POINKi-8)' 5 



YOU MAY USE ONE OF THESE DEFENSES: 
4-5TEADY SEAT, 5-SHiaD HIGH, 6-SHIELD LOR 



HHRT IS YOUR. CHOICE 1 4- 

1) HELM 

2) UPPER MIDDLE OF SHIELD 
5) LOHER LEFT OF SHiaD 
7) LOHER RIGHT OF SHIELD 



■ els - 



2) UPPER LEFT OF SHIELD 
4) UPPER RIGHT OF SHIELD 
6) LOHER MIDDLE OF SHIELD 
8) BRSE OF SHiaD 



HE BROKE HIS LRHCE. 

VOU MISSED HIM (HISS) 1 

YOU ARE NOH READY TO TRY ftGfilH. 
cl3 • 

i) HELM 

2) UPPER MIDDLE OF SHIELD 
5) LOHER LEFT OF SHIELD 
7) LOHER RIGHT OF SHIELD 



2) UPPER LEFT Of SHiaD 
4) UPPER RIGHT OF SHIELD 
6) LOHER MIDDLE OF SHIELD 
8) BASE OF SHIELD 



YOUR RIMING POINTtt-8)? 7 

YOU MRY USE ONE OF THESE DEFENSES. 
4-STERDY SEAT, 5-SHIELD HIGH, 6-SHiaD LOU 



HHRT IS YOUR CHOICE? 6. 



• els ■ 
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i) HELM 

3) UPPER MIDDLE OF S HELD 
5) LOHER LEFT OF SHI ID 
7) LOHER RIGHT OF SH aD 



■ els ■ 



2) UPPER LEFT OF SHiaD 

4) UPPER RIGHT OF SHIELD 

6) LOHER MIDDLE OF SHIELD 

8) BASE OF SHiaD 



HE HISSED TO! 

VOO HIT HIS SHiaD 8 I GLANCED OFF. 



YOU ARE NOW READY TO TRY AGAIN. 

F1 ESS ANY KEY TO CONTINUE 



IB CLEAR 1888 

28 as 

28 PRINT 8 412, "JOUS 
48 PRINT 

58 PRIHT TAB(7)"COPV 
£8 PRINT 8 968, ""i 
78 INPUT-DO YOU HEED 
88 IF LEFT*(It, 1)=" 

98 as 

188 PRINT"SIR "Mi" 

116 PRINT'THE PRIZE 

128 PRINPTO HIM, YO 

138 PRINT"TO JOUST, 

148 PRINT 

158 PRINT" IF YOU BRE 

168 PRINPGOOD LUCK, 

178 GOSUB 1478 

188 OS 

198 PRINT'l) HELM" T 

288 PRINT"2) UPPER f 

218 PRINT'S) LOSER I 

228 PRINT"?) LONER P 

238 PRIHT STRIN6*(64 

248 FOR A=l TO 4 

258 ON A GOTO 268, I 

268 PRIHT'THIS IS YC 

278 GOTO 348 

288 PRIHT'THIS IS YC 

298 GOTO 348 

288 PRINPYOU ARE DC 

318 GOTO 248 

228 PRINPTHIS IS Yt 

228 PR1NPIS YOURS!' 

248 INPUT'YOUR AMI 

258 PRINT 

268 IF B<1 OR B>8 T> 

378 PRINPYOU HAY US 

288 ON B GOTO 398, ' 

398 PRINT" 4-STEflDV 

488 GOTO 498 

418 PRINT" 2-LEFT Lf 

428 GOTO 498 

438 PRINT" 1-LOHER 1 

448 PRINT" 5-SHiaD 

458 GOTO 498 

468 PRINT" 2-RIGHT I 

478 GOTO 498 

488 PRINT" 1-LOWER 1 

498 PRINT 

588 IHPUT'HHAT IS Yi 

518 PRINT 8 228, CHI 

528 D=INT(RND(8)*8)- 

538 ON D GOTO 548, '. 

548 ON C GOTO 628, i 

55* ON C GOTO 748, ; 

569 ON C GOTO 778, ; 

578 ON C GOTO 658, ( 

588 ON C GOTO 718, I 

598 ON C GOTO S28, ( 

688 ON C GOTO 658, i 

618 ON C GOTO 718, i 

628 PRINT'HE HISSED 

633 5=8 

648 GOTO 858 

658 PRINT'HE HIT YO! 

668 5=8 

678 GOTO 858 

688 PRINT'HE KNOCKS 

698 5=8 

788 GOTO 858 



•els 



:IGHT 1979 CREATIVE COHPUTIHG MORRISTOHN, NJ" 

INSTRUCTIONS"; B 
I" THEN 188 

YOU ARE A MEDIEVAL KNIGHT IN A JOUSTING TOURNAMENT. " 
"0 THE DINNER IS THE PRINCESS' HAND IN MARRIAGE. ■ 
I MUST BEAT FOUR OTHER KNIGHTS. " 
TO PICK AH AIMNG POINT FOR THE LANCE," ' 

K A LANCE OR LOSE A HELM, YOU HILL BE GIVEN ANOTHER " 
SIR!" 



1B<32)*2) UPPER LETT OF SHiaD' 
iDDLE OF SHIELD" TAB(32)"4) UPPER RIGHT OF SHiaD* 
EFT OF SHIELD" TAB<32)"6) LOHER MIDDLE OF SHIELD" 
;GHT OF SHIELD" TAB<32)"8) BASE OF SHiaD" 
148); 

!8, 388, 228 

JR FIRST JOUST. YOU ARE UP AGINST THE G&D KNIGHT. " 

JR SECOND JOUST. YOUR OPPONENT IS THE SILVER KNIGHT. " 

ING ffiLL! YOUR THIRD JOUST IS AGAINST THE RED KNIGHT. ' 

JR FINAL TEST!! IF YOU HIN THIS ONE THE PRINCESS' 
! THIS FIGHT IS AGAINST THE FIERCE aftCK KNIGHT! ! ! !" 
3 POINT <i-8)";B 

;N248 

I ONE OF THESE DEFENSES:" 

18, 436, 468, 398, 438, 398, 488 

SEAT, 5-SHiaD HIGH, 6-SHiaD LOU " 

W, 4-STEADY SEAT, 5-SHiaD HIGH, 6-SHiaD LOU. " 

ELM, 2-RIGHT LOW, 3-LEFT LEAH, 4-STEfiDY SEAT, " 
flGH, 6-SHiaD LOR " 

EAN, 4-STEADY SEAT, 5-SHiaD HIGH, 6-SH1EL0 LOR " 

ELM, 4-STEADY SEAT, 5-SHIELD HIGH, 6-SHiaD LOR ' 

UR CHOICE"; C 

$(31); 

1 

568, 578, 588, 598, 688, 618 



628, 688, 748, 628 

628, 718, 718, 628 

S, 718, 838, 888 

718, 658, 658, 748 

628, 718, 628, 718 

718, 838, 778, 718 

838, 658, 658, 658 

778, 718, 778, 716 



R SHIELD BUT IT GLANCED OFF. " 



OF TOUR HELM' 



82 



718 PRINT'HE B«OKE HIS LANCE. " 

726 S=8 

728 GOTO 858 

748 PRINT'HE HfiS UNSEATED YOU <THUD>!" 

758 S=5 

768 GOTO 858 

776 PRINT'HE HAS BROKEN HIS LANCE, INJURED AND UNSEATED YOU (OUCH)!" 

788 S=5 

798 GOTO 858 

868 PRINT'HE HiS INJURED AND UNSEATED YOU (CRASH)!" 

818 5=5 

828 GDTO 858 

828 PRINT'HE HiS BROKEN HIS LANK AND UNSEATED YOU (aANG)!" 

848 5=5 

858 PRINT 

868 E=IHT(RHD(3>*6)+i 

876 ON D GOTO 388, 986, 916, 928, 888, 916, 888, 948 

888 IF E<4 THEH 856 

898 GOTO 958 

988 IF EG THEN 858 

916 GOTO 958 

926 IF E=l OR E=2 THEN 858 

928 GOTO 958 

946 IF E=2 OR E=3 TIEN 858 

958 ON E GOTO SS6, 978, 988, 996, 1668, 1618 

968 ON B GOTO 1828, 1148, 1176, 1058, 1116, 1228, 1850, 1116 

978 ON B GOTO 1828, 1116, 1148, 1626, 1236, 1958, 1828, 1658 

988 ON B GOTO 1828, 1628, 1658, 1118, 1828, 1110, 1238, 1148 

998 ON B GOTO 1086, 1116, 1116, 1850, 1116, 1238, 1858, 1118 

1888 ON B GOTO 1148, 1116, 1236, 1656, 1828, 1176, 1858, 1178 

1616 ON B GOTC 1628, 1620, 1286, 1148, 1116, 1118, 1656, 1118 

1828 PRINPYOL HISSED HIM (HISS)!' 

1028 T=0 

1846 GOTO 1260 

1858 PRINPYOL HIT HIS SHIELD BUT GLANCED OFF. " 

1668 T=8 

1678 GOTO 1260 

1888 PRINT'VOU KNOCKED OFF HIS HELM (CHEERS)!" 

1898 T=9 

1168 GOTO 126«i 

1118 PRINTYOU BROKE YOUR LANCE (CRACK. . . )" 

1128 T=8 

1138 GOTO 1260 

U48 PRINPYOU UNSEATED HIN (LOUD CHEERS AND KUZZAHS)!!" 

1158 T=5 

1160 GOTO 12611 

1178 PRINT'YOt! BROKE YOU! LANCE, BUT UNSEATED AND INJURED YOUR FOE. " 

1188 T=5 

1196 GOTO 1260 

1268 PRINT'VOU INJURED AND UNSEATED YOUR OPPONENT. ' 

1218 T=5 

1228 GOTO 1260 

1238 PRINT'TO BROKE YOUR LANCE BUT UNSEATED YOUR OPPONENT. ■ 

1248 T=5 

1258 GOTO 1260 

1266 IF S=T AliD S=8 THEN 1428 

1278 IF S=T THEN I486 

1288 IF 50 THEN 1388 

1298 IF S>T Tie 1378 

1388 PRINT 

1316 PRINPYOU HAVE HON THIS JOUST. ■ 

1328 PRINT 

1238 GOTO 1343 

1348 GOSUB 14 7 

1356 NEXT A 

1366 GOTO 1543 

1376 PRINT 

1388 PRINT'TO) BAD, YOU LOST. HOPE YOUR INSURANCE HAS PAID UP. " 

1398 GOTO 1518 

I486 PRINT 

1416 PRINT'TO) BAD, YOU BOTH LOST. AT LEAST YOUR HONOR IS INTACT. ' 

1428 GOTO 1513 

1436 PRIHT 

1440 PR1NPY0J ARE NOH READY TO TRY AGAIN. ' 

1458 GOSUB 1478 

1468 GOTO 248 

1478 PRINT 8 ?79, "PRESS ANY KEY TO CONTINUE"; 

1488 IF INKEVr =" THEH 1488 

1498 PRINT 8 328, CHRJG1); 

1568 RETURN 

1518 PRINT 

1526 PRINT'SOOT, BETTER LUCK NEXT JOUST. " 

1538 GOTO 1560 

1548 PRINT 

1558 PRINT"HO:«AY! YOU ARE THE WINNER HERE COMES THE BRIDE!" 

1555 PRINT 

1566 INPUT "DO YOU RANT TO PLAY AGAIN"; AN* 

1578 IF LEFT$',flN$,l)="Y" THEN 188 

1588 END 



Jumping Balls 



Jumping balls is a solitaire board 
game played with a board having nine 
holes in a line that can be filled with 
four white balls to the right end and 
four black balls to the left end. Without 
a board, it can be played with coins or 
chips. The object of the game is to 
reverse the position of the balls (or 
other objects) from one end of the 
board to the other. 

You may make a move by moving a 
ball to the immediately adjacent empty 
hole or by jumping one other ball. You 
may not jump two or more balls. Holes 
are numbered from left to right. At the 
beginning of the game, hole number 
five is free. Consequently, a legitimate 
first move would be six to five, four to 



jumping mas 
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HIT ENTER TO STRRT? _ 



• els 



- els • 



IN THIS (HE VOU ARE GIVEN 6 BBLLS ON fl 9 HOLE 
BOflRD. THE OBJECT IS TO REVERSE THE ORDER OF THE BftLLS 
THE 'S' ARE SILVER BALLS AND THE 'G' ARE GOLD 
YOU HUST BET THE SILVER TO HERE THE GOLD ARE AND 
THE GOLD TO WERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK! ! HERE IS THE BOARD: 

SSSS GGGG 
123456789 
HOVE (FRO&TO)? 6,5. 



■ els 



IN THIS GAME VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BALLS AND THE 'G' ARE GOLD 
VOU KUST GET THE SILVER TO HERE THE GOLD ARE AM) 
THE GOLD TO HERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOflRD. 
GOOD LUCK!! HERE IS THE BOftRD : 

5SSSG GGG 

1234 56789 

HOVE (FROM, TO)? 4,6. 



■ Cl3 ■ 



IN THIS S»€ VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BftLLS AND THE 'G' ARE GOLD. 
VOU BUST GET THE SILVER TO HERE THE GOLD ARE AND 
THE GOLD TO HERE THE SILVER ARE. THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSS GSGGG 
123456789 
HOVE (FROftTO)? 5,4. 



IN THIS (HE VOU ARE GIVEN 8 BftLLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BALLS AND THE '0' ARE GOLD. 
VOU HUST GET TIE SILVER TO HERE THE GOLD ARE AND 
THE GOLD TO HERE THE SILVER ARE. THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSSG SGGG 
123456789 
HOVE (FROH.TO)? 7,5. 



• els • 



five, three to five, which would be a 
jump, or seven to five, another jump. 

The computer does not rank your 
playing ability but, as a hint, you ought 
to be able to complete the game in 
fewer moves than are shown in our 
example run. 

The original author if this game was 
Anthony Rizzolo. 

IN THIS CASE VOU ARE GIVEN 8 BftLLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE TIE ORDER OF THE BALLS 
TIC 'S' ARE SILVER BftLLS AND THE 'G' ARE GOLD. 
VOU HUST GET THE SILVER TO HERE THE GOLD ARE AND 
THE GOLD TO WERE THE SILVER ARE. THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK! ! HERE IS THE BOflRD: 

SSSGGS GG 

1234 56789 

HOVE <FR0H,T0)? 6,7. 



■ els ■ 



IN THIS (HE VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE '5' ARE SILVER BALLS AND THE '6' ARE GOLD. 
VOU NUST GET THE SILVER TO HERE THE GOLD ARE AND 
THE GOLD TO HERE THE SILVER IRE THE SPACE IS 
A PERIOD ON THE BOflRD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSSGG. SGG 

123456789 

HOVE (FROftTO)? 5,6. 



- els 



IN THIS (HE VOU ARE GIVEN 8 BftLLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BALLS AND THE '6' ARE GOLD 
VOU HUST GET THE SILVER TO HERE THE GOLD ARE ft* 
THE GOLD TO HERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSSG, GSGG 
1234 56789 
HOVE (FR011T0)? 3,5. 



- els ■ 



IN THIS (HE VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BftLLS 
THE 'S' ARE SILVER BftLLS AM) THE 'G' ARE GOLD. 
VOU HUST GET THE SILVER TO HERE THE GOLD ARE AND 
TIE GOLD TO HERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SS GSGSGG 
123456789 
HOVE <FR0H,T0>?4,3. 



IN THIS GAKE VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BftLLS AND THE 'G' ARE GOLD 
VOU HUST GET THE SILVER TO HERE THE GOLD ARE AND 
TIE GOLD TO HERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSG SGSGG 
123456789 
HOVE <FROftTO)? 6,4K. 



• 0l8 ■ 
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IN THIS (HE VOU ARE GIVEN 8 BftLLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BftLLS 
THE '%' ARE SILVER BftLLS AND THE 'G' ARE GOLD 
VOU HUST GET THE SILVER TO HERE THE GOLD ARE AND 
THE GOLD TO HERE THE SILVER ARE THE SPACE IS 
A PERIOD OH THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSGGS SGG 
123456 789 
HOVE (FR0H,T0)?8,6. 

— ■ els — — . 



ols • 



IN THIS GfS VOU IRE GIVEN 8 BH1S ON A 9 HOLE 
BOM). THE OBJECT IS 10 REVERSE THE ORDER OF THE BflLLS 
THE 'S' ARE SILVER BRL 5 RND THE '6' RRE GOLD. 
VOU MUST GET Til SILVE i TO WHERE THE GOLD RRE RND 
THE GOLD TO KHERE THE SILVER ARE THE SPflCE IS 
R PERIOD ON THE BORRD. 
GOOD LUCK!! HERE IS 1 C BOT»: 

SSGGS6S G 
123456709 
MOVE (FROM, TO)? 7,1. 



• els 



IN THIS GftE VOU «E GIVEN 8 BRLLS ON R 9 HOLE 
BOflRD. THE OBJECT IS TO REVERSE THE ORDER OF THE BULLS 
THE 'S' ARE SILVER BH. -S AND THE 'G' RRE GOLD. 
VOU NLST GET TIE SILVt I TO HHERE THE GOLD RRE RND 
THE GCO TO HHERE THE SILVER (RE. THE SPRCE IS 
R PERIOD ON TO BORRD. 
GOOD LUCK! ! HERE IS 1 € BOflRD: 

SSGGSG SG 
123456789 
ROVE <FROH,T0>?5,;. 



■ els • 



IN THIS GW VOU RRE GIVEN 8 BROS ON R 9 HOLE 
BORRD. THE OBJECT IS TO REVERSE THE ORDER OF THE BRLLS 
THE 'S' ARE SILVER BR 15 RND THE 'G' RRE GOLD. 
VOU MUST GET THE SILV R TO HHERE THE GOLD RRE RND 
THE GOLD TO WERE THE SILVER RRE THE SPflCE IS 
fl PERIOD ON THE BORRD 
GOOD LUCK!! HERE IS HE BOflRD: 

SSGG , GSSG 
123456789 
MOVE (FROM, TTO? 4, L 



els - 



IN THIS CB€ VOL ARE GIVEN 8 BflLLS ON fl 9 HOLE 
BORRD. THE OBJECT IS TO REVERSE THE ORDER OF THE BflLLS 
THE '%' RRE SILVER Bf IS RND THE 'G' ARE GOLD. 
VOU NJST GET THE SIL\ $ TO WHERE THE GOLD RRE RND 
THE GOD TO HERE TK SILVER RRE THE SPflCE IS 
R PERIOD ON Tl£ BORRI 
GOOD LUCK!! IERE IS IKE BORRD: 



SSG GGSSG 
122456789 
HOVE (FROftTO)? 2. 1- 



ols ■ 



. LATER , 
IN THE- 



IN THIS SHE TO RRE GIVEN 8 BflLLS ON fl 9 HOLE 
BORRD. THE OBJECT I : TO REVERSE THE ORDER OF THE BRLLS 
THE 'S' RRE SILVER B LLS AND THE 'G' RRE GOLD. 
VOU BUST GET THE SIL ER TO RHERE THE GOLD RRE AND 
THE GOLD TO HERE TH . SILVER RRE THE SPRCE IS 
R PERIOD ON THE BORR >. 
GOOD LUCK!! HERE IS THE BOARD: 

GGG GSSSS 
1234567 89 
ROVE (FROM, TO)? 5 4. 



ols • 



IN THIS Gflffi VO I RRE GIVEN 8 BRLLS ON R 9 ROLE 
BOARD. THE OBJECT 1 i TO REVERSE THE ORDER OF THE BRLLS 
THE 'S' RRE SILVER E US RND THE 'G' ARE GOLD. 
VOU KUST GET THE SIL IER TO HHERE THE GOLD ARE f» 
THE GOLD TO WERE TF ■: SILVER RRE THE SPACE IS 
A PERIOD ON THE BOAS >. 
GOOD LUCK!! HERE I? THE BOARD: 



18 CLEAR 408 

28 OS 

38 PRINT 6 418,". 

40 PRINT 

58 PRINT TAB<?)"; 

68 PRINT 8 968, ' 

78 INPUT'HIT ENTI 

88 MH 0(9, 1) 

98 IF R*="H" THE: 

iee (is 

110 PRINT 
128 PRINT" Ii 
138 PRINTBORRD. 
148 PRINT'THE '£ 
158 PRINT'VOU to 
168 PRINT'THE GD 
178 PRINT'R PERI 
188 PRINT-GOOD I. 
198 PRINT 8 576, 
288 5=9 

218 FOR X=l TO ■■ 
228 QOS, l)=i 
238 WEXTX 
248 QC5, 1)=8 
258 FOR X=6 TO ':. 
268 OCX, i)=2 
278 NEXT X 
288 R*=". SG" 
298 PRINT 8 576 
388 FOR X=i TO I 
310 PRINT MIDKf 
328 PRINT" "; 
338KEXTX 
348 PRINT 
358 PRINT -1 2 : 
368S=S+1 
378 PRINT 8 784. 
388 INPUT ft HI 
398 IF H<=9 RND 
488 PRINTILLEC 
418 GOTO 378 
428 REH: ( 

438 IF H+i=Hi V 
448 REH SUBR0U1 
458 IF 11=9 THEM 
468 IF H=i THEN 
478 IF QOW, 1 
488 GOTO 528 
498 IF QCIH, '. 
568 GOTO 528 
518 IF SKH+i, :. 
528 IF M+20M 
538 IF QCH.DC 
548 PRINT § 7S: 
558 GOTO 378 
568 IF Qfltt. 1 
578 PRINT 8 761! 
588 GOTO 378 
598 OXHi, 1)=Q' 
688 QXN, 1)=8 
618X9=0(1, 1): 
628 V9=Q(6, 1) 
638 IF X9=8 AN 
648 GOTO 298 
658 PRINT 8 78 
668 PRINT-VOU 
676 PRINT'VOU 
688 PRINT"AGRI 
698 INPUT R* 
789 IF LEFTJCA 
718 PRINT i 57^ 
728 GOTO 198 



(WING BflLLS" 

.OPVRIGHT 1979 CREATIVE COKfUTING HORRISTCMt, NJ" 

IR TO START"; R* 

1188 



I THIS GRKE VOU ARE GIVEN 8 BALLS ON R 9 HOLE" 

THE OBJECT IS TO REVERSE THE ORDER OF THE BflLLS" 
' RRE SILVER BRLLS KM) THE 'G' RRE GOLD. " 
3T GET THE SILVER TO HHERE THE GOLD ARE AND" 
LD TO HHERE THE SILVER RRE THE SPflCE IS" 
00 ON THE BORRD. " 
UCK!! HERE IS THE BORRD:" 
CHR$(31)i 



CHRtGi); 
t, Q(X, 1H1, 1); 



14 5 6 7 8 9" 

," HOVE CFROrtTO)": 

10=1 RND H1C=9 RND MM THEN 428 
SL HOVE ' 

1ECK FOR LEGAL HOVE 

R M-i=m. THEN 538 

INE FOR CHECKING JUHPS,- HRKES VOUR BRLLS JUMP 

498 

518 
)=8 OR Q(H-L 1)=8 THEN 468 

)=8 THEN 488 

)=8 THEN 488 

flND H-20K1 THEN 488 

8 THEN 566 

:, -NOTHING AT SPflCE'iHi CHR$(8)i" " 

=8 THEN 598 

s, "SPACE"; Hli 'IS OCCUPIED." 

It 1) 

KK2, l)*fl(3, D+QC4, 1) 
f«7, i)+Q<8, 1)+Q<9, 1) 
V9=4 THEN 658 

,STRING*(63,- ") 
illNH!" 
3WUTED THE GflHE IN";S( "HOVES! ! ! !" 



»,1)="N" THEN END 
6,STRINGK255," ">; 



GGG . GSSSS 
12 3 4 5 6 7 8 9 



VOUHIN!!! 

VOU COtfLETED THE Gl « IN 32 HOVES! ! ! ! 

RGRIN7N0. 

0l8 
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Keno 



IM (H) ® © © (jU® §§ ESsjffl 




Keno is strictly an American inven- 
tion that originated in the casinos in 
Nevada, perhaps in Reno. During the 
game, twenty numbers from one to 
eighty are selected at random. Prior to 
each game at the casino, the player 
may choose from one to fifteen 
numbers, or "spots" he thinks will be 
selected during the game. The player 
enters, or "marks," the desired spots 
and places a bet. At the end of each 
game, the spots marked by the player 
are compared with the twenty numbers 
and the payoff is computed according- 
ly. Keno seems to have a high attrac- 
tion in Las Vegas because the betting is 
very simple and the maximum payoff is 
very high ($25,000). Nevertheless, trie 
probability of winning is extremely low; 
indeed, Keno returns more to the 
house than virtually any other game. 

In this particular computersized 
version of Keno. there is only one 
player and he has the option only of 
betting eight different spots. In Nevada 
the normal bet is in multiples of 60<P; 
however, in this game the bet will be 
$1.20 with no multiples possible. The 
payoff with eight spots marked is as 
follows: 

Spots Payoff 

5 $10.00 

6 $100.00 

7 $2,200.00 

8 $25,000.00 

There is no payoff for zero, one, two, 
three, or four correct. 

This version of Keno was originally 
written by Vincent Fazio. 



KEHO IS PLAYED IN MANY CfiSIHOS IN US VEGRE. 

PLAY KENO BV COMPUTER. ONE VARIATION OF THE GAME UTILIZE. 

THE RANDOM NUMBER GENERATOR. 

THE PLOVER CHOOSES 8 DIFFERENT NUMBERS FROM 1 TO 88 
INCLUSIVE, AND BETS *128. THE COMPUTER MILL SELECT 
28 NUMBERS AT RANDOM AND HILL ELIMINATE DUPLICATES WHICH 
MfiV OCCUR. ANOTHER NUMBER HILL BE INSERTED IN ITS PLACE 
SO THAT THE COMPUTER HILL OUTPUT 28 DIFFERENT NUMBERS. 

PRESS ANV KEV TO CONTINUE 
ola 



HERE WE GO!!!! 
THE COMPUTER HILL OUTPUT 8 ">' MARIS. TYPE A NUMBER FROM 
1 TO 80, INCLUSIVE AND PRESS THE RETURN KEV. REPEAT THIS 
PROCESS UNTIL THE ">' HARK IS NO LONGER SHOWN, 
i i i 22 ? 24 ' 35 "> 46 ? 77 *> 65 ' 2 

THE COMPUTER HILL SELECT 20 NUMBERS AT RANDOM. THE '. ' 
INDICATES IT IS IN THE PROCESS OF SELECTING THE NUMBERS. 
_ ola 



HERE HE GO! ! ! ! 
THE COMPUTER HILL OUTPUT 8 ">' HARKS. TYPE A NUMBER FROM 
1 TO 86, INCLUSIVE, AND PRESS THE RETURN KEV. REPEAT THIS 
PROCESS UNTIL THE "" HARK IS NO LONGER SHOWN. 

•> i ; 2} i 24 ■> 35 ■> 45 ■> 77 •> 55 7 2 

YOUR NUMBERS ARE. 
123,24,25,46,77,65, 2 

THE COMPUTER HAS SELECTED THE FOLLOWING NUMBERS: 
6177, 2, 73, 65, 79, 46, 58, 54, 22, 22, 72, 68, 48, 14, 64, 3,35,52,48 
THE PROGRAM HILL COMPARE YOUR NUMBERS WITH THE 
NUMBERS THE COMPUTER HAS SELECTED. 
YOU HAVE GUESSED THE FOLLOWED NUMBERS; 
"2r35"46"7T65Y0U CAUGHT 5 NUMBERS OUT OF 8 - YOU WIN *1B. ( 
DO YOU WANT TO PLAY KEHO AGAIN ?. 

0l8 

HERE HE GO!!!! 
THE COMPUTER HILL OUTPUT 8 ">' MARKS. TYPE ft NUMBER FROM 
1 TO 80, INCLUSIVE, AND PRESS THE RETURN KEY. REPEAT THIS 
PROCESS UNTIL THE '?' MARK IS HO LONGER SHOW 
"' 21 ' 24 "> 12 ^ 5 ' 1 '6 '7 ''45 

THE COMPUTER WILL S&ECT 28 NUMBERS AT RRHDOM THE ' ' 
INDICATE IT IS IN THE PROCESS OF SELECTING THE NUMBERS. 
cla 



HERE HE GO!!!! 
THE COMPUTER HILL OUTPUT 8 "" MARKS. TYPE A NUMBER FROM 
1 TO 88, INCLUSIVE, AND PRES THE RETURN KEY. REPEAT THIS 
PROCESS UNTIL THE "" HARK IS NO LONGER SHOWN. 
'21 '34 '12 '5 '1 '6 '7 '45 

YOUR NUMBERS ARE. 
21,34,12, 5, 1 6, 7,45 



85 



THE COMPUTER HRS : ELECTED THE FOLLOWING 

51, 5?, 58, 4c, 76, 3. 18, 6,59,32, 3,35,52,55,48,72,65,13,39,15 

THE PROGRffil WILL I 3HPARE VOUR HUMEERS WITH THE 

NUMBERS THE COMFIT ER HAS SELECTED. 

VOU HAVE GUESSED ' HE FOLLOWED NUMBERS. 

~ 6 YOU CAUGHT 1 I UMBERS OUT OF 8 - 

NOT ENOUGH CORREC - GUESSES - 'SO SOLLY', NO PRVOFF. 

DO VOU HUNT TO PU V KENO AGAIN ?. 



Cl8 ■ 



THAT'S ALL FOR HCH PLAY KENO AGAIN, BE SEEING VOU. 

Cl3 



18 OS 

28 PRINT 414, "I 
30 PRINT 

48 PRINT TRB<7)°C 
58 PRINT C- 969, " 
68 INPUT"I>0 VOU ^ 
78 DIM N<21>, M« 
£8 IF LEFTJdJ-, ] 
98CLS 

188 PRINT'TM) K 
116 PRINT "PLflV I 
128 PRINFTHE RAf 
138 PRINT 
148 PRIHTTHE PLf 
158 PRINT" IHCLUSI 
168 PRINT"28 NUN! 
178 PRINTMRY CCt 
138 PRINT"SO W 
138 PRINT 8 979, ' 
338 IF mm ="' 
216 CLS 

228 PRINT TAB(25: 
238 PRINT"THE CO! 
248 PRINT'l TO S 
258 PRINT'PROCES! 
268 FOR 1=1 TO 8 
278 PRINT 8 3S4, 
238 PRINT 8 256+' 
298 INPUT A(I) 
388 IF fl<I»88 ' 
318 IF fl(I)<=8 Tl 
228 GOTO 378 
338 PRINT 8 384, ; 
348 FOR flfl=i TO : 
38 NEXT flfl 
368 GOTO 278 
378 NEXT I 
288 C=8 

298 FOR K=l TO 7 
488 FOR J=K TO 7 
418 X=R<K) 
420 Y=R(J+i> 
438 IF XOV THEN 
448 OC+i 
450 PRINT 8 384, 
468 PR1NT"PLEASE 
478 INPUT V 
438 IF V=8 THEN 
498 IF V>88 THEN 
588 IF V<8 THEN 



310" 



)PVRIGHT 1979 CREATIVE COMPUTING MQRRISTOHN, NJ' 

ID INSTRUCTIONS"; I* 
!), R(8) 
>="N" THEN 218 

PLAYED IN HANY CASINOS IN LAS VEGAS. " 
ENO BY COMPUTER. ONE VARIATION OF THE OWE, UTILIZES" 
M NUMBER GENERATOR. " 

i€R CHOOSES 8 DIFFERENT NUMBERS FROH 1 TO 88" 
IL AND BETS $1. 28. THE COMPUTER HILL SELECT- 
ORS AT RANDOM AND HILL ELIMINATE DUPLICATES WHICH" 
JR ANOTHER NUMBER HILL BE INSERTED IN ITS PLACE" 

THE COMPUTER HILL OUTPUT 28 DIFFERENT NUMBERS. " 
! RESS ANY KEY TO CONTINUE"; 

THEN 288 

■HERE HE GO!!!!" 

PUTER HILL OUTPUT 8 ">' MARKS. TYPE A NUMBER FROM " 
, INCLUSIVE, AND PRESS THE RETURN KEY. REPEAT THIS" 
UNTIL THE ">' HARK IS NO LONGER SHOW " 

CHR$<2i>; 
I-i>*6, "; 

HEN 338 
EN 338 

TYPE fl NUMBER FROM 1 TO 84 INCLUSIVE, PLEASE " 



578 

A DUPLICATE NUMBER HAS 
TYPE ANOTHER NUMBER " 

38 
538 
38 



IEEN DETECTED, ' 



518 fl(J+l)=Y 

528 GOTO 428 

538 PRINT "TYPE R NUMBER FROH 1 TO 88, INCLUSIVE PLEASE " 

548 FOR BA=1 TO 1888 

558 NEXT RR 

568 GOTO 468 

578 NEXT J 

588 NEXT K 

598 IF C=8 THEN 618 

688 GOTO 388 

618 PRINT 9 384, 'THE COWUTER HILL SELECT 28 NUMBERS RT RANDOM THE '";CHR$(131) a 

628 PRIHTINDICfiTES IT IS IN THE PROCESS OF SELECTING THE NUMBERS. " 

638 PRINT 8 328, "; 

648 FOR L=l TO 28 

658 H(L)=RND(88: 

668 M(L>=N(L) 

678 NEXT L 

689 L=2i 

698 FOR K=i TO 28 

788 FOR J=K TO 1.-1 

718 X=H(K) 

728 Y=HO+l> 

738 IF XOV THEN 778 

748 KU+i)=RND<i:iO 

758 Y=HU+1> 

768 GOTO 738 

778 NEXT J 

788 PRINT CHR$(:.31>; " ": 

798 NEXT K 

888 PRINT 8 384. "YOUR NUMBERS RRE:" CHR$<31> 

818 FOR M TO 3 

828 PRINT USING'M!"iA<I);*,"; 

838 NEXT I 

348 PRINT CHR$<3> 

858 PRINT'THE COMPUTER HAS SELECTED THE FOLLOHING NUMBERS;" 

868 FOR L=l TO 28 

878 PRINT USING'ill!";M(L),'"."i 

888 FOR T=l TO 288 

898 NEXT T, L 

988 PRINT CHR$(3> 

918 PRINT'THE PMGRAM HILL COMPARE YOUR NUMBERS WITH THE » 

928 PRINT"NUHBE35 THE COMPUTER MRS SELECTED. " 

938 PRINT "VOU -BYE GUESSED THE FOLLOWED NUMBERS;" 

949 G=8 

958 1=1 

968 FOR J=i TO 28 

978 X=fl(D 

988Y=M(J) 

998 IF X=Y THEN 1828 

1888 NEXT J 

1818 GOTO 1878 

1828 PRINT CH»<94); 

1828 FOR Vl=l TO 488 

1848 NEXT VI 

1858 PRINT USHiG"ff;flU>; 

1868 G=G+i 

1878 1=1+1 

1888 IF 108 THEN 968 

1898 ON G+l GOTO 1188, 1188, 1188, 1188, 1188, 1188, 1288, 1228, 1248 

1188 PRINT" YOl CAUGHT"; G; "NUMBERS OUT OF 8 -" 

1118 PRINT'NOT ENOUGH CORRECT GUESSES - 'SO SOLLY'. NO PAYOFF. ■ 

1128 PRINT"D8 VOU KANT TO PLAY KENO AGAIN '";CH»<95>; 

1138 A$=INKEY$ 

1148 A$=INKEY$ 

1158 IF ftt=" THEN 1148 

1168 IF A$="Y" THEN 218 ELSE 1278 

1178 PRINT "TVFE YES OR NO PLEASE!!" 

1188 PRINT "YOU CAUGHT"; Gj "NUMBERS OUT OF 8 - YOU H1N $18.68" 

1198 GOTO 1128 

1288 PRINT "YOU CAUGHT"; fc "NUMBERS OUT OF 8 - VOU WIN $168.88" 

1218 GOTO 1128 

1228 PRINT "VOU CAUGHT ";G; "NUMBERS OUT OF 8 - YOU WIN $2,288.88" 

1238 GOTO 1128 

1248 PRINT "YOU CflUGHT "; G; "NUMBERS OUT Of 8 - YOU MIX $25,888.68" 

1258 PRINT "8 OUT OF 8 DOES NOT OCCUR TOO OFTEN, LUCKY. " 

1268 GOTO 1128 

1278 CIS 

1288 PRINT 8 2:4, "THAT'S ALL FOR HON. PLAY KENO AGAIN, BE SEEING YOU. " 

1298 F8R 1=1 TO 1888 

1388 NEXT I 

1318 BID 



86 



le 



The L-game is a 2-player strategic 
game played on a 4x4 grid. It was 
originally devised by Edward de 
Bono and appeared in the book, "The 
Five-Day Course in Thinking." In the 
game, each player has one 'L' which 
covers four squares (3 high x 2 
across). The two L's are labelled 
differently to avoid confusion. There 
are also two neutral 'boxes' each the 
size of a single square on the grid. To 
play the game with the computer the 
grid positions must be numbered as 
follows: 



Play always begins with all the 
pieces on the board in this position : 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 

— 


14 


15 


16 



■ 






4 














5 


:•:•:•:•:•:•:•:• 




8 


9 






12 


13 






■ 



The object of the game is simply 
to position one's L and the neutral 
boxes to pin the other player's L. 
Each move is a mixture of offense 
and defense, for one is not only 
trying to pin the other player's L, but 
also trying to prevent his own L from 
being pinned. 

Either player may move first. To 
move, one must pick up his L and 
move it to a different position on the 



board. The player may flip his L over, 
rotate it 90 degrees, etc. The L must 
not cover any other pieces or hang 
off the edge of the board. If a player 
is unable to move his L, or simply 
cannot find a move, he loses the 
game. Once the player has success- 
fully moved his L to a new position 
on the board, he then has the option 
of moving the neutral boxes. He may 
move the boxes only to unoccupied 
positions and he has the option of 
moving one box, both boxes, or 
leaving the boxes where they are. By 
using the boxes effectively, one can 
block off moves for the other player's 
L and possibly pin him. After the 
player moves the boxes (or decides 
not to move one or both) it is the 
other player's turn and play contin- 
ues in the same manner. 

The computer version of the L 
Game was written by Bill Gardner. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 



L-GflME 
COPYRIGHT 1379 CRERT1VE COMPUTING HORRISTOMN, NJ 



(COMPUTER IS . , YOU ARE I) 



DO YOU HEED INSTRUCTIONS? YES. 

els 

L-GRME IS fl SIMPLE STRATEGIC GAME PLAYED OH A 4X4 
GRID BY TO OPPOSING PLAYERS, IN THIS CASE BETWEEN YOU 
AND THE COHPUTER THE GRID IS NUMBERED AS FOLLOW. 

PRESS ANY KEY' TO CONTINUE 
els 



PRESS ANY KEY TO CONTINUE 
els 



1:: 2: 



4: 



5:: 6: 



?::18::il::12: 



:13::14::15::16: 



PRESS ANY KEY TO CONTINUE 



■ els • 



THE GAME IS PLAYED WITH FOUR PIECES.; BOTH 
YOU AND THE COHPUTER HAVE ONE 'L'. AND THERE ARE 
TWO 'BOXES' WHICH ARE USED BY BOTH PLAYERS. 
PLAY ALWAYS BEGINS WITH THE PIECES ON THE BOARD 
IN THE FOLLOWING POSITION: 

PRESS ANY KEY TO CONTINUE 
els 



THE OBJECT OF THE GAME IS TO POSITION YOUR OHN 
L AND THE BOXES TO PREVENT THE COMPUTER FROM MOVING 
ITS L OF COURSE, IT IS TRYING TO DO THE SAME TO YOU! 
TO HOVE, YOU MUST SIMPLY BITER THE FOUR COORDINATES 
WERE YOU HUNT TO PLACE YOUR L IT MUST REMAIN ON THE 
BOARD AND MUST NOT COVER ANY OTHER PIECES. YOU MUST 
MOVE YOUR L! IF YOU CANNOT FIND fl NEH POSITION 
FOR YOUR L THEN THE COHFUTER HAS EFFECTIVELY PINNED YOUR 
L AND IT WINS THE GAME 

PRESS ANY KEY TO CONTINUE 
els 

ASSUMING YOU HAVE SUCCESSFULLY MOVED YOUR b YOU NOW 
HAVE THE OPTION OF MOVING THE BOXES. YOU HAY HOVE ONE, 
THO, OR NONE OF THE BOXES BY SIMPLY ENTERING THE COORDINATES 
WHERE YOU WANT TO PUT THEM. TO LEAVE A BOX WHERE IT IS, 
ENTER ITS PRESENT POSITION 

AFTER YOU MOVE THE BOXES- IT IS UP TO THE COMPUTER 
TO FIND A MOVE FOR ITS L AND PLAY CONTINUES IN THE SAME 
MANNER REMEMBER THAT YOU MUST NOT ONLY TRY TO PIN THE 
COMPUTER'S L BUT ALSO KEEP YOUR OHN L FROM BEING PINNED. 
ALSO, IT IS EASIER TO PLAY THE GAME WITH YOUR OHN BOARD 
THAN THE COMPUTER PRINTOUT. TO RESIGN, ENTER 0,0,0,8 
IN PLACE OF YOUR MOVE GOOD LUCK! 
DO V0U HISH TO START'' NO. 



- els - 



. 8888== 
.SIP: 8: 
. 8888== 



9:.... 8888:12. 
==. . . . 8888== 
==M888*»«. , . 
:B:88888«88 
==88#*8883. . . 
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HAVE THE OPTION OF MOVING THE BOXES Y0H "BY MOVE ONE, 
THO, OR NONE OF THE BOXES BY SIMPLY ENTERING THE COORDINATES 
WHERE VOL' HfiHT TO PUT THEM. TO LEAVE A BOX HHERE IT IS, 
ENTER ITS PRESENT POSITION. 

AFTER YOU MOVE THE BOXES, IT IS IP TO THE COMPUTER 
TO FIND A MOVE FOR ITS L AND FLAY CONTINUES III THE SAME 
MANNER REMEMBER THAT YOU MUST NOT ONLY TRY TO PIN THE 
COMPUTER'S L BUT ALSO KEEP VOLE OHN L FROM BEING PINNED. 
ALSO, IT IS EASIER TO PLAY THE GAME WITH YOUR OWN BOARD 
THAN THE COMPUTER PRINTOUT. TO RESIGN, ENTER CO, 8, 8 
IN PLACE OF YOUR MOVE. GOOD LUCK! 
DO YOU HISH TO START'' NO 
COMPUTER MOVES TO 2 6 18 5 



- els - 



els ■ 



i: 4: 

==. . - . ««#== 

5:....*«M: 8: 

===== . . . (UM== 

tm. . . . 

til«S. 

MM. . . . 

==»8«M«tt== 
:13:««i!»««:16. 
==«Bi!jt«== 
VOUR HOVE FOR L? 8,7,ii,lL 



• cis ■ 



i: 4: 

==.... «IH= 

5:....litt«: 8: 

==....««»== 

1KB. . . . 

tifttt 

iiB8. . . . 

==«»«««== 

: 13 :»»«««»: 16. 

=HtMfH= 

VOIR MOW FOR L? 8,7, Hi j 

YOUR HOVE FOR THE BOXES? i,16. 

els ■ 

1: 3:. 



==. . . . !!«««» 

«««= 

«M:i2: 

««=== 

==========*««. . . . 

:0::14:HH. 
==========*#«. . . . 

COMPUTER MOVES TO 2 6 18 1 
els — 



2:: 4: 

5:....MHHH 

=. . . . mmm 

==.... WW. . . . 

9:. . . . S«». 
==. . . . OH*. . . . 
===. . . . ««=== 
:12:. .!i»«:16: 

VOJR HOVE FOR L? 3,4,7,1 

VOUR HOVE FOR THE BOXES? 12,16. 

OlS • 

=. . . . mmu 

1:. . . . ««««» 

==. . . . »»»== 

5:....«M: 8: 

===.... 3SH= 

tttt.... 

Htt. 

I1H. . . . 



:12::14:. 



:16; 



COMPUTER UIHS! 

PLAY AGAIN? NO. 



18 CLEflR 1088 

28 CLE. 

38 PRINT e 412. "L - GAME ' 

48 PRIHT 

58 PRIHT TAB(7)"C0PYRIG* _ 1979 

CREATIVE COMPUTING r JRRISTOWN, NJ" 



68 PRINT 8 968, '"; 

78 INPUT-DO YOU NEED INSTRUCTIONS"; 1$ 

08 Did C(4), 0(4), K4), B(16), H(16), 11(106) 

98 IF LEFT$(U, 1)="Y" THEN 2188 

lea as 

110 A*="Y' 

128 IF LEFWAJ, 1)="N" THEN 158 

139 LET F2=8 

148 GOTO 160 

158 LET F2=i 

168 GOSUB 188 

178 GOTO 398 

188 REM INITIALIZE DATA 

198 REH BLB2 = POSITIONS OF BOXES 

288 REH C(12,3,4) = COMPUTER'S POSITION '.L> 

218 REM 0(12,2,4) = OPPONENT'S POSITION ID 

228 REM T(12,3,4) = 6,7,18,11 = CENTER FOSITIONS 

238REHB(1...16) = BOARD: 

248 REM 8(X>=8 EMPTY 

258 REM B(X)=1 OPPONENT'S L 

268 REM 8(X)=2 COMPUTER'S L 

278 REM B(X)=3 BOX 

288 RESTORE 

298 DATA 1 16, 2, 7, 6, 6, 11, 7, 10, IE, 10, 3, 14, 11 

300 DATA 3, 2, 2, 8, 8, 2, 1, 0, 8, 2, L 8, 6, i, i, 3 

318 READ BL B2 

228 FOR X=l TO 4 

228 READ (XX), 0(X), T(X) 

348 NEXT X 

258 FOR X=l TO 16 

368 READ B(X) 

378 NEXT X 

388 RETURN 

398 PRIHT "DO YOU WISH TO START"; 

403 INPUT A* 

418 IF LEFTKAt, 1)="N" THEN 988 

429 REM OPPONENT'S MOVE 

430 GOSUB 2860 
446 PRINT 

458 PRINT "YOUR MOVE FOR L"; 
460 INPUT D(l), D(2), DO), DM) 
470 IF ABS(D(1))+RBS(D(2))+BBS(D(3)) 

+ABS(D(4»=8 THEN 1788 
480 REM BUBBLE SORT 
490 FOR X=l TO 4 
566 FOR Y=2 TO 4 
516 IF D(Y)>D(Y-1) THEN 550 
520 LET Z=D(Y> 
538 LET D(Y)=D(Y-1) 
540 LET D(Y-1)=Z 
558 NEXT Y 
560 NEXT X 

578 REM CHECK LEGALITY 
580 FOR X=i TO 4 
590 LET N(X)=D(X) 
688 NEXT X 
610 LET N1M 
628 LET Fl=8 
628 GOSUB 2398 
640 IF M104 THEN 1720 
650 FOR X=l TO 4 
668 IF B(H(X))>1 THEN 1728 
678 NEXT X 
688 FOR X=l TO 4 
698 LET B(O<X»=0 
780 NEXT X 
718 FOR X=l TO 4 

728 LET B(H(X))=1 

726 LET 0(X)=M(X) 

740 NEXT X 

750 LET B(B1)=0 

768 LET B(B2)=8 

776 PRINT "YOUR MOVE FOR THE BOXES"; 

788 INPUT X, Y 

798 IF A8S(X)+ABS(Y)OX+Y THEN 1750 

806 IF X=Y THEN 1758 

810 IF B(X)+B(Y))0 THEN 1750 

820 LET B1=X 

830LETB2=Y 

840 LET B(B1)=3 

858 LET B(B2)=3 

868 PRIHT "O.K." 

870 GOSUB 2868 

888 REM COMPUTER'S MOVE 



890 REM REMOVE Ctt-4) FROM BOARD 

968 FOR X=l TO 4 

910 LET B(C(X))=8 

926 NEXT X 

930 GOSUB 1926 

940 LET Fi=i 

950 LET N1=Z 

966 GOSUB 2290 

970 IF m=8 THBI 1868 

988 REM FIND MOVE WITH BEST CENTER COVERAGE 

990 GOSUB 1888 

1888 FOR E=0 TO Mi-4 STEP 4 

1010 FOR F=l TO 4 

1028 FOR G=l TO 4 

1830 IF «<E+F)OT(G> THEN 1058 

1040 LET N(E/4+l)=N(E,'4+i)+l 

1658 NEXT G 

1060 NEXT F 

1078 NEXT E 

1886 GOWB 2020 

1090 REM PUT MOVE IN C(l-4) 

1108 LET Y=(Z-1)*4 

1110 FOR X=l TO 4 

1120 LET C(X)=M(X+Y) 

1130 LET B(C(X))=2 

1140 NEXT X 

1158 PRINT 

1168 PRINT 'COMPUTER MOVES TO ";C<i)i" 

";C(2);" ";C(3);" ";C(4) 
1170 REM FIND MOVES FOR BOXES 
1180 REM REMOVE BOXES FROM BOARD 
1198 LET B(B1)=0 
1200 LET B(B2>=3 

1210 REM IS OPPONENT IN CORNER? 

1226 FOR 1=1 TO 4 

1230 FOR J=l TO 4 

1240 IF 0(I)=T(J) THEN 1300 

1258 NEXT J 

1268 NEXT 1 

1278 REM OPPONENT IN CORNER, IGNORE CENTER 

1288 GOTO 1470 

1290 REM OPPONENT NOT IH CORNER, FILL CENTER WITH BOXES 

1300 FOR X=l TO 4 

1316 IF B(T(X)»0 THEN 1258 

1320 LET B1=T(X) 

1230 LET B(B1)=3 

1240 GOTO 1380 

1350 NEXT X 

1360 REM NO SPACES IN CENTER 

1276 GOTO 1470 

1380 FOR X=l TO 4 

1390 IF 8<T(X)»0 THEN 1430 

1408 LET B2=T(X) 

1410 LET B(B2)=3 

1420 GOTO 1546 

1426 NEXT X 

1440 REM CENTER FILLED 

1458 GOTO 1510 

1460 REM BOTH BOXES TO BE POSITIONED 

1470 GOSUB 2150 

1488 LET B1=B2 

1498 LET B(B1)=3 

1566 REM ONE BOX TO BE POSITIONED 

1510 GOSUB 2150 

1520 LET B2=B2 

1530 LET B(B2)=3 

1540 PRINT TAB(9); "MOVES BOXES TO ";B1" AND ";B2 

1558 FOR X=l TO 4 

1568 LET B(0<X»=1 

1570 NEXT X 

1580 GOSUB 2868 

1598 REN CHECK FOR WIN 

1688 FOR X=l TO 4 

1610 LET B(0(X))=8 

1628 NEXT X 

1638 GOSUB 1928 

1648 LET Fl=2 

1650 LET ffl=Z 

1668 GOSUB 2290 

1670 IF Hi=0 THEN 1780 

1688 FOR X=i TO 4 

1698 LET B(0(X»=1 

1708 NEXT X 

1719 GOTO 440 



88 



1728 

me 

1748 
1756 
1769 
1778 
1788 
1798 
1888 
1818 
1828 
1838 
1846 
1850 
1868 
1878 
1888 
1898 
1388 
1918 
1928 
1928 
1948 
1958 
1968 
1978 



2818 
2826 
2828 
2848 



2878 
2888 
2898 
2108 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2136 
2288 
2218 
2228 
2238 
2240 
2258 
2268 
2278 
2288 
2298 
2388 
2318 
2328 
2338 
2348 
2258 
23.68 
2378 
2388 
2398 
2488 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2498 
2538 
2518 
2528 
2538 
2548 
2559 
2568 
2578 
2536 
2598 



PRINT "ILLEGAL HOVE FOR L, ■ 

PRINT 

GOTO 446 

PRINT "ILLEGAL flO'VE FOR BOX." 

PRINT 

GOTO 776 

PRINT "COMPUTER WISK!" 

GOTO 1810 

PRINT "CONGRATULATIONS! VOU HAVE HON. " 

PRINT 

PRINT "PLfW AGAIN"; 

INPUT A* 

IF LEFTSCAS, i)=T THEN 166 

GOTO 3648 

REN *** SUBROUTINES *** 

REM ERASE N<!0 

FOR X=l TO 16 

LET N<X>=0 

NEXT X 

RETURN 

REH STORE LOCATIONS. OF UNOCCUPIED POSITIONS IN IK.X) 

LET Z=8 

FOR X=l TO 16 

IF BCX)>8 THEN 1988 

LET Z=Z+1 

LET N(Z)=X 

NEXTX 

RETURN 

REM THIS aiBROUTINE RETURNS THE LOCATION OF THE LARGEST 

REN VALUE IN N(X). IF A TIE EXISTS A RANDOM CHOICE IS HADE. 

LETY=6 

LET 2=1 

FOR X=i TO Hi74 

IF H<XXV THEN 2188 

IF N«)>Y THEN 2880 

IF RHD<1)>. 5 THEN 2188 

LET Y=H(X> 

LET 2=X 

NEXT X 

RETURN 

REN BOX-FIND 

REH THIS SUBROUTINE FINDS THE HOVE FOR A BOX, THAT HILL 

REH HOST RESTRICT THE OPPONENT'S L IN TERMS OF HOVES POSSIBLE 

FOR X=l TO 4 

LET B(0<X»=8 

NEXT!'. 

GOSUB 1938 

LET Fl=2 

LET Hl=2 

GOSUB 2398 

GOSUB 1888 

FOR Stt TO Hi 

LET N(N(X»=H<M<X»+1 

NEXT X 

FOR X=l TO 4 

LET li<0«>>=8 

NEXTX 

LETM1=64 

GOSUB 2828 

LET 63=2 

RETURN 

REN L-FIND 

REN THIS SUBROUTINE CALCULATES ALL POSSIBLE HOVES FOR AN L GIVEN ALL 

REH EHPTV POSITIONS IN H(X). IF Fl=i, THE CURRENT POSITION OF THE 

REH COBPUTER'S L IS OMITTED. OTHERWISE, THE CURRENT POSITION OF THE 

REH OPPONENT'S L IS QUITTED. HOVES. ARE RETURNED IN H(X), AND 

REH Hi IS THE LENGTH OF N<X). <H1 = NUMBER OF HOVES * 4) 

LET Mi=8 

LET J=4 

LET K=l 

GOSUB 2478 

LET M 

LET K=4 

GOSUB 2478 

RETURN 

LET P=6 

LET P=P+1 

LET A(1)=N(P) 

LETX=P 

LET X=X+1 

IF X>N1 THEN 2*48 

IF N(X)-A(l)OJ THEN 2518 

LET A(2)=H(X) 

LET X=X+1 

IF XM THEN 2648 

IF N(X)-A(2)OJ THEN 2550 

LET AG)=N<X} 

FOR E=l TO Hi 



2618 
2628 
2638 
2648 
2650 
2660 
2676 
2688 
2698 
2780 
2716 
2728 
2738 
2748 
2756 
2766 
2778 
2788 
2798 
2888 
2818 
2828 
2838 
2840 
2858 



2898 
2988 
2918 
2926 
2926 
2940 
2958 
2968 
2978 
2988 
2996 
2888 
3816 
3828 
3838 



3878 



3168 
2118 
3126 
3138 
3148 
3158 
3168 
3178 
3188 
3196 
3200 
3218 
3220 
3228 
3240 
2258 
3268 
3278 
3288 
2298 
3389 
3318 
3328 
3338 
3348 
2358 
2268 



3418 
3428 



2456 
3460 
2478 



IF ABS(NCE)-R(1))=K THEN 2668 

IF fiBS(N(E)-flG»=K THEN 2660 

NEXT E 

GOTO 2488 

IF P<Nl-2 THEN 2486 

RETURN 

LET A(4)=N(E> 

FOR F=i TO 4 

IF A(F),'40IHT(A(F)/4> THEN 2720 



FOR G=l TO 4 

IF A(G)=A(F)+1 THEN 2628 

HEXTG 

NEXTF 

FOR V=i TO 4 

IF Fi=i THEN 2788 

IF A(Y)O0(Y> THEN 2800 

NEXT V 

GOTO 2620 

IF A<V>OC<V) THEN 2888 

GOTO 2768 

FOR Y=l TO 4 

LET M<M1+V)=A(Y> 

NEXT V 

LET 111=111+4 

GOTO 2620 



3488 PRINT "L AND IT WINS THE GAHE ■ 
3490 GOSUB 3658 

3588 PRINT " ASSUMING VOU HAVE SUCCESSFULLV MOVED YOUR L, YOU NOW" 
3518 PRINT "HAVE THE OPTION OF MOVING THE BOXES. YOU MAY HOVE ONE, " 
3528 PRINT "TWO, OR NONE OF THE BOXES BY SIMPLV ENTERING THE COORDINATES" 
3536 PRINT "WHERE YOU WANT TO PUT THEM. TO LEAVE A BOX HHERE IT IS, " 
3548 PRINT "ENTER ITS PRESENT POSITIBN ■ 

3558 PRINT ' AFTER YOU MOVE THE BOXES, IT IS UP TO THE COMPUTER" 
3560 PRINT "TO FIND A HOVE FOR ITS L AND PLAY CONTINUES IN THE SAME" 
3578 PRINT "MANNER. REMEMBER THAT YOU MUST NOT ONLY TRY TO PIN THE" 
3588 PRINT "COMPUTER'S L BUT ALSO KEEP YOUR OHH L FROH BEING PINNED. " 
3598 PRINT 'ALSO, IT IS EASIER TO PLAY THE GAME WITH YOUR OWN BOARD" 
3686 PRINT "THAN THE COMPUTER PRINTOUT. TO RESIGN, ENTER 8,8,8,0" 
2610 PRINT "IN PLACE OF YOUR MOVE GOOD LUCK!" 
2620 PRINT 
3630 GOTO 116 

REH BOARD PRINTOUT aiBROUTINE 2646 END 

CLS 3658 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

IF F2=i THEN 3160 3668 IF INKEY$ ="" THEN 3668 

FOR E=l TO 13 STEP 4 3676 CLS 

FOR. F=l TO 3 2688 RETURN 

FOR G=E TO E+2 

ON B(G)+1 GOTO 2926, 3818, 3838, 3858 

IF F=2 THEN 2958 

PRINT "=="; 

G8T0 3120 

PRINT "•"; 

IF G>9 THEN 2990 

PRINT " ";CHR«48+G);"-"; 

GOTO 3128 

PRINT "l"iCHRJ<38tG);*'"; 

GOTO 3128 

PRINT "«»»"; 

GOTO 3128 

PRINT STRINMM, 191); 

GOTO 3126 

IF F=2 THEN 3110 

IF F=l THEN 3898 

PRINT CHR$(143)STRING»(2, 140)CHR$(143); 

GCTO 3128 

PRINT CHRK188>STRINGK2, 148>CHRK188>; 

GOTO 3126 

PRINT CHR$(191>" " CHR$<191); 

NEXT G 

PRINT 

NEXTF 

NEXT E 

PRINT 

RETURN 

REM INSTRUCTIONS 

CLS. 

PRINT " L-GAME IS A SIMPLE STRATEGIC GAHE PLAYED ON A 4X4" 

PRINT "GRID BY TWO OPPOSING PtftVERS, IN THIS CASE BETWEEN YOU" 

PRINT "AND THE COMPUTER. THE GRID IS NUMBERED AS FOLLOWS:" 

LETF2=8 

FOR X=i TO 16 

LET B(X)=8 

NEXTX 

GOSUB 2658 

GOSUB 2868 

GOSUB 2658 

PRINT " THE GAHE IS PLAYED WITH FOUR PIECES, BGTH" 

PRINT "YOU AND THE COMPUTER HAVE ONE 'L', AND THERE ARE" 

PRINT "TWO 'BOXES' WHICH ARE USED BY BOTH PLAYERS. " 

PRINT "PLAY ALWAYS BEGINS WITH THE PIECES ON THE BOARD" 

PRINT "IN THE FOLLOWING POSITION:" 

GOSUB 188 

GOSUB 3656 

GOSUB 2866 

PRINT "(COMPUTER IS " CHRJC19D", YOU ARE I)" 

GOSUB 2658 

PRINT " THE OBJECT OF THE GAME IS TO POSITION YOUR OWN" 

PRINT "L AND THE BOXES TO PREVENT THE COMPUTER FROM MOVING" 

PRINT "ITS L OF COURSE, IT IS TRYING TO DO THE SAME TO YOU!" 

PRINT "TO MOVE, VOU MUST SIMPLY ENTER THE FOUR COORDINATES" 

PRINT "HHERE YOU WANT TO PLACE YOUR L IT MUST REMAIN ON THE" 

PRINT "BOARD AND MUST NOT COVER ANY' OTHER PIECES. YOU MUST" 

PRINT "MOVE YOUR L! IF YOU CANNOT FIND A NEW POSITION" 

PRINT "FOR YOUR L THEN THE COMPUTER HAS EFFECTIVELY PINNED YOUR" 
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This program is a life-expectancy 
test derivec from Peter Passell's book 
"How To." The test asks you a series of 
questions cealing with your life-style 
and environment. At the end of the 
questioning, the program gives your 
estimated life-expectancy and the 
percentage of the population you 
should outl ve. 

You may wish to experiment with 
certain vari; .bles to see what effect they 
will have or your lifespan. It's unlikely 
that you went to change your sex, but 
you may wish to check out the effect of 
smoking, d inking, mental attitude or 
weight. 

This program was written by John E. 
Rogers. 



H(* DO YOU HORK? 
tl = IF YOU HORK BEHIND A DESK. 
L -- IF VOIR HORK REQUIRES HEfWV PHVSICfll LABOR 
I = NONE OF THE RBOVE 
CHOOSE ONE OF THE LETTERS ABOVE'' It 



■ els ■ 



HO! LONG DO YOU EXERCISE STRENUOUSLY, 
(TENNIS, RUNNING, SUIW1ING, ETC. « 
F = FIVE TINES R HEEK FOR AT LERST fl HALF HOUR. 
K - JUST THO OR THREE TIMES fl HEEK. 
I = DO HOT EXERCISE IN THIS FASHION. 
CHOOSE ONE OF THE LETTERS ABOVE?' K_ 



■ els 



HHJ DO YOU LIVE WITH? 

N = IF YOU LIVE WITH A SPOUSE, FRIEND, OR IN H FAMILY. 
H = IF YOU'VE LIVED RLONE FOR 1-18 YEARS SINCE AGE 25. 
G = FOR U-20 YEARS. 
N = FOR 21-30 YEARS. 
E = FOR 21-40 YEARS. 
D = MORE THAN 48 YEARS. 
CHOOSE ONE OF THE LETTERS ABOVE? N_ 



I IFE EXPECTANCY 
COPYRIGHT 1379 CR£ TT1VE COMPUTING MORRISTOHN, NJ 
DO YOU NEED INSTRU1 RONS? YES. 
els 



+++PSYCHE+++ 

DC YOU SLEEP MORE THAN 18 HOURS A NIGHT? 
I = N0. 
E = YES. 
CHOCSE ONE OF THE LETTERS ABOVE? I. 



THIS IS fl TEST 1 3 PREDICT YOUR LIFE EXPECTANCY I 
HILL ASK YOU A SER! IS OF SHORT QUESTIONS, WHICH YOU HILL 
REPLY BY TYPING IN THE CORRESPONDING ANSWER TO THE 
QUESTION 

EXAMPLE: *AT IS YOUR SEX? 

►MK.E 

F=Ff 1ALE 
'«' AND 'F' ARE TH POSSIBLE REPLIES TO THE QUESTION, ANSWER 
LIKE THIS: 

CHOI SE ONE OF THE LETTERS ABOVE? H 
TYPING AN '«' SIGN! -IES THAT YOU ARE A NBLE 



PRESS W KEY TO CONTINUE 
els 



+++SEX+++ 

ARE YOU HALE OR FE (ALE? 
N = HALE 
F = FEMALE. 
CHOOSE ONE OF THE Lt ITERS ABOVE? H. 



■ CIS • 



tt+LIFE STVLE++1 

WHERE DO YOU LIV :'' 

G = IF YOU LIVE :N AN URBAN AREA HITH A PQPLiflTIOH OVER 2 MIL 

K = IF YOU LIVE N A TOWN UNDER 10,008 OR ON A FARIt 
I = NEITHER 
CHOOSE ONE OF THE .ETTERS ABOVE? K- 



t+'HEHTRL STATE+++ 

H - IF YOU ARE INTENSE, AGGRESSIVE, OR EASILY ANGERED. 
L = IF YOU ARE EASY GOING, RELAXED, OR A FOLLOWER 
I = NEITHER 
CHOCSE ONE OF THE LETTERS RBOVE? I. 



♦hHON YOU FEEL+++ 
FEE YOU HRPPV OR UNHAPPY? 
J = HAPPY. 
C = UNHAPPY. 
I = NEITHER 
CHOUSE ONE OF THE LETTERS ABOVE? J. 



■ els ■ 



* -+FACT0RS+++ 

HAVE YOU HAD A SPEEDING TICKET IN THE LAST YEAR? 
H = YES. 
I = N0. 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



els ■ 



+-+INC0HE-H+ 

CO YOU EARN MORE THAN $58,889 A YEAR? 
t = YES. 
I =N0. 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



■ els • 



■ els • 
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+++SCHOOLING+++ 

J = IF YOU HAVE FINISHED COLLEGE. 
L = !F VOU HOVE FINISHED COLLEGE WITH A GRADUATE 
OR PROFESSIONAL DEGREE. 
I = NOTHING LISTED. 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



■ els ■ 



+++AGE+++ 

ARE VOU 65 OR OLDER AND STILL WORKING? 
L = YE5. 
I =NO 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



+++CURRENT AGE+++ 

K = IF VOU ARE BFJHEEH 38 AND 49 YEARS OLD. 
L = BETWEEN 48 AND 50. 
F = BETHEEH 50 AND 70. 
N = OVER 76. 
I = UNDER 20. 
CHOOSE ONE OF THE LETTERS ABOVE? I. 

els 



VOU ARE EXPECTED TO LIVE TO THE AGE OF 80 YEARS. 
OUTLIVING 75Z OF THE HEN AND 532 OF THE MEN. 
MOULD YOU LIKE ANOTHER ESTIMATE? NO. 



els ■ 



• els • 



+++HEREDITY+++ 

K = IF ANY GRANDPARENTS LIVED TO 35 YEARS OLD. 

= IF ALL FOUR GRANDPARENTS LIVED TO BE 80 YEARS OLD. 

1 = NO GRANDPARENTS QUALIFY IN THE ABOVE. 
CHOOSE ONE OF THE LETTERS. ABOVE? K_ 



• els ■ 



HAS ANY PARENT DIED OF A STROKE OR HEART ATTACK 
BEFORE THE AGE OF 58? 
E = YE5. 
I = N0. 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



■ els ■ 



+++FAMLY DI5EASES+++ 

ANY PARENT, BROTHER, OR SISTER UNDER 50 HAS (OR HAD) 
CANCER, A HEART CONDITION, OR DIABETES SINCE CHILDHOOD? 
M = YES 
I = NO 
CHOOSE ONE OF THE LETTERS ABOVE? 1. 



10CLS 

20 CLEAR 1868 

38 PRINT 489, "LIFE EXPECTANCY" 

48 PRINT 

58 PRINT TAB(7)"C0PYRIGHT 1979 CREATIVE CONFUTING HORRISTOHN, NJ' 

68 PRINT 8 968, ""; 

70 INPUT-DO YOU NEED INSTRUCTIONS"; If 

88 IF LEFWIS, 1)="N" THEN 238 

98CLS 

188 PRINT ■ THIS IS A TEST TO PREDICT YOUR LIFE EXPECTANCY. I" 

110 PRINT "HILL ASK YOU A SERIES OF SHORT QUESTIONS, WHICH YOU HILL" 

128 PRINT "REPLY BY TYPING IN THE CORRESPONDING AHSNER TO THE" 

138 PRINT "8UEST10N. " 

148 PRINT " EXAKPLE: HHAT IS YOUR SEX?" 

158 PRINT " H=HALE" 

168 PRINT " F=FENALE" 

178 PRINT "W AND 'F' ARE THE POSSIBLE REPLIES TO THE QUESTION, ANSWER" 

IMPRINT "LIKE THIS:" 

199 PRINT " CHOOSE ONE OF THE LETTERS ABOVE? H* 

288 PRINT "TYPING AN '«' SIGNIFIES THAT YOU ARE A HALE. ■ 

210 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

228 IF INKEW =" THEN 228 

238R5=1 



•H+KEALTH+++ 
HON HUCH DO VOU SHOKE? 
A = IF YOU SHOKE HOPE THAN TWO PACKS A DAY. 
C = ONE TO TO PACKS A DAY. 
II = ONE HALF TO ONE PACK A DAY. 
I = DON'T SMOKE. 
CHOOSE ONE OF THE LETTERS ABOVE? I_ 



+++DRINKINGH+ 

DO YOU DRINK THE EflUIVALENT OF A 
flUARTER BOTTLE OF ALCOHOLIC BEVERAGE A DAY? 
H = YES 
I = N0 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



■ els • 



+++HEIGHT+++ 

R = IF YOU ARE OVERWEIGHT BY 56 POUNDS ( 
E = OVER BY 38-58 POUNDS. 
G = OVER BY 18-38 POUNDS. 
I = NOT 0VERHEI6HT. 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



HOPE. 



• els ■ 



+++CHECKUPS+++ 

IF YOU ARE A HALE OVER 49 DO VOU HAVE AH ANNUAL CHECKUP'' 
K = YES. 

I = HO. OR NOT A MALE OVER 48 YEARS OLD. 
CHOOSE ONE OF THE LETTERS ABOVE? K. 



IF YOU ARE A WOMAN DO VOU SEE A GYNECOLOGIST ONCE A SEAR? 
K = YES. 

1 = NO, OR NOT A WOMAN. 
CHOOSE ONE OF THE LETTERS. ABOVE? I. 




• els ■ 
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248 2=72 


1858 DATA 2, "EI" 


259 fl$="ABCDEHGHUKL HO' 


1068 DATA "H+FAMLY DISEASES+++" 


268 GOTO 1478 


1878 DATA "ANY PAFEHT, BROTHER. OR SISTER UNDER 56 HAS (OR HAD)" 


278 R5=R5+1 


1088 DATA "CANCER, fl HEART CONDITION, OR DIABETES SINCE CHILDHOOD?" 


288 IF R5>21 THEN 16 8 


1896 DATA "H = YES" 


298 DATA "+++SEX+++" 


1166 DATA " I = NC" 


300 DATA "ARE TO MP £ OR FEHfiLE?" 


1110 DATA 2, "HI" 


318 DflTR "N = HALE " 


1128 DATA "tt+HERL 1H+++" 


228 DflTR " F = FEHRL - " 


1138 DATA "HOW HUCH DO YOU SHORE?" 


338 ORTR 2, "IT" 


1146 DflTR "fl = IF YOU SMOKE MORE THAN TKO PACKS A DAY. " 


348 ORTR "-H4LIFE ST 1E+++" 


1158 DATA "C = OH: TO TMO PACKS A DAY. ■ 


358 DflTR "WHERE DO Y W LIVE?" 


1168 DATA "H = ONE HALF TO ONE PACK fl DAY. " 


368 ORTR '0 = IF VOU LIVE IN fiN URBRN RRER WITH fl POPULATION OVER 2 ML " 


1176 DATA " I = DON'T SHOKE. " 


378 DATA "K = IF VOL LIVE IN R TOW UNDER 18,888 OR ON fl FARM. " 


1188 DATA 4, "ACHI" 


388 DATA " I = NEITH K" 


1198 DRTfl "+++DRIIKING+H" 


398 DATA 3, "OKI" 


1288 DATA "DO YOU DRINK THE EQUIVALENT OF A" 


488 DflTR "HUM DO VOL' WORK?" 


1218 DATA "QUARTO! BOTTLE OF ALCOHOLIC BEVERAGE fl DAY?" 


418 ORTR "H = IF YOU HORK BEHIND fl DESK. " 


1220 DATA "H = YE" 


428 DATA "L = IF VOL ! HORK REQUIRES HEAW PHVSICAL LABOR" 


1238 DATA " I = NO" 


438 DRTR " I = NONE F THE ABOVE. " 


1240 DATA 2, "HI" 


448 DflTR 3, "HP 


1258 DATA "+wtEir : HT+++" 


458 DATA "HOH LONG t ) VOU EXERCISE STRENUOUSLV, ■ 


1268 DATA "A = IF YOU ARE OVEPilEIGHT BY 58 POUNDS OR HORE " 


468 DATA "(TENNIS, Rt «1NG, SHINNING, ETC. )?" 


1278 DATA "E = OVER BY 38-58 POUNDS. " 


478 DATA "F = FIVE 1 IBES fl MEEK FOR AT LEAST A HALF HOUR. " 


1288 DATA "G = OVER BY 18-38 POUNDS. " 


488 DATA "K = JUST HO OR THREE TIKES fl MEEK. " 


1298 DATA " I = NOT OVERSIGHT. " 


498 DflTR " I = DO Nt T EXERCISE IN THIS FASHION " 


1388 DATA 4, "AEGI ' 


508 DATA 2, "FKI" 


1318 DATA "+++CHECKUPS+++" 


518 DflTR "MHO DO TO LIVE HITH?" 


1320 DATA "IF YOU RRE A HALE OVER 48 DO YOU HAVE AN ANNUAL CHECKUP'" 


528 DRTfl "H = IF VOt LIVE HITH fl SPOUSE, FRIEND. OR IN A FAMILY. " 


1336 DATA "K = YES. " 


530 DATA "H = IF V01 'VE LIVED &ONE FOR 1-18 VERRS SINCE AGE 25. " 


1348 DATA " I = NO, OR NOT A HALE OVER 48 YEARS OLD. " 


546 DATA "G = FOR 1 -28 YEARS. " 


1350 DATA 2, "KI" 


558 DATA "M = FOR 2 -38 YEARS. ' 


1368 DATA "IF YOU ARE R HOHAN DO YOU SEE fl GYNECOLOGIST ONCE A VERS?' 


568 DATA "E = FOR 3: -46 VERRS. " 


1370 DATA "K = YES. " 


578 DATA " D = TORE THAU 48 YERRS. * 


1388 DRTR " I = NJ, OR HOT A HOHAN. " 


588 DRTR 6, "HHGHED" 


1398 DATA 2, "KI" 


598 DRTR "+++P5YCHE- ++" 


1488 DATA "+++OIRENT FSE+++" 


688 DRTR "DO VOU SLI EP HOPE THAN 18 HOURS R NIGHT?" 


1418 DATA "K = IF YOU PRE BETWEEN 38 AND 48 YEARS OLD. " 


616 DATA "I = NO. " 


1420 DATA "L = BEflEEN 48 AND 58. " 


628 DflTR » E = YES 


1438 DATA "F = BEIKEEN 50 RHD 70. " 


638 DATA 2, "IE" 


1448 DATA "N = OVER 78. ■ 


648 DATA "+++11EHTBL STATE+++" 


1458 DATA " I = U'S€R 30. " 


658 DATA "N = IF V» ARE INTENSE, AGGRESSIVE, OR EASILY ANGERED. " 


1468 DATA 5, "KLFHI" 


668 DflTR "L = IF YOl RRE ER5Y GOING, RELflXED, OR fl FOLLOWER " 


1478 CLS 


678 DflTH " I = NEIT! ER" 


1488 PRINT 8 256, "i 


688 DATA3,"HLI" 


1498 FOR 8=1 TO 7 


698 DflTR "+WKOH TO FEEL+++" 


1580 READ QJ 


788 DATA "ARE VOU H PPV OR UNHAPPY?" 


1518 IF LEFT*(Q$, «=" " THEN 1548 


718 DATA "J = HAPPY " 


1528 PRINT " "iQf- 


728 DATA "G = UNHAP V. " 


1538 NEXT fl 


738 DATA • I = NEIT £R" 


1548 PRINT ' »;QS 


748 DATA 3, "JGI" 


1558 READ C, O 


758 DATA "mFACTOR *++" 


1568 PRINT "CHOOSE ONE OF THE LETTERS ABOVE"; 


768 DATA "HAVE VOU 1 AD A SPEEDING TICKET IN THE LRST YERR?" 


1578 INPUT G$ 


778 DATA "H = YES. " 


1588 FOR C2=l TO C 


788 DATA " I = NO. " 


1598 IF LEFT«G$, 1>=HID*(C$, C2, 1) THEN 1628 


796 DflTR 2, "HI" 


1688 NEXT C2 


808 DATA "+++IUCOHE +*" 


1618 GOTO 1560 


818 DATA "DO YOU EA M BORE THAN $58,888 fl YEAR?" 


1628 FOR H=l TO 15 


828 DATA "G = YES. " 


1638 IF LEFTKGt, l)=H!DKf», N, 1) THEN 1658 


836 DATA " I = NO. " 


1648 NEXT N 


848 DATA 2, "GI" 


1656H=N-9 


858 DATA "+++SCHOOL NG+++" 


1666 2=Z+H 


868 DATA "J = IF YO 1 HAVE FINISHED COLLEGE. " 


1678 CLS 


878 DATA "L = IF YO I HAVE FINISHED COLLEGE HITH A GRADUATE" 


1686 GOTO 270 


888 DATA "OF; PROFES ilONAL DEGREE. " 


1693 PRINT t 256, "VOU ARE EXPECTED TO LIVE TO THE AGE OF"; 


898 DATA " I = NOTH M LISTED. " 


1788 FOR 29=1 TO 1888 


988 DATA 3, "JLI" 


1716 NEXT 


918 DATA "+++AGE+« ' 


1728 PRINT £ 


328 DATA "RRE YOU i i OR OLDER AND STILL DORKING?" 


1738 FOR 29=1 TO 588 


938 DATA "L = YES. ' 


1748 NEXT 


948 DATA " I = NO" 


1758 PRINT-YEARS. " 


958 DATA 2, "LI" 


1768 IF 2<68 THEN 1838 


968 DATA "+++HEREDI IY+++" 


1778 FOR V=68 TO 2 STEP 5 


970 DATA "K = IF AI 1 GRANDPARENTS LIVED TO 85 YEARS OLD. • 


1788 READ ttt, Ft 


988 DATA "0 = IF AL . FOUR GRANDPARENTS LIVED TO BE 88 YEARS OLD. " 


1798 NEXT Y 


990 DATA " 1 = NO C WDPARENTS QUALIFY IN THE ABOVE " 


1800 DATA "26X", '15T, "36T, "202", "48Z", "38T. "61T, "39X" 


1808 DATA 3, "KOI" 


1810 DATA "75r, "53X". "87XV "78T, "962". "88X". "93. 9T, "99. $>." 


1818 DATA "HAS ANY' 3 fiREHT DIED OF A STROKE OR HEART ATTACK" 


1828 PRINT "OUTLIVING ";ltt;" OF THE HEN AND ";F*« OF THE HOfEH. " 


1828 DRTR "BEFORE ' HE RGE OF 58?" 


1828 INPUT "MOULD YOU LIKE ANOTHER ESTIMATE"; RESPI 


1838 DATA "E = YES. " 


1648 IF LEFWRESPJ, 1)="Y" THEN RESTORE: GOTO 228 


1846 DATA " I = IB. " 


1858 END 
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This program pri 
patterns. You enter re 
frequencies and the Y f 
relative frequencies for 
a positive number one 
phase may be betweei 
number you want. 

We have experiment 
range of relative fr( 
phases and come i 
startlingly beautiful pat 
starkly plain while othe 
ly complex. If the frequ> 
beyond nine or ten 
generally become jumb 
to decipher particula 
being printed out on t 
copy terminal. Neverth 
experiment. 

This program was 01 
by Larry Ruane anc 
several other people a 
appeared first in Creat 
Sep/Oct 1977. 



its Lissajous 
lative X and Y 
'hase of pi. The 
< and Y must be 
or greater. The 
1 zero and any 

3d with a wide 
quencies and 
p with some 
ems. Some are 
-sareamazing- 
jncies go much 
the patterns 
led and difficult 
ly if they are 
ie normal hard 
sless, it's fun to 

iginally written 

modified by 

ong the line. It 

ve Computing, 




LISSflJOUS 
COPYRIGHT 1 >79 CREATIVE COMPUTING MORRISTOWN, NJ 



• els • 



Cl8 ■ 



RaflTIVE FREQUENCY FOR X? 3 
RElflTIVE FREQUENCE FOR V 6 
Y PHASE, MULTIPLE )F PI? B_ 

els 



RaflTIVE FRECUENCV FOR X? 2 
RaflTIVE FREQUENCY FOR V> 2 
Y PHRSE, MULTIPLE OF PI? B- 
cis 



* * 
* 



94 



Ol8 

RELATIVE FREQUENCY FOR X? 5 
RaflTIVE FREQUENCY FOR Y? 7 
Y PHASE, MULTIPLE OF PI? 0_ 

0l8 



ols ■ 



RELRTIVE FREQUENCY FOR X? 1 
RELATIVE FREQUENCY FOR Y? 1 
Y PHASE, MULTIPLE OF PI? 5. 

Cl8 
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IB CLS 

28 PRINT e 412, "LISSAJOUS" 

30 PRINT 

40 PRINT TAB<?> "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 
50 DEFDBL P 
60 DIM Y<10) 
70 P=3. 14159265 

89 PRINT 7S8, "RELATIVE FREQUENCY FOR X"; 

90 INPUT Fl 

100 IF INT<F1XF1 THEN 88 

110 IF FK1 THEN 80 

120 F=F1 

130 F1=2*P*F1 

140 PRINT"RELHTIVE FREQUENCY FOR Y"; 

150 INPUT F2 

160 IF INKF2XF2 THEN 148 

170 IF F2<1 THEN 140 

188 PRINT"Y PHASE, MULTIPLE OF PI"; 

190 INPUT P2 

200 P2=P*P2 

218 PRINT"OUTPUT TO PRINTER OR <S)CREEN ?"; CHR*<95>; 

228 0*=INKEY* 

238 IF fi*=" THEN 228 

248 CLS 

250 F2=2*P*F2 

260 FOR Xl=-i8 TO 18 

278 X=X1/18 

288 GOSUB 610 

290 T1=X 

308 T2=P-X 

210 FOR 1=0 TO F-l 

328 T3=CT1+2*I*PVF1 

330 T4=<T2+2*I*PVF1 

340 Y1=30*SIN<F2*T3+P2> 

358 Y2=38*SIN<F2*T4+P2) 

360 Y1=SGN<Y1)*INT(ABS<Y1)+. 5) 

370 Y2=SGN<Y2)*INT<ABS<Y2H. 5) 

380 Y<2*D=Y1 

390 Y<2*I+1)=Y2 

400 NEXT I 

410 FOR J=l TO 2*F-1 

428 I=J-1 

438 T=Y(J> 

448 IF T>=Y<DTHEN 480 

450 Y(I+1)=Y<D 

460 1=1-1 

470 IF D=0 THEN 440 

488 Y<I+1)=T 

498 NEXT J 

500 FOR 1=0 TO 2*F-1 

510 IF 1=0 THEN 530 

520 IF Y<D=Y(I-1)THEN 540 

538 IF R*OT" THEN SET<64+Y<D*2, Xl+18) ELSE LPRINT TflB<38+Y<I))i "■ 

540 NEXT I 

550 IF H*="P" THEN LPRINT" " 

560 NEXT XI 

576 PRINT § 960, "DO YOU WANT ANOTHER PICTURE ?"; 

588 A*=INKEY* 

598 IF A$="N" THEN END 

600 IF fl*="Y" THEN CLS. CLEAR: GOTO 50 ELSE 580 

610 IF ABSCXX. 1 THEN 660 

620 X=X/< SQR(1+XHSQRC1-X>> 

638 GOSUB 618 

648 X=2*X 

658 RETURN 

660 X=X+XC3/'6+ 875*XC5+XC7/22. 4 

678 RETURN 

688 END 



We've all seen exs 
squares. The most cc 
3x3 square using 
through 9 in which t 
row, column and diag 

In the computer < 
Square" the goal is t< 
magic square with 
computer alternately 
integers between 1 
player stumbles and 
ber which causes th< 
column, or diagonal 
other than 15, he lose 

In forming a ; 
square, there is only 
tal solution. Howe 
rotated and revers 
solutions. Because 
does not play a part 
game, all eight solu 
obtained. How many 

Can you modify 
program to play a r 
game which permits 
tions? (Hint: Try r 
move position and 
tors in Statements 71 

This program v 
David Ahl and origin 
Creative Computing, 

This program use 
ics which do not rep 
line printer. Therefor 
does not give a true i 
the program. The 
program can be trul 
to run it. 



mples of magic 
immon one is a 
:he integers 1 
le sum of each 
onal totals 15. 
lame of "Magic 
i form a sum 15 

you and the 

filling in the 
and 9. If one 
puts in a num- 
! sum of a row, 
o be something 
s. 

urn 15 magic 
one fundamen- 
ler, it can be 
3d to form 8 

the computer 
icularly creative 
:ions cannot be 
can be? 

the computer 
lore interesting 

all eight solu- 
andomizing the 
number genera- 
and 720). 
»as created by 
ally appeared in 
Jan/Feb1975. 

s TRS-80 graph- 
■oduce well on a 
3 the sample run 
epresentation of 
only way this 
/ appreciated is 



MAGIC SQUARE 
C0PVRIGH1 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



DO VOU NEED INSTRUCTIONS? VES- 
• els 



PLAVERS ALTERNATLEV CHOOSE AN INTEGER (i TO 9) 
THAT HAS NOT BEEN PREVIOUSLV USED AND PLACE IT 
IN ANV UNFILLED CELL OF A TIC-TAC-TOE BOARD. 
THE GOAL IS TO MAKE THE SUM OF EACH ROM, COLUMN, 
AND DIAGONAL EQUAL TO 15. 

THAT PLflYER LOSES WHO FIRST MAKES THE SUM OF THE 
THREE FIGURES IH ANV ROW, COLUMN, OR DIAGONAL 
SOMETHING OTHER THAN 15. 

A TIE GAME DRAKS R MAGIC SQUARE!! 

PRESS ANV KEV TO CONTINUE 



THE COMPUTER WILL ASK VOU ON EACH MOVE WHICH 
CELL VOU WISH TO OCCUPV, AND THE NUMBER VOU WISH 
LIKE 3 AND 7 IF VOU WISHED TO PUT A 7 IN CELL 1 

HERE ARE THE CELL NUMBERS: 



1-2 
4 - 5 • 
7-8 



CELL NUMBER 



NUMBER 



PRESS ANV KEV TO CONTINUE 
— els 



.2 



CELL NUMBER - 5 



NUMBER - 9 



I MOVE TO CELL 2 WITH fl 2 

_ els - 



CELL NUMBER - 3 



.3 



NUMBER - 5 



PLAV AGAIN? VES- 



SORRV, VOU LOSE — NICE TRV. 
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CELL NUMBER - 



CEU.HUSER-3 



NKSER- 



.8 .9 



NUHBER-9 



.? 8 



I ROVE TO CELL 2 KITH A 2 



PUiV AGAIN? „ 



I LOSE — YOU HIN!! 



■ els 



■ els ■ 



10 CLEAR 580: CLS: PRINT9410, "MfiGIC SQUARE" 

20 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN 

26 PRINTO960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

40 IF LEFT*<I*,1)="N" THEN 280 ELSE CLS: PRINT TAB<26) "MAGIC SQUARE"- 

50 PRINT " PLAVERS ALTERNATLEV CHOOSE AN INTEGER Q TO 9)" 

60 PRINT "THAT HAS NOT BEEN PREVIOUSLY USED AND PLACE IT" 

70 PRINT "IN ANV UNFILLED CELL OF A TIC-TAC-TOE BOARD. " 

80 PRINT "THE GOAL IS TO MAKE THE SUM OF EACH ROW, COLUMN, " 

90 PRINT "AND DIAGONAL EQUAL TO 15. " 

109 PRINT " THAT PLAVER LOSES WHO FIRST MAKES THE SUM OF THE" 

110 PRINT "THREE FIGURES IN ANV ROW, COLUMN, OR DIAGONAL" 
120 PRINT "SOMETHING OTHER THAN 15. " 

130 PRINT 

140 PRINT "A TIE GAME DjWIS A MAGIC SQUARE! '" 

150 PRINT@979, "PRESS ANV KEV TO CONTINUE"; 

168 IF INKEV$="" THEN 160 ELSE PRINT@128, CHR$(21); 

17B PRINT "THE COMPUTER WILL ASK VOU ON EACH MOVE WHICH" 

180 PRINT "CELL VOU WISH TO OCCUPV, AND THE NUMBER VOU WISH" 

190 PRINT "LIKE 2 AND 7 IF VOU WISHED TO PUT A 7 IN CELL 3. " 

286 PRINT 

210 PRINT "HERE ARE THE CELL NUMBERS." 

220 PRINT 

230 PRINT "1 - 2 - 3" 

240 PRINT "4 - 5 - 6" 

250 PRINT "7 - 8 - 9" 

260 PRINT0979, "PRESS ANV KEV TO CONTINUE"; 

270 IF INKEV*="" THEN 270 ELSE CLS 

280 CLS: B$=CHR*<26)+STRING*<5, 8) • RESTORE 

290 FOR 1=42 TO 127- SET<I,1V SETCL13V SET<I,25V SET<I,27V NEXT 

360 FOR 1=1 TO 37: SETC42, IV SET<43, 1): SET<78, IV SETC71, 1) 

310 SET<98, IV SETC99, 1): SET(126, 1)- SETC127, 1): NEXT 

320 PRINTO86, "1"; PRINTM.00, "2"; . PRINT8114, "3"; 

330 PRINT0242," "4"; PRINT@356, "5"; PRINTO370, "6"; 

340 PRINTS59S, "7"; . PRINT8612, "8"; PRINT6626, "9"; 

350 DATA 32, 176, 188, 32, 32, 32, 32, 191, 32, 32, 32, 140, 143, 140, 32 

360 DATA 176, 148, 140, 140, 176, 176, 140, 140, 148, 131, 143, 140, 140, 140, 148 

370 DATA 176, 148, 140, 148, 176, 32, 32, 148, 148, 179, 131, 140, 140, 140, 131 

388 DATA 32, 32, 176, 188, 32, 188, 179, 176, 191, 176, 32, 32, 32, 142, 22 

390 DATA 188, 140, 140, 140, 148, 131, 131, 131, 131, 188, 131, 148, 140, 140, 121 

400 DATA 22, 176, 140, 140, 22, 191, 148, 140, 140, 176, 121, 148, 140, 140, 121 

410 DATA 140, 140, 140, 140, 188, 22, 176, 140, 131, 32, 143, 32, 32, 32, 32 

420 DATA 176, 148, 140, 140, 176, 179, 140, 140, 140, 179, 121, 140, 148, 140, 131 

430 DATA 176, 140, 140, 140, 176, 131, 140, 140, 140, 191, 32, 140, 148, 131, 32 

440 FOR CH=1 TO 9: FOR RO=l TO 3: FOR CO=l TO 5 

450 READ PO: A*(CH)=A*<CH)+CHR*<PO) 

460 NEXT CO: A$<CH)=A*<CH)+B$: NEXT RO 

470 fl*<CH>=LEFWA*(CH), 27) : NEXT CH 

488 FOR 1=1 TO 9: A<I)=8 

490 B<I)=0 

508 NEXT I 

510 11=0 :W=0 

528 PRINT0521, 

538 A$=INKEVf : 

548 PRINTB512, 

550 A*=INKEV$: 



" "; PRINT§256, "CELL NUMBER - 

IF A*=" THEN 530 ELSE I=VAL<A$) 

"NUMBER - "; CHR$<8); CHRJC8); 

IF A*="" THEN 558 ELSE N=VBL<A$V PRINT N; 



; CHR$<8); CHR$<8); 
PRINT I; 



570 IF A<I)=8 AND B(N)=0 THEN 610 
NJ" 580 PRINT8768, "ILLEGAL MOVE. . . AGAIN"; 

590 FOR A=l TO 1000: NEXT. PRINT0768, STRING$(20, 32); 
PRINT 680 GOTO 520 

610 A<I)=N: B(N)=1: M=M+1 
620 GOSUB 1090 
638 GOSUB 938 
640 IF W=0 THEN 678 

650 PRINT§853, "SORRV, VOU LOSE — NICE TRV " 
660 GOTO 870 
678 IF M<5 THEN 710 
688 PRINTS852, "A TIE GAME" 

690 PRINTS917, "BUT WE'VE DRAWN A MAGIC SQUARE ! " 
700 GOTO 888 
710 FOR Q=l TO 9 
720 IF A<Q» 8 THEN 888 
730 FOR R=l TO 9 
740 IF 8<R)>8 THEN 798 
750 A<Q)=R 
768 GOSUB 930 
770 IF W=0 THEN 828 
788 Q1=Q: R1=R: W=8: A<Q)=0 
790 NEXT R 
830 NEXT Q 

810"W=1. R=R1. Q=Q1. A<Q)=R 
820 8<R)=1 

830 PRINT0896, "I MOVE TO CELL"; Qj "WITH A"; R; 
846 GOSUB 1090 
850 IF W=0 THEN 520 
860 PRINT0853, "I LOSE — VOU WIN! 1 " 
870 PRINT 
880 FOR 1=1 TO 15 
890 PRINT CHR*<7); 
980 NEXT I 

910 INPUT "PLAV AGAIN"; ANS* 
928 IF LEFWANS*, 1)=»V" THEN 280 aSE CLS. END 
930 FOR X=l TO 8 
940 ON X GOTO 950, 960, 978, 988, 998, 1080, 1010, 1820 



950 J=l. 


K=2 


L=3: GOTO 1830 


960 K=4: 


L=7 


GOTO 1030 


978 K=5: 


L=9 


GOTO 1030 


980 J=4: 


L=6 


GOTO 1030 


990 J=2: 


L=8 


GOTO 1030 


1888 J=3 


L= _ 


': GOTO 1030 


1818 K=6 


L=S 


: GOTO 1030 


1028 J=7 


K=S 





560 IF Kl OR D9 OR N<1 OR N>9 THEN 588 



1838 IF ACJ)=0 OR A(K)=0 OR A(L)=0 THEN 1050 

1048 IF A<J)+A<K)+A<L)015 THEN 1078 

1058 NEXT X 

1868 GOTO 1880 

1070 W=l 

1080 RETURN 

1090 PRINT090, A*(A<1)); 

1100 PRINT8346, H$<A<4)). 

1118 PRINTB682, A*<A<7)); 

1120 RETURN 



PRINT8104, H*(A<2)); PRINT8118, A$<fl<2)); 
PRINT8360, A«A<5)); : PRINTC374, A$(A<6)); 
PRINT0616, A$(A(8)); PRINTO620, A$(A(9)); 
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In this ■ 
man-eatir 
pit, appro 
it has a n 
you can 
different ; 
Unlike yc 
than one 
the game 
moves. If" 
be releas< 

We're r 
on what 
diabolical 
it's extren 
the rabbit 
ten game: 
improve t 
the numt 
make on f 
find it inte 
the progr 
this, you' 
paper at 
direction, 
compass 
number tl 
ten along 
moves as 
some inte 

This p 
written b< 



jame you are in a pit with a 
g rabbit. The center of the 
ariately enough, is at 0,0, and 
idius of ten. On each move, 
move in any one of eight 
ingles, 0, 45, 90, 135 ... etc. 
u, the rabbit can take more 
iop on a move. The object of 
is to avoid the rabbit for ten 
'ou dothissuccessfullyyou'll 
id and set free, 
ot sure what race of people 
planet dreamed up this 
sport, but we've found that 
lely difficult to get away from 
in more than about one out of 
;. You may, therefore, want to 
le odds somewhat by limiting 
er of moves the rabbit can 
ach turn to one or two. You'll 
resting to graph the results of 
am as you go along. To do 
I need a piece of quadrille 
least 21 squares in each 
Draw a circle with your 
:en units in diameter and then 
ie grid from minus ten to plus 
the X and Y axes. Plot your 
you go along and you'll see 
resting patterns develop, 
ogram was conceived and 
' Philip Stanway. 
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MAN-EATING RABBIT 
COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 

00 YOU NEED INSTRUCTIONS? YES. 

els 



MAN-EATING RABBIT 

TOU ARE IN A PIT WITH A HAN-EATING RABBIT. 

THE CENTER IS <0, 0) AND IT HAS A RADIUS OF 10. 

IF YOU CAN AVOID THE RABBIT FOR 10 MOVES YOU WILL BE 

RELEASED. YOU AND THE RABBIT CAN MOVE ONLY 1 SPACE EACH. 

HOWEVER, THE RABBIT CAN DO MULTIPLE JUMPS. 

VOU CAN TRAVEL AT THESE ANGLES. 
9, 45, 90, 135, 180, 225, 270, 315, 360 



WERE WOULD YOU LIKE TO BE DROPPED? 2, 3- 
— els 



RABBIT AT (-1 ,-9 ) HUMAN AT ( 2 
AT WHAT ANGLE WILL YOU RUN ■> 278. 



3 ) DISTANCE 12. 3693 



TURN * 1 

RUNNING HUMAN, YOU ARE NOW AT < 2 , 2 ) 

THE RABBIT IS POUNCING AT ANGLE 90 

THE RABBIT IS POUNCING AT ANGLE. . . . 90 

RfiBBIT AT (-1 , -? 1 HUMAN AT < 2 , 2 ) DISTANCE 9. 48683 

AT WHRT ANGLE WILL YOU RUN "> 0. 



■ els ■ 



. HUMRN, YOU ARE NOW AT ( 3 , 
45 



TURN « 2 

RUNNING 

THE RABBIT IS POUNCING AT ANGLE. . . 

THE RABBIT IS POUNCING AT ANGLE. . . 

RABBIT AT < , -5 ) HUMAN AT < 2 

BT WHAT ANGLE WILL YOU RUN ? 315. 



2 ) DISTANCE 7. 61577 



■ els - 



TURN # 3 

RUNNING HUMAN, YOU ARE NOW AT < 4 , 1 ) 

THE RABBIT IS POUNCING AT ANGLE. . . 45 

THE RABBIT IS POUNCING AT ANGLE 45 

THE RABBIT IS POUNCING AT ANGLE. ... 45 

RfiBBIT AT < 3 ,-2 ) HUMAN AT < 4 , 1 > DISTANCE 3. 16228 

AT WHAT ANGLE WILL YOU RUN ' 315. 



CIS 



0,360 



TURN # 4 

RUNNING HUMAN, YOU ARE NOW AT < 5 

THE RABBIT IS POUNCING AT ANGLE. 45 
RfiBBIT AT < 4 , -1 1 HUMAN AT < 5 , ) 
HT WHAT ANGLE WILL YOU RUN '' 180- 



DI STANCE 1. 41421 



■ CIS ■ 



TURN # 5 

RUNNING HUMAN, YOU ARE NOW AT < 4 

THE RABBIT IS POUNCING AT ANGLE. . . . 90 

RfiBBIT AT ( 4 , 6 ) 

«** CRUNCH *** WELL, R. I. P 



TRY AGAIN? NO. 



98 



• els ■ 



16 CLS. PRINT9408, "MAN-EATING RABBIT" 

28 PRINT PRINT TABC7) "COPVRIQHT 1979 CREATIVE COMPUTING MORRISTOWN, NX 

30 PRINT8960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; It 

46 IF LEFT«I*,1)="N" THEN CLS. GOTO 138 

58 CLS: PRINT TBB(25) "HAN-EATING RABBIT"- PRINT 

63 PRINT "VOU ARE IN A PIT NITH A MAN-EATING RABBIT. " 

78 PRINT "THE CENTER IS <8, 8) AND IT HAS A RADIUS OF 10. " 

88 PRINT "IF VOU CAN AVOID THE RABBIT FOR 18 MOVES VOU WILL BE" 

98 PRINT "RELEASED. VOU AND THE RABBIT CAN MOVE ONLV 1 SPACE EACH. " 

10B PRINT "HOWEVER, THE RABBIT CAN DO MULTIPLE JUMPS. ": PRINT 

116 PRINT "VOU CAN TRAVEL AT THESE ANGLES:" 

128 PRINT "8, 45, 98, 135, 188, 225, 278, 315, 360" 

130 X=INT(21*RND<8)-18) 

140 V=INT(21*RND<8)-10) 

158 D=SQR<ABS«X-X1)[2-KV-V1)£2)) 

160 IF D>18 THEN 138 

170 PRINT 

180 PRINT 

190 PRINT "WHERE WOULD VOU LIKE TO BE DROPPED") 

260 INPUT XI, VI. CLS 

210 IF SQR<ABS<X1[2+V1[2))>16 THEN 190 

220 IF XOX1 THEN 268 

238 IF VOV1 THEN 260 

240 PRINT "*****SQUISH*****" 

256 PRINT "THE RABBIT IS DEAD' VOU ARE SET FREE!": GOTO 838 

260 FOR G=l TO 10 

270 D=SQR<ABS<<X-X1)C2+<V-V1)C2)) 

280 PRINT "RABBIT AT <";X; ", ";V; "> "; 

290 IF D=0 THEN 820 

308 PRINT"HUMAN AT <"; XI; ", "; VI; ") DISTANCE"; D 

310 PRINT "AT WHAT ANGLE WILL VOU RUN "; 

326 INPUT A: CLS: PRINT "TURN »"; G 

330 IF B/450INKA/45) THEN 310 

340 PRINT "RUNNING . . . "; Pl=l 

350 M=1:IF ABS<<INT<A/10)*10)-A)O5 THEN 370 

360 M=SQR<2> 

376 X2=<M*C0S<A*<3. 14159/180))) 

386 V2=(M*SIN<A*<3. 14159/186))) 

396 IF SQR<«X1+X2)[2+<V1+V2)[2)X=10 THEN 420 

400 PRINT "VOU CAN'T GO INTO A WALL! 1 " 

418 GOTO 310 

420 X1=INT(X1*1000)/1000+X2 

430 V1=INT<V1*1000)/1080+V2 



448 X1=INT«1+ 5) 
n 458 V1=INT<V1+. 5) 

46B PRINT "HUMAN, VOU ARE NOW AT <";X1; ", "; VI; ")" 

478 IF XOX1 THEN 510 

480 IF VOV1 THEN 516 

490 PRINT "VOU RAN RIGHT INTO THE RABBIT! 1 " 

580 GOTO 820 

510 PRINT "THE RABBIT IS POUNCING AT ANGLE. ... "; :P1=P1+1 

526 X2=X1-X: V2=V1-V 

530 IF X2=8 THEN 718 

540 IF V2=0 THEN 740 

550 B=INT<ATN(ABS<<V2/X2)))/<3. 14159/188)) 

560 ON SGN<X2)+2 GOTO 580, 60, 570 

570 ON SGN<V2)+2 GOTO 610,60,620 

588 ON SGN(V2)+2 GOTO 606, 60, 590 

590 B=180-B: GOTO 620 

608 B=B+186: GOTO 570 

610 B=368-B 

626 B=INT<B/45+ 5)*45: PRINT B 

630 M=l 

646 IF ABS((INT<B/10)*10)-B)O5 THEN 660 

656 M=l 5 

660 X2=(M*C0S(B*<3. 14159/180))) 

676 V2=(M*SIN<B*<3. 14159/180))) 

680 X=INT(X+X2+. 5) 

690 V=INT<V+V2+. 5) 

78Q GOTO 776 

716 IF V2<6 THEN 736 

720 6=90: GOTO 620 

739 B=270: GOTO 620 

740 IF X2<0 THEN 768 
750 B=l. GOTO 628 
760 B=186: GOTO 620 

770 IF SaR«X-Xl)C2+<V-Vl)[2)=0 THEN 818 
786 P=INT<P1*RND(0)+1) 
798 IF POi THEN 810 
880 GOTO 510 

810 NEXT G: PRINT PRINT "VOU ARE RELEASED!"- PRINT GOTO 830 
826 PRINT: PRINT "*** CRUNCH *** WELL, R. I. P "• PRINT 
830 INPUT "TRV AGAIN"; RNS* 
840 IF LEFT$<ANS$, 1>="V" THEN 138 
850 END 
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In this game you are maneuvering in 
a corner of s )ace shaped, interestingly 
enough, like a cube. The dimensions of 
the cube are ten parsecs on a side. The 
bases are at the corners as shown on 
the diagram with the sample run. There 
are four star jases located at corners of 
the cube wh ch you must visit in order, 
A, B, C, and D, to deliver a message to 
them. While it is a fairly simple matter to 
get to Ba:e A, the other bases 
sometimes 3rove somewhat elusive. 
One possib lity would be to use a 
second computer to compute your 
course, or even compute the course 
before you start the game and then 
feed it in. Would this be cheating? I 
don't think so because the learning 
value in writ ng a program to compute 
your course will teach you more about 
the game th; n probably fifty plays of it. 
On the othei hand, which is more fun? 
That's for you to find out. 

This progi am was written by John C. 
Russ. 



MANEUVERS 
COPYRIGHT 1979 C EATIYE COMPUTING HORRISTOHN, NJ 



00 VOU NEED INSTRUCTIONS ' YES- 



VOU ARE THE PILOT OF THE ENTERPRISE'S SPACE SHUTTLE. 
VOU HUST DELIVER A HESSfl E TO EACH OF FOLK STARBASES, 
IN THE LERST TOTAL TIKE VOUR INITIAL POSITION IS AT 
ONE CORNER OF A CUBE, TE I PARSECS ON A SIDE THE BASES 
ARE AT THE CORNERS SHOW) BELOW, HARKED A, B, C, AND D IN 
THE ORDER IN WHICH VOU H ST VISIT THEM. 

PRESS ANV KEY TO CONTINUE 

els 



START HERE 



PRES! ANV KEV TO CONTINUE 
els 



FOR VOUR SUBSPACE F 
HUST PASS WITHIN 01; 
PROPULSION SYSTEM 1 
ACCELERATION OF 8.;: 
VOU CAN ONLV CONTRC 
DIRECT VOUR THRUST 
SHIP'S ATTITUDE BV 
IN THE X-Y PLANE ST 
PSI <THE ANGLE OF 1 
VOU INPUT NEW ANGLE 



HDIO TO DaiVER THE MESSAGE, YOU 
E PARSEC OF EACH STARBASE VOUR 
S flLHHYS ON. GIVING VOU A CONSTANT 
PARSECS PER STARDATE PER STARDATE 
;. THE ORIENTATION OF VOUR SHIP, TO 
fiND ACCELERATION. YOU SPECIFY YOUR 
THE ANGLE THETfi (THE CLOCKWISE ANGLE 
iRTING AT THE X-AXIS) AND THE ANGLE 
ICLINATION ABOVE THE X-V PLANE). 
5 EACH STARDATE 
>RESS ANY KEV TO CONTINUE 
ols 



aAPSED POSITION COORDINATES. ORIENTATION 
TINE X V 2 THETR. PSI 




aAPSED POSITION COORDINATES: 
TIE X V Z 



ORIENTATION 
THETfi, PSI 



11 


8.988 


0.888 


8.888 


'188,8 


12 


9.488 


3.888 


8.888 




MESSRS 


EDaiVERED 


TO BASE » 1 




AT TIME 12 






? 188,8 


13 


9.788 


0.888 


8.888 


? 188,8 


14 


9.888 


0.888 


8.888 


' 98,98 


15 


9.888 


a 888 


6.188 


■> 98,98 


16 


9.888 


0.888 


8.488 


i 98 


r> 










n 


9.888 


0.888 


8.988 


' 98,45 


IB 


9.888 


0.871 


1571 


°9e,e 


19 


9.886 


0.312 


2 312 


'98,6 


26 


9.888 


1. 754 


3.654 


■> 98,278. 



18 as 

28 PRINT 8 411 "Hf 
38 PRINT 

48 PRINT TAB<7)"CC 
58 PRINT 8 968,"; 
68 IHPUT"D0 VOU 
78 IF LEFT$(X$, 11 
88CLS 

98 PRINT 6 27, "HR> 
188 PRINT 
118 PRINT-VOU ARE 
126 PRINT'VOU MUSI 
128 PRINT-IN THE I. 
148 PRINT-ONE CORIi 
158 PRINT-ARE AT " 
168 PRINT-THE 0RDE 
178 60SUB 1158 
188 FOR fi=24 TO 82 
198 SETCA+24, 6) 
286 SEKA, 18) 
218 SEKA+24, 38) 
228 5ETO 42) 



NEUVERS" 

YRIGHT 1379 CREATIVE COHPUTIHG H0RRIST0NN, NJ" 

ED INSTRUCTIONS"; X$ 
="N" THEN 538 

;uvers - 

t€ pilot of the enterprise's spfice shuttle. " 
daiver a message to each of four starbases, ■ 
.east total time your initial position is at" 
er of a cube, teh parsecs on a side the bases- 
he cows shown baoh, harked a, b, c, and d in" 
5 in which you must visit them. - 
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238 NEXT R 

248 FOR 0=6 TO 38 

259 SEK24, A+12) 

268 SEK48, fl) 

270 SET(82, fl+12) 

288 SET<186, fl) 

238 NEXT fl 

388 FOR (H TO 12 

318 SET(24+A*2, 18-R) 

328 SET(82+A*2, 18-H) 

338 SET<24+fi*2, 42-fl) 

348 SET(82+A*2, 42-fl) 

358 NEXT fl 

368 PRINT 8 988, "A"; 

378 PRINT 8 425, "B'i 

386 PRINT 8 152, 'C; 

398 PRINT 8 181, "0'; 

488 PRINT 8 664,"*" CHR$(26)CHI»(8)"C" CHR$(26)CHR$(8)"START HERE 1 ; 

418 GOSUB 1158 

428 PRINT-FOR VOUR SUBSPflCE RflDIO TO DaiVER THE MESSAGE, VOU' 

438 PRINT-BUST PflSS WITHIN ONE PflRSEC OF EACH STARBASE VOUR' 

448 PRINT-PROPULSION SYSTEH IS flLHRVS ON, GIVING VOU fl CONSTANT 

458 PRINPACCELERRTION OF 8. 2 PRRSECS PER STARDflTE PER STARDflTE " 

468 PRINPYOU CAN ONLV CONTROL THE ORIENTATION OF VOUR SHIP, TO" 

478 PRINPDIRECT VOUR THRUST AND ACCELERATION. YOU SPECIFY VOUR" 

488 PRINT'SHIP'S flniTUOE BY THE ANGLE THETfl (THE CLOCKWISE ANGLE" 

498 PRINT" IN THE X-Y PLflNE STARTING AT THE X-AXIS) AND THE ANGLE" 

588 PRINT'PSI (THE ANGLE Of INCLINATION ABOVE THE X-Y PLflNE). " 

518 PRINT'VOU INPUT NEH ANGLES EHCH STARDflTE " 

528 GOSUB 1158 

538 OS 

540 PRINT 8 132, "; 

558 CLEAR 

568 P=3. 14159/188 

570 J=l 

588 DIN T(4, 3), C(3) 

598 FOR X=l TO 4 

688 FOR Y=l TO 3 

618 REM) UX, Y) 

620 NEXT V 

638 NEXT X 

648 DATA 18, 0, 8, 18, 18, 18, 8, 0, 18, 8, 18, 18 

658 fl=. 2 

668 Bl=lE-03 

670 82=lE-03 

680 GOSUB 708 

698 GOTO 880 

788 P1=?EEK(16416) 



718 P2=PEEK(16417) 

720 PRINT 8 8, "ELAPSED POSITION COORDINATES:"; 

730 PRINT TflB(38)i "ORIENTATION" 

748 PRINT" TINE X Y Z"; 

758 PRINT TflB(39);"THETA,PSr l 

768 PRINT"— — — 

770 POKE 16416, PI 

780 POKE 16417, P2 

798 RETURN 

888 PRINT USING" t## «.#»» t#.»# #».»« 

816 C(l)=X+K«VltA,'2*K*K*C0S(B2*P)»C(K(Bl*P) 

820FORK=6TO1 STEP. 2 

838 C(2)=Y+K*V2+ft/2*K*K*C0S(B2*P)*SIH(Bi*P> 

840 C(3>=Z*K*Y3+A/2tK«*SIN(B2*P) 

858 0=6 

868 FOR L=i TO 3 

878 D=D+(T(J, L)-C(L))*(T(J, L)-C(D) 

888 NEXT L 

898 IF SQR(D)>1 THEN 966 

988 PRINT 

910 PRINT'MESSflGE D&IYERED TO BASE »";J 

928 PRINT'flT TIME"; T0+K; TA8(38); 

938 IF JN4 THEN 1188 

948 J=J+1 

958 GOTO 978 

968 NEXT K 

978 X=X1 

988 Y=Y1 

998 Z=Z1 

1888 T8=T8+1 

1010 INPUT Kb B2 

1020 Xl=X+Vl+rV2*C0S(B2*P)*C0S(Bl*P) 

1838 Yl=Y+V2+fl/2*C0S(e2tf)*SIN(Bi*P) 

1048 Zl=2+V3+fV2*SIN(B2*P) 

1950 Vl=Vl+fl*C0S<B2*P)C0S(Bi*P) 

I860 V2=V2+fi*C0S(B2*P)*SIN(Bl*P) 

1070 V3=Y3WtSIN(B2*P) 

1688 GOSUB 708 

1898 GOTO 888 

1108 PRINT-GOOD J8B. DO YOU HANT TO" 

1116 PRINT'TRY TO IMPROVE VOUR TINE"; 

1128 INPUT X* 

1138 IF LEFTKXt, 1)="V" THEN 520 

1148 END 

1158 PRINT 8 979, -PRESS ANY KEY TO CONTINUE"; 

1168 IF INKEY* ="" THEN 1166 

1176 PRINT 8 128, CHR$(31); 

1186 RETURN 



M6, XL YL Zli 
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This is a fasct, 
purpose, deductive Ic 
Bagels, Mastermind, i 
cetera, into one g< 
logic game. If you wa 
set the inputs to N,3,S 
of games you wish to 
to play mastermind, 
N,4,6. Of course, me 
that it plays are entire 
such as N,7,4 or N,5, 

To make it into i 
purpose game, you m 
a modification in th 
routine (statements 



lating, general- 
gic game. It rolls 
)ulls and cows.et 
meral deductive 
ntto play Bagels, 
(N is the number 
Dlay). If you want 
set the inputs to 
ny of the games 
y new altogether 
5. 

. really general- 
ghtwanttoputin 
3 digit selection 
310-330) with a 



parameter that either allows or dis- 
allows duplicate digits. As it is right 
now, the game does allow duplicate 
digits so that, for example, it could 
select a three digit number such as 223 
or even 444. Another change you might 
want to add is in statement 770; it sets 
the maximum allowable trials for 
getting the answer. You may find that it 
is not giving you enough tries and you 
might want to increase the value of I. 
Master Bagels was created by H.R. 
Hamilton and originally appeared in 
Creative Computing, Jan/Feb 1977. 



1ASTER BAGELS 
COPVRIGHT 1979 CRE WIVE COMPUTING M0RRIST0WN, NJ 



DO VOU NEED INSTRUCTIONS? i£S_ 



6 TRIES, 6 AVERAGE FOR 2 
RUN AGAIN? VES 
HOW MANY #'S !i-100>, if DIGITS <2-6), AND MAX VALUE <2-9>? 1, 4, 6 



■ els ■ 



■ ols ■ 



HI, THIS IS A LOGIC GAME 
FBILITY. I HILL CHOOSE fl 
NHEN PROMPTED, ENTER fl VAl 
HITH THE # OF DIGITS THAT 
AND THE # RIGHT BUT IN THE 
ARE HOPELESSLV LOST, I Nil 
HILL GO ON TO THE NEXT NUf 
ENTER A 0, TO SUIT ON A Nl 



MASTER BAGELS 

DESIGNED TO TEST VOUR DEDUCTIVE 
RANDOM NUMBER AND VOU ISOLATE IT. 
ID NUMBER, AND I WILL THEN RESPOND 
ARE RIGHT AND IN THE RIGHT POSITION 

WRONG POSITION. IF I THINK VOU 
L TELL VOU THE ANSWER AND HE 
BER. TO RECAP VOUR ENTRIES 
MBER ENTER 1, AND TO STOP ENTER 2. 



GUESS? 1122 
GUESS? 1234 
GUESS? 3456 
GUESS? 1265 
GUESS? 2134 
GUESS? 8. 



HOW MANV #'S 


(1-108), 


# DI3ITS 


<2-6) 

els - 

, 


, AND MAX VALUE <2-9) 


GUESS? 12 






1 


GUESS? 31 






9 , 


1 


GUESS? 24 






1 , 


8 


GUESS? 41 






, 





GUESS? 56 










BAD NUMBER IN 56. 








GUESS? 12 






, 


1 


GUESS? 32 






, 


2 


GUESS? 22 






1 , 
els - 





6 TRIES, 6 


AVERAGE FOR 1 






GUESS? 32 






- 





GUESS? 23 






, 


8 


GUESS? 22 






8 





GUESS? 13 






1 





GUESS? 14 






^ , 





GUESS? 31 






1 





GUESS? 23 













■ Cl3 ■ 



0,1 = 1234 
2,0= 1265 
GUESS? 1. 



= 1122 
3 = 3456 

1 = 2134 



ANSWER IS 62«2. 
10 TRIES, 10 AVERAGE FOR 1 



RUN AGAIN? NO- 



- ols 
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10 CLS: PRINTS410, "MASTER BAGELS" 

20 PRINT: PRINT TAB(7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINTC960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 

40 DIM F(9),M(9),T(9),H(18,3) 

50 IF LEFT$(I*,1)="N" THEN CLS: GOTO 150 

60 CLS: PRINTI526, "MASTER BAGELS": PRINT 

70 PRINT " HI, THIS IS A LOGIC GAME DESIGNED TO TEST VOUR DEDUCTIVE" 

86 PRINT "ABILITY. I WILL CHOOSE A RANDOM NUMBER AND VOU ISOLATE IT. " 

90 PRINT "WHEN PROMPTED, ENTER A VALID NUMBER, AND I WILL THEN RESPOND" 

100 PRINT "WITH THE # OF DIGITS THAT ARE RIGHT AND IN THE RIGHT POSITION 

110 PRINT "AND THE S RIGHT BUT IN THE WRONG POSITION. IF I THINK VOU" 

120 PRINT "ARE HOPELESSLV LOST, I WILL TELL VOU THE ANSWER AND WE" 

130 PRINT "WILL GO ON TO THE NEXT NUMBER. TO RECAP VOUR ENTRIES" 

140 PRINT "ENTER A 0, TO QUIT ON A NUMBER ENTER 1, AND TO STOP ENTER 2. " 

150 S=0 

169 PRINT 

170 PRINT "HOW MANV #'S (1-100), # DIGITS (2-6), AND MAX VALUE (2-9)"; 
188 INPUT J,A,B 

190 IF fi<=0 THEN 230 

200 IF A>6 THEN 230 

a0 IF B<2 THEN 230 

220 IF B<10 THEN 250 

230 PRINT "ILLEGAL RANGE, RE-ENTER RUN PARAMETERS. " 

240 GOTO 180 

250 CLS: IF J<100 THEN 270 

260 J=10O 

270 FOR X=0 TO J+A+B 

280 I=RND(0) 

290 NEXT X 

300 FOR N=l TO J 

310 FOR X=0 TO A 

320 T(X)=INT(RND(0)*B+1) 

338 NEXT X 

340 FOR 1=1 TO A+B+l 

350 FOR X=l TO A 

360 F(X)=0 

370 NEXT X 

388 F1=0 

390 F2=0 

488 PO=PEEK(16416)+PEEK(16417)*256-15360: IF PO>=960 THEN CLS 

410 INPUT "GUESS"; V 

420 IF VO0 THEN 470 

430 CLS: PO=0: FOR X=l TO 1-1 

448 PRINTSPO+32, H(X,1>", "H(X,2)"="H(X,3) 

450 P0=P0+32: NEXT X 

463 GOTO 410 

470 IF V=l THEN 770 

480 IF V=2 THEN 930 

4S0 T1=V 

580 FOR X=l TO A 

510 M(X)=INT(T1A10C(H-X))) 

520 Tl=Tl-M(X)*(10[(A-X))+((SGN(A-(X+i))-l)*- 5) 

530 IF M(X)<1 THEN 550 

540 IF M(XXB+1 THEN 570 

550 PRINT "BAD NUMBER IN"V; CHR*(8); " " 

560 GOTO 350 

570 IF M(X)OT(X) THEN 600 

560 F(X)=1 

590 F1=F1+1 

688 NEXT X 

618 IF F1=A THEN 830 

620 FOR V=l TO A 

630 IF T(V)=M(V) THEN 718 

640 FOR X=l TO A 

658 IF M(V)OT(X) THEN 780 

660 IF F(X)=1 THEN 700 

670 F(X)=1 

680 F2=F2+1 

690 GOTO 710 

700 NEXT X 

710 NEXT V 

720 PRINTUPO+32, Fl", "F2 

730 H(I,1)=F1 

740 H<I,2)=F2 

758 H(I,3)=V 

760 NEXT I 

770 I=A-1+B+1 

780 V=0 

798 FOR X=l TO A 

800 V=V+T(X)*(10UA-X)) 

818 NEXT X 

820 FOR TI=1 TO 1000: NEXT. CLS: PRINT "ANSWER IS"V; CHR$(8); ", " 

838 S=S+I 

840 PRINT I; "TRIES, "; S/Hi "AVERAGE FOR"; N 

850 V=INT(RND(R)*I> 

860 V=INT(H(V,2V1024+4*RND(0)) 

870 FOR X=l TO V+l 

880 I=RND(0) 

890 NEXT X 

998 NEXT N 

910 PRINT: INPUT "RUN AGAIN"; S* 

920 IF LEFWS*, 1)="V" THEN 150 1 n i 

930 END ' U ^ 



The original invent 
amateur mathematici 
displayed it at the 1 91 
game were bought b' 
with the game for 2V. 
1975 when it was the 
surpassed even the o 

In its most basic fo 
game board, a dozen < 
six basic colors, and t\ 
(sometimes called " 
resembles the figure 



key-peg slots 



on of Mastermind is credited to an 
an, Mordechai Meirovich, who first 
1 Nurenburg Toy Fair,* Rights to the 
■ Invicta who had moderate success 
years until the Christmas season of 
most popular packaged game. Sales 
d standby. Monopoly, 
m, Mastermind consists of a plastic 
>r so pegs which can be grouped into 
\/o groups of black and white key pegs 
nference pegs".) The game board 
oelow. 



\ 


t 




X * 


o o o o 


X X 

X * 


oooo 


X x 
X x 


oooo 


X X 
X * 


o C) o o 


» > 
> > 

> 


X * 


oooo 

) 



. hidden code 



^active player's guesses 
(total of 10 frames) 



The game is playi 
designate as the "act 
The first step before p 
passive piayer (in our 
fdur colored pegs at r 
groups (duplicate cc 
conceals these colors 
four pegs in the "hidd 
is now up to the activi 
less, the exact color ; 
comprising the hidde 

To aid the active pi 
the passive player mu 
key pegs (inference p< 
following scheme: ft 
current guess which c 



id by two people, whom we shall 
ve" player and the "passive" player, 
ay actually commences is to have the 
case, the computer) choose a total of 
indom from any of the six basic color 
lors allowed, of course.) He then 
from the active player by placing the 
sn code"portion of the game board. It 
i player to determine, in ten moves or 
nd location of each of the four pegs 
i code. 

jyer in determining the hidden code, 
st award the active player a number of 
gs) after each guess, according to the 
ir each peg in the active player's 
orresponds exactly (in color and posi- 



*Ed. Note- 
To anyone familiar with c lildren's games, it is obvious that Mastermind is 
simply a commercial adapt ition (using colors rather than numbers) of the 
game Bulls and Cows. This game, much more popular in England than the 
U.S. is not. to my knowledgi , commercially packaged — DHA. 



tion) to a peg in the hidden code, the passive person places 
one black peg in the key-peg square adjacent to the passive 
player's current guess frame. Placing of the key pegs within 
the sque re is arbitrary since the relative position of the key 
peg carries no meaning. Clearly, when four black pegs are 
obtained, the hidden code is broken. 

Secondly, the passive player must place one white key 
peg in tha current key-peg square for each peg in the active 
player's current guess which matches (in color, but not 
position) a peg in the hidden code. Keep in mind that once a 
color peg in the player's current guess has been awarded a 
key peg, its function in determining the remaining number 
of key pegs to award for the current guess is finished. For 
example, suppose the hidden code were: 

R B Y G 

corresponding to red, blue, yellow, green, and the active 
player's current guess were: 

G B B P 

corresponding to green, blue, blue and purple. 

The passive player should subsequently award one black 
and one white key peg for the following reasons: the blue 
color peg in position 2 of the current guess matches exactly 
in color and position with the hidden code. Secondly, the 
green color peg in position 1 of the current guess matches 
the color of the peg in position 4 of the hidden code. But 
since the location of the green peg is not exact, only a white 
peg is awarded. The blue and purple pegs in positions 3 and 
4, respectively, of the current guess do not match either the 
color or position of the remaining pegs in the hidden code 
(positions 1 and 3) and hence, no other key pegs are 
awarded. 

"I ne game proceeds in this manner until the hidden code is 
broken or all ten frames have been filled. As noted earlier, 
the computer will play the passive player in our computer 
version, generating a hidden code and awarding the black 
and white key pegs after each guess. 

The program offers the user two options, QUIT and 
BOARD, which may be entered at any time after the first 
move. QUIT instructs the program that you are fed up with 
playing Mastermind for the time being and wish to 
terminate the session. BOARD instructs the program to 
print ou: a summary of the moves prior to the time that the 
BOARD command was issued, including the guesses and 
key pegs; awarded for each frame. Some players find that an 
arrange nent of frames such as that provided by BOARD is 
easier to visualize and subsequently analyze. Beginners 
will find it most useful. 

The program and this description were written by David 
G. Struble of the University of Dayton. It first appeared in 
Creative Computing, Mar/Apr 1976. 
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MASTERMIND 
COPYRIGHT 1979 CREATIVE CONFUTING MORRISTOHN, NJ 



HIT ENTER TO START? _ 


— els — 




THE GAME OF MASTERMIND 






COLOR CODES. 






R=R£D 


0=ORANGE 


Y=YELLQH 


G=6REEN 


B=BLUE 


P=PURPLE 


MOVE NUMBER i ^ RRGG 






8 BLACK PEGS 1 WHITE PEGS 




MOVE NUMBER 2 "> OOBB 






8 BLACK PEGS 8 RHITE PEGS 




MOVE NUMBER 3 ■> YYPP 






1 BLACK PEGS 2 WHITE PEGS 




MOVE NUMBER 4 "> YYPR 






1 BLACK PEGS 2 WHITE PEGS 




HOVE NUMBER 5 '' GYPP. 


— ols 





COLOR COOES. 




R=RED 0=ORANGE 


Y=YELLOH 


G=GREEH B=BLUE 


P=PURPLE 


HOVE NUMBER 2 "> YYPP 




1 BLACK PEGS 2 HHITE PEGS 




MOTE NUMBER 4 "> YYPR 




1 BLACK PEGS 2 HHITE PEGS 




HOVE NUMBER 5 " GYPP 




BLACK PEGS 2 HHITE PEGS 




MOVE NUMBER 6 '' PYYR 




8 BLACK PEGS 4 HHITE PEGS 




HOVE NUMBER 7 ■> YPRY 




YOU HIH! ! 




els 




MHNf TO PLAY AGAIN? NO. 





18 CLS. PRINT6412, "MASTERMIND" 

28 PRINT: PRINT TAB<7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHH, NJ" 

28 PR1NT0968, «"; INPUT "HIT ENTER TO START"; A$: CLS 

48 GOSUB 58: PRINTS228, GOTO 120 

59 LB=PEEK<16416) : HB=PEEK<16417> 

68 PRINT08, "THE GAME OF MASTERMIND" 

78 PRINT 

SB PRINT "COLOR CODES:" 

98 PRINT " R=R£D 0=0RANGE Y=YELLOH" 

108 PRINT " G=GREEN B=BLUE P=P0RPLE" 

110 P0KE16416.LB: P0KE16417, HB : RETURN 

128DIMB*tt8),Y(lB),Z<18) 

128 C(B)=4 

148 FOR N=l TO 4 

158 C(N)=INT(6*RHD(0)+1) 

168 NEXT N 

178 FOR N=i TO 4 

188 X«N) 

198 GOSUB 758 

288 CCH)=X 

218 NEXT N 

229 P*=" 



238 FOR Xi=i TO 4 

248 P*=PMHR«C<X1» 

258 ICXT XI 

268 FOR P=i TO 10 

270 REM 

288 PRINT "MOVE NUMBER"; P; 

290 IHPUT Gt: GOSUB 58 

288 IF G*= "BOARD" THEN 930 

318 IF G*=°GUIT" THEN CLS. G0T0428 

220 B»(P)=GJ 

238 GOSUB 588 

248 IF B=4 THEN 1828 

250 GOSUB 688 

268 PRINT B; "BLACK PEGS", 

278 V(P)=B 

288 PRINT H; "WHITE PEGS"' GOSUB 58 

398 Z(P>=H 

408 NEXT P- CLS 

418 PRINT "SORRY 1 , YOU LOSE. " 

428 PRINT "THE CORRECT CODE HAS. ";PJ 

420 PRINT:PRINT "NANT TO PLAY AGAIN"; 

448 INPUT At 

458 CLS 

468 IF LEFT$(At,l)="Y" THEN CLEAR: GOSUB 58: GOTO < 

478 PRINT 

488 END 

498 REM COMPUTE BLACK PEGS 

588 FOR Xi=l TO 4 

510 G<X1)=PSC<MID$<G$,X1,1» 

528 NEXT XI 

530 B=8 

548 FOR K=l TO 4 

558 IF G(K) O C<K) THEN 570 

568 B=B+i 

578 NEXT K 

588 RETURN 

590 REM COMPUTE WHITE PEGS 

608 FOR Xl=l TO 4 

610 RCX1)=ASC(MID«PJ,X1,1» 

628 NEXT XI 

638 H=8 

648 FOR 1=1 TO 4 

658 FOR J=i TO 4 

660 IF G(I) O RO> THEN 708 

670 «=H+i 

688 RCJ)=8 

690 GOTO 710 

788 NEXT J 

710 NEXT I 

728 H=H-B 

738 RETURN 

748 REM TRANSLATE COLOR CODES TO NUMERICS 

750 IF X O 1 THEN 788 

760X=89 

778 RETURN 

788 IF X O 2 THEN 818 

?98X=82 

888 RETURN 

810 IF X O 2 THEN 848 

828 X=80 

838 RETURN 

848 IF X O 4 THEN 878 

858X=79 

868 RETURN 

878 IF X O 5 THEN 908 

88BX=?1 

858 RETURN 

300 X=66 

910 RETURN 

928 REM PRINT BOARD SUMMARY 

93BV=P-1 

948 CLS. PRINT "GUESS". "BLfiCKS". "HHITES" 

958 PRINT " "." "■" " 

968 FOR 1=1 TO V 

978 PRINT B$(D," ";Y(D," ";Z(D 

980 NEXT I 

998 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

1080 IF IHKEY*=" THEN 1008 ELSE CLS: PRINT0340, 

1818 GOSUB 50: GOTO 278 

1028 PRINT "YOUHINI!" 

1838 GOTO 430 
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Ready tc i try something new?Agame 
that isn't like STARTREK or Slot 
Machine? Then try MATPUZLE and 
enjoy the irt of puzzle-making. 

One benefit of puzzles is that they 
help devel Dp a pattern of logic in one's 
thinking. 1 1 this puzzle you are given a 
matrix of letters, up to 6 x 6. and a 
board with dashes and a number above 
each of th 3 dashes. 

The malrix represents the letters of 
the words 'ou typed in, each having the 
same leng h. The number of wordsand 
the length of the words are both limited 
to six, si> words each six letters in 
length, but, both vaiues don't have to 
be the sarr e. The letters are then put in 
a matrix end randomly rearranged in 
lines 21 0-< 80. 

The dashes on the board form the 
places for each letter of each word to 
be writtei in after it has been 
deciphereil. The number above each 
dash, determined in lines 510-790, is 
the sum of the coordinates of where the 
letter of tnat dash is located in the 
matrix. The problem in solving the 
puzzle is t lat several coordinates have 
the same num. 

Since the answers appear above the 
puzzle itsnlf, rip them off before you 
give it to a friend to try. They will have a 
great time trying to figure out your 
puzzle. Th in let them make one foryou 
or set up u relay. The possibilities are 
almost endless. 

The program and description were 
written by Dave Schroeder. 



HATPUZZLE 
COPVRIGHt 1979 CREATIVE CONFUTING HORRISTOHH, HJ 

DO VOU HEED INSTRUCTIONS? VES. 



HATPUZZLE 

THIS IS fl PUZZLE-MRK1NG GAME. 
VOU INPUT UP TO SIX WORDS, UP TO SIX 
LETTERS EfiCH, RiD EQUAL IN LENGTH. 
THE COMPUTER HI J. SCRAMBLE THEH (WD 
PRINT THEM IN R MATRIX. THE COMPUTER 
HILL ALSO PRINT ft COFJSSPONDING NUMBER 
EORRD. WHEN IT STOPS TERR IT RND GIVE IT 
TO ft FRIEND. 

HON HANV NORDS 50 VOU HRNT (UP TO 6)? 6 

HOH HfiNV LETTER:; IN ERCH IBRD (MUST BE SRME, 6 LETTERS BOX)? 6_ 



TVPE ONE 6 LETTER KORD ON EACH LINE 

'PARITV 

' DUPLEX 

"> MATRIX 

i NUMBER 

" LENGTH 

•> BOTHER. 



18 5 3 5 9 7 

4 2 10 6 8 7 

6 12 5 4 5 7 

8 6 8 7 9 7 

8 6 8 11 3 9 

11 4 9 6 18 7 



■ els • 



123456 
1URR I HX 
2HDAHXL 
30TERNT 
4 I LRETP 
5UBNEE ft 
6VHTPGA 



THE NUMBER AHftE EACH DASH IS THE SUN OF T«0 COORDINATES OF 
THE POINT ON TIE MATRIX WHERE THE CORRECT LETTER FOR THAT 
SPOT HILL RPPEfR. TIE PROBLEM IS THAT THE SUM OF SOME 



10 5 3 5 9 7 

4 2 18 6 3 7 

6 12 5 4 5 7 

8 6 8 7 9 7 



• els ■ 



123456 
1 U R R I H X 
2H D A M XL 
30TERNT 
4 I LRETP 
5UBNEEH 
6VMTPGA 



8 6 8 11 3 9 

11 4 9 6 18 7 

SPOT HILL RPPEFR. THE PROBLEM IS THAT THE SUM OF SOME 
COORDINATES ARE THE SAME SO SEVERAL LETTERS COULD FIT. SO 
TRV NOH TO FIND WHAT HORDS HERE USED RND SOLVE THE PUZZLE. 
(PRESS RNV KEV TO END PROGRAM) 

DO VOU HANT ANOTHER RUN? NO 

READV 

). 

Cl3 
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19 CLEAR 1689: OS: PR1NTIM12, "HATPU2ZLE* 

29 PRINT: PRINT TRB(?) "COPVRIGHT 1379 CREATIVE COKPUTING NORRISTONN, NJ" 

19 PRINT6968, ■■; INPUT "DC VOU NEED INSTRUCTIONS'; 1$ 

46 DIH fi*(6),B«6,6),C(6,6),CJ<6,6),D$(6) 

59 IF LEFT*(I*,1)=»N" THEN OS: GOTO 168 

68 OS: PRINT TAB<28);"lttTPUZaE"' PRINT 

78 PRINT "THIS IS R PUZZLE-MAKING GAME. " 

88 PRINT "VOU INPUT UP TO SIX HORDS, UP TO SIX" 

98 PRINT "UTTERS EACH, AND EQURL IN LENGTH " 

199 PRINT "THE COMPUTER WILL SCRAMBLE THEN HMD" 

119 PRINT "PRINT THEN IN A MATRIX. THE COHPUTER " 

126 PRINT "HILL ALSO PRINT A CORRESPONDING NUMBER" 

138 PRINT "BOARD. NKEN IT STOPS TEAR IT AND GIVE IT" 

148 PRINT "TO A FRIEND. " 

158 PRINT 

169 PRINT "HOH MANV HORDS DO VOU HANT (UP TO 6)"; 

178 INPUT H 

188 PRINT 'TO HANV LETTERS IN EACH NORD (MUST BE SUE 6 LETTERS HBO": 

1S8 INPUT L 

288 CLS. PRINT "TVPE ONE"; U "LETTER HORD ON EACH LINE" 

218 FOR X=l TO H 

228 INPUT f»(X) 

238 NEXT X 

248 FOR X=l TO H 

258 FOR V=i TO L 

268 «(X,V)=MID*(A$(X),V,1): BKX, V)=MIW(ft*(X), V, 1) 

278 NEXT V 

288 NEXT X 

296 PRINT 

388 FOR 2=1 TO 68 

318 F=IHT(RHD(8)*H+1) 

328 D=1NT(R»(8)*N+1) 

338 G=INT(RND(8)*L+1) 

348 E=fflKRND(8)*L+l) 

358 J*=B*(F, G) 

368 B*(F,G)=B*(D,E) 

378 B*(D,E)=J* 

388ICXTZ 

398 CLS: PRINT TAB(42); 

488 FOR Zl=i TO L 

416 PRINT ZiiCHRKS); 

428 NEXT Zl 

438 PRINT 

448 FOR Z2=l TO H 

458 PRINT TA8(46);Z2; 

4C6 FOR 23=1 TO L 

478 PRINT 8*(Z2, 23);" ■: 

488 NEXT 23 

499 PRINT 

566 NEXT 22 



518 FOR P=l TO L 

526 FOR 6=1 TO H 

538 T=8 

548 FOR R=4 TO H 

558 FOR S=l TO L 

568 IF T=l THEN 616 

576 IF B*(R,S)0«(G,P)THEN 618 

589C(0,P)=R+S 

598 T=i 

696 B$(R,S)=" ■ 

618 NEXT S 

628 NEXT R 

638NEXTQ 

648 NEXT P 

656 PRINT 88, "; : FOR X=l TO H 

668 PRINT TABG) 

676 FOR H=i TO L 

688 IF C(X,M»9 THEN 718 

639 PRINT C(X,H>;" "; 

788 GOTO 728 

718 PRINT C(X,M); 

728 NEXT H 

738 PRINT CHRK26);CKR*(29>; 

748 PRINT TA8<3); 

758 FOR Ml=l TO L 

768 PRINT"— ■; 

778 NEXT HI 

786 PRINT CKR*(26);CHR*(29); 

7S8NEXTX 

888 'PRINT8979, "PRESS ANV KEV TO CONTINUE"; 
816 'IF IHKEV*=" THEN 818 ELSE CLS 

828 D*(1)="THE NUMBER ABOVE EACH DASH IS THE SUA OF BIO COORDINATES OF ' 

839 D$(2)= "THE POINT ON THE MATRIX HHERE THE CORRECT LETTER FOR THAT " 

848 «(3>= "SPOT HILL APPEAR. THE PROBLEM IS THAT THE SUN OF SOKE " 

858 D»(4>= "COORDINATES ARE THE SAKE SO SEVERAL LETTERS COULD FIT SO ' 

868 M(5)= "TRV NOH TO FIND HHAT HORDS HERE USED AND SOLVE THE PUZZLE • 

878 JJ=8 

888 FOR 11=1 TO 3 

838 PRINT § 784 + (11*64), STRING$(63,° "); 

366 PRINT 8 784 + (11*64), WUJ+H) 

918 NEXT II 

926 JJ=JJ+i 

938 FOR 11=1 TO 2883: NEXT II 

948 IF JJ03 THEN 888 

958 PRINT " (PRESS ANV KEV TO END PROGRAM)*; 

968 AI$=INK£Vt:IF fl»=" 1HEN 968 

978 CLS:PRINT: PRINT "DO VOU HANT ANOTHER RUN"; 

988 INPUT V9* 

336 IF LEFT*(V9*,1)="V" THEN CLS: GOTO 168 

1868 END 
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HAZE 

COPYRIGHT 1979 CREATIVE CONFUTING MORRISTOIW, NJ 

— els 



DC VOU HEED INSTRUCTIONS? VES. 



■ els • 



THIS PROGRAM HILL SIMULATE R HERR-SIGHTED HOUSE IN 
A HAZE VOU SELECT THE DIFFICULT/ FACTOR - SIZE! 
Tl£ DIMENSIONS MUST FALL IN THE RANGE HORIZ: (5-28) 
VERT: (>6). DIMENSIONS LESS THAN 5 ARE TOO TRIVIAL 
EACH MAZE IS DIFFERENT, RND HAS ONLV ONE WAV THROUGH IT. 

MT ARE TOUR DIHENSIONS (HORIZONTAL, VERTICAL)? 20, 6_ 
els 



This isactu 
the first part, 
a maze throuj 
find your way 

In thesecoi 
near-sighted 
the maze and 
his way throui 
what near-sij 
program and 
step by step 
through the rr 
see each ste 
total solution 

With or wit 
fun program a 
frequently a re 

Maze is ai 
utilizes TRS-J 
be too conf us 



ally a two part game. In 
the program generates 
h which you can try to 

id part of the program a 
nouse is let loose in 
explores until he finds 
|h. If you want to know 
ihted means, run the 
ask to see the solution 
as the mouse goes 
aze. If you elect not to 
), you'll simply get a 
for the maze itself, 
hout the mouse, it's a 
nd the larger mazes are 
al challenge to solve. 

lother program which 
graphics, so do not 
3d by the sample run. 



DO YOU KANT THE SOLUTION 



■ els ■ 



DO VOU IflNT TO SEE EACH STEP 



— els ■ 



s« . ttttt. Httt. 

H H.H tt.tt 

tttttttt. ttttt. . tt. tttttttt. tittt. tt. 

tt. tt. tt H it. M. ... if 

. ttttt. ttfttf t««»t. . ttttt. ttttt. ttttt. 

H....it.ll.... 

. tt. ttttt. ttttt. 



. ttttt. ttttfttt. 
tt 



DO VOU HRHT ANOTHER MAZE? . 
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was 

20 CLEBR 1808 

39 PRINT 6 414, "HAZE" 

46 PRINT 

58 PRINT TftB(?)"COPVRIGHT 1379 CREATIVE COMPUTING HORRISTOIW, NJ" 

68 PRINT 8 969,"': 

78 INPUT'DO VOU NEED INSTRUCTIONS"; It 

88 REM HOUSE IN MAZE - SOLUTION SECTION BY RICHARD SCHAAL FICC 

98 REM ORIGINAL HAZE PROGRAM FROM "181 BASIC COMPUTER GAHES" 

188 IF LEFTKK, 1)="Y" THEN CIS: GOTO 268 

118 OS 

129 GOTO 198 

138 PRINT 

148 PRINT "THIS PROGRAM HILL SIMULATE NEAR-SIGHTED BOUSE IN" 

158 PRINT "A MAZE. VOU SELECT THE DIFFICULTY FACTOR - SIZE!" 

168 PRINT "THE DIMENSIONS MUST FALL IN THE RANGE HORIZ: (5-28)" 

178 PRINT "VERT: (3-6). DIHENSIONS LESS THAN 5 ARE TOO TRIVIAL. " 

188 PRINT "EACH NAZE IS DIFFERENT, AND HAS ONLY ONE HAY THROUGH IT. " 

199 PRINT 

288 PRINT "WHAT ARE YOUR DIHENSIONS (HORIZONTAL, VERTICAL)"; 

218 aEHR 186: REM ERASE ALL ARRAYS AND VARIABLE VALUES 

228 INPUT H, V 

226 PRINT CHR*C26) 

248 H=INTCABSCH» 

258 Y=INTCABSCV)> 

269 IF H>=5 AND H<=20 AND V>2 AND Y<=6 THEN 288 

278 GOTO 138 

288 DIH HCH, V), VCH, V) 

298 OS 

388 Q=8 
216 Z=0 

328 X=INT(RNDC0)*H+1) 

338 FOR 1=1 TO H 

348 IF I=X THEN 370 

358 PRINT STRIN6JC3, 191); 

268 GOTO 388 

278 PRINT CHR$C13D" "; 

389 NEXT I 

398 PRINT 0*1(191) 

488 C=l 

418 H(X, i)=C 

428 MM. 

438 R=X 

448 S=l 

458 GOTO 568 

468 IF ROH THEN 540 

470 IF SOV THEN 518 

486 R=i 

498 S=l 

588 GOTO 558 

516 R=i 

528 S=S+1 

536 GOTO 559 

540 R=R+i 

558 IF H(R, S>=0 THHI 468 

560 IF R=i THEN 92'8 

578 IF H(R-L S)>8 THEN 928 

588 IF S=l THEN 730 

598 IF HCR, S-DO0 THEN 739 

668 IF R=H THEN 648 

610 IF IKR+L S)>6 THEN 648 

628 X=INT(RND(0)*3+1) 

638 ON X GOTO 1238, 1368, 1438 

648 IF SOV THEN 688 

656 IF Z=l THEN 710 

668 0=1 

676 GOTO 690 

688 IF H(R, S+l))8 THEN 710 

698 X=IHT(RHD(8)*3+1) 

788 ON X GOTO 1298, 1368, 1528 

718 X=1NT(RNDC0)*2+1) 

728 ON X GOTO 1298, 1268 

728 IF R=H THEN 848 

748 IF IKR+L Sm THEN 848 

758 IF SOV THEN 79e 

769 IF Z=l THEN 828 

778 0=1 

788 GOTO 808 

738 IF HCR, 5+i))8 THEN 820 

888 X=INTCRH0C6)*2+1) 

818 ON X GOTO 1298, 1438, 1538 

828 X=INTCRN0C6)*2+1) 

826 ON X GOTO 1298, 1436 

846 IF SOV THEN 886 

858 IF Z=i THEN 910 

868 0=1 

878 GOTO 898 

888 IF HCR, S+l)>8 THEN 318 

890 X=INTCRNDC8>*2+1) 
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988 ON X GOTO 1290, 1520 

910 GOTO 1296 

920 IF 5=1 THEN 1128 

920 IF IKR, S-1K8 THEN 1130 

948 IF R=H THEN 1050 

950 IF IKR+L S»6 THEN 1858 

966 IF SOV THEN 1086 

978 IF Z=l THEN 1820 

988 0=1 

939 GOTO 1618 

1068 IF HCR, S+l)>6 THEN 1828 

1818 X=INTCRHDC8)*3+i> 

1028 ON X GOTO 1266, 1438, 1538 

1830 X=INTCRN0(6)*2+1> 

1848 ON X GOTO 1268, 1428 

1850 IF SOV THEN 1098 

1866 IF 2=1 THEN 1128 

1870 0=1 

1686 GOTO 1168 

1630 IF IKR, S+l»8 THEN 1128 

1180 X=INT(RND(8>*2+1) 

1119 ON X GOTO 1268, 1538 

1128 GOTO 1368 

1138 IF R=H THEN 1228 

1146 IF IKR+l, S»8 THEN 1226 

1156 IF SOV THEN 1138 

1160 IF Z=l THEN 1228 

1178 Q=l 

1188 GOTO 1286 

1138 IF HCR, S+l)>8 THEN 1226 

1298 X=IHT(RN0(8)*2+1) 

1218 ON X GOTO 1420, 1526 

1228 GOTO 1429 

1228 IF SOV THEN 1278 

1246 IF Z=l THEN 468 

1250 0=1 

1268 GOTO 1288 

1278 IF HCR, S+l)>8 THEN 466 

1288 GOTO 1526 

1298 HCR-i, S)=C 

1266 C=C+1 

1216 V(R-1, S)=2 

1228 R=R-1 

1228 IF C=H*Y+i THEN 1728 

1249 0=0 

1358 GOTO 568 

1368 HCR, S-1)=C 

1370 C=C+1 

1380 VCR, S-l)=l 

1398 S=S-1 

1408 IF C=H*V+1 THEN 1738 

1418 0=8 

1428 GOTO 56.8 

1420 IKR+L S)=C 

1446 C=C+1 

1456 IF VCR, S)=8 THEN 1488 

1468 VCR, 5)=2 

1478 GOTO 1496 

I486 VCR, S)=2 

1430 R=R+1 

1586 IF C*V+1 THEN 1728 

1518 Q=8 

1528 GOTO 926 

1528 IF 0=1 THEN 1620 

1546 HCR, S+1)=C 

1556 C=C+1 

1568 IF VCR, S)=0 THEN 1536 

1578 VCR, S)=2 

1586 GOTO 1668 

1598 VCR, S)=l 

1688 S=S+1 

1610 IF C=H*V+i THEN 1728 

1620 GOTO 568 

1628 2=1 

1640 IF VCR, S>=6 THEN 1686 

1656 VCR, S)=2 

1668 Q=0 

1670 GOTO 468 

1680 VCR, S)=l 

1698 0=6 

1780 R=l 

1718 S=l 

1726 GOTO 558 

1728 IF Z=l THEN 1770 

1748 R=IHTCRHDC8>*H)+1 

1758 S=V 

1766 VCR, S)=V(R, S)+l 

1778 GOSUB 2828 

1786 PRINT C« 960, "DO VOU HANT THE SOLUTION"; 



1798 GOSUB 3168 
1880 IF LEFT$CAt 
1818 PRINT 8 966 
1828 60SUB 2168 
1838 OS 
1849 FOR 1=1 TO 
1858 IF H(I, 1)= 
1868 NEXT I 
1878 REN NOW HE 
1888 REH ELEMENT 
1898 REN 8 IS C-L 
1988 REH 1 IS CL 
1918 REH 2 IS a 
1928 REN 3 IS OP 
1928 REM DIRECT! 



DOT THEN 3128 

"00 VOU NANT TO SEE EACH STEP": 



. THEN S=I: GOTO 2888 

M CLEAR H RRRflV RS BtTRV POINT IS FOUND. 

'. IN V ARE EITHER 6,12 OR 3 

SED ON THE RIGHT AND AT THE BOTTOM 

SEP ON THE RIGHT 

SED ON THE BOTTOM 

II ON THE RIGHT AND AT THE BOTTOM 

IMS HILL BE CODED: 



UF 
DO II 



1948 REH 1 
1958 REH 2 
1960SEH 4 
1978 RIGHT 
1988 REH 8 LE T 
1998 REH SCAN V 
2688 FOR 1=1 TO 
2818 FOR J=l TO 
2020 HCI, J)=8 
2838 REH TRV UP 
2648 IF J=i THEN 
2858 IF Vtl. J-l 
2868 REH TRV DOU 
2878 IF J=V THEN 
2888 IF V(I, J)= 
2898 REM TRV RIO 
2188 IF 1=H THEN 
2118 IF V(I, J)= 
2128 REH TRV LEF 
2138 IF 1=1 THEN 
2146 IF VCI-1 J 
2158 NEXT J 
2168 NEXT I 
2178 FOR 1=1 TO I 
2188 IF Vtl, V)= 
2198 NEXT 1 
2288 REH HAVE TO 
2218 V=i 
2228 X=S 

2238 VCX, Y)=VCX. 
2240 REH CHECK Fl 
2250 IF V=V AHD I 
2268 GOSUB 2738 
2278 REH CHECK Pi 
2288 IF <na V! 
2298 IF (HCX, V) 
2288 IF CHCX, V) 
2318 IF (MX, V) 
2328 GOTO 2258 
2338 IF CVCX, V+: 
2348 IF Va V+l 
2358Y=Y+i 
2368 V(X, V)=VCX, 
2370 GOTO 2258 
2388 VCX, V)=¥(X, 
2338 HCX, V)=CW(i 
2488 Y=V+i 
2416 HCX, Y)=(HO 
2428 GOTO 2258 
2438 IF CV(X+1, l 
2448 IF VCX+1 V: 
2458 X=X+1 
2468 Va Y)=VCX, 
2478 GOTO 2258 
2488 V<X, V)=VCX, 



RRAV FOR POSSIBLE HOVES IN ALL DIRECTIONS 



=1 OR VU, J-l)=3 THEN 14(1, J)=HCI, J)+i 



OR V(I, J)=3 THEN H(I, J)=HCI, J)+2 
T 
2138 

OR V(I, J)=3 THEN HCI, J)=HCI, JM4 

2158 

=2 OR VCI-1, J)=3 THBI HCI, J)=H(I, J)+8 



OR V(I, V)=3 THEN H(I, V)=M(I, V)+2: E=I: GOTO 2218 
GO OOHN FIRST 



V)+4 

R POSSIBLE DIRECTIONS HOH. . . 

=E THEN PRINT: GOSUB 2758: GOTO 3128 

SSIBLE DIRECTIONS 
AND 2) O 8 THEN 2338 
AND 4) O 8 THEN 2438 
AND 8) O THEN 2538 
AND 1) O 8 THEN 2638 

)>3) AND C<H(X, V) RND 13)=8) THEN 23! 
>3 THEN 2298 

YH4 

V)-4 
■ V) AND 12) 

V) AND 14) 

»3> RND ««a V) AND 11)=8) THEN 24f 
>3 THEN 2388 

V)+4 

V)-4 



2498 HOC, V)=(H(X, V) AHD 11) 

2588 X=X+1 

2518 H(X, V)=CN(X, V) AHD 7) 

2528 GOTO 2258 

2538 IF CVCX-i, V»3) AHD CCUCX, V) AND 7)=8) THEN 2588 

2548 IF VCX-i, V»3 THEN 2318 

2558 X=X-i 

2568 VCX, V)=VCX, V)+4 

2578 GOTO 2258 

2588 V(X, V)=V(X, V)-4 

2598 Ha V)=(H(X, V) AND 7) 

2688 X=X-i 

2618 HCX, V)=(H(X, V) AND 11) 

2620 GOTO 2250 

2630 IF CVCX, V-l)>2) RND CCHCX, V) RND 14)=8) THEN 2688 

2640 IF V(X, V-l»2 THEN 2288 

2658 Y=V-1 

2660 VOf, V)=V(X, V)+4 

2670 GOTO 2258 

2688 VCX, V)=V(X, V)-4 

2690 H(X. V)=CHCX, V) AND 14) 

2788 V=¥-l 

2718 HCX, Y)=CHCX, V) AND 13) 

2728 GOTO 2258 

2738 IF LEFT«(f», DOT THEN RETURN 

2748 PRINT 

2758 FOR 1=1 TO H 

2760 IF I=S THEN 2790 

2770 PRINT STRINWC3, 191); 

2788 GOTO 2888 

2798 PRINT CHR$C19i)"M"; 

2808 NEXT I 

2818 PRINT CHR$(191) 

2828 FOR M TO V 

2828 PRINT CH8C19D; 

2846 FOR 1=1 TO H 

2856 IF VCI, J)>3 THEN Z=VC1, J)-4: GOTO 2870 

2868 Z=V(1, J) 

2870 IF Z<2 THEN 2920 

2888 IF ZOVCI, J) AND VCI+L J)>3 THEN PRINT "##»'; ' GOTO 2948 

2898 IF ZOVCI, J) THEN PRINT ■« ■; GOTO 2948 

2908 PRINT " "i 

2918 GOTO 2948 

2928 IF ZOVCI, J) THEN PRINT "«" CHMC131); : GOTO 2940 

2938 PRINT ' ■ CHRJC19D; 

2940 NEXT I 

2958 PRINT 

2968 FOR 1=1 TO H 

2978 IF VCI, J»3 THEN Z=VCI, J)-4: GOTO 2990 

2986 Z=VCI, J) 

2998 IF Z=8 THEN 3860 

3888 IF Z=2 THEN 3868 

3818 IF ZOV(I, J) AHD J=V THEN PRINT CHRKISWW- GOTO 3878 

2828 IF J=V THEH 3848 

3838 IF ZOVCI, J) AND VCI, J+l)>3 THEN PRINT CHR$C19D"«" 

3840 PRINT CHRSC19D" "; 

3850 GOTO 3878 

3860 PRINT STRING$C3, 191); 

3878 NEXT I 

2880 PRINT CHRSCISi) 

2898 NEXT J 

2108 PRINT 8, "; 

3118 RETURN 

2128 PRINT 8 960, "DO VOU HRNT ANOTHER MAZE"; 

3138 INPUT A* 

3148 IF LEFWRfc 1)="V" THEN PRINT GOTO 268 

3158 END 

3168 (tt=INKEV{ 

3178 IF fl$=" THEN 3168 

3188 RETURN 



GOTO 3878 
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lire 



MILLIONAIRE 
COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ 



In this game, the computer takes you 
through your life from birth to death. 
Along the way, you're asked to make 
some petty and some other rather 
crucial decisions. Some of these 
decisions regard what kind of job you 
want, how much you bet in Las Vegas, 
whether you buy a valuable coin, 
whether you elect to take a vacation or 
a second job, stock purchases- 
buying and selling, automobile ac- 
cidents, tornadoes, and the like. 

At the end of your life (it goes by in a 
flash!) the computer tallies up your 
gains and your losses and tells you 
where you stand relative to becoming a 
millionaire. In ten plays of the game, 
the most we ever got was $379,000, 
somewhat short of being a millionaire, 
but probably, all things considered, 
more realistic. 

Millionaire was conceived and 
written by Craig Gunnett, a dreamer to 
the very end. 



DO YOU NEED INSTRUCTIONS? VES_ 

els ■ 



THIS IS THE GAME OF 'MILLIONAIRE' ALL YOU MUST DO IS 
TYPE IN YOUR MAKE AND ANSWER SOKE QUESTIONS. THE 
DECISIONS YOU HAKE N1U DETERMINE HOH MUCH MONEY YOU 
MAKE AT THE TIKE OF YOUR DEATH, YOUR LIFE HILL BE 
RATED BY THE AMOUNT OF MONEY YOU MADE THROUGHOUT 
YOUR LIFE IF YOU HAVE MADE $1,688, 688, YOU HILL BE 
A MILLIONAIRE AND HIN THE GAME 

PRESS ANY KEY TO CONTINUE 
els 



WHAT IS YOUR NAME ■> CHRIS. 



• els • 



0. K. , CHRIS, THIS IS YOUR (EH LIFE! 
IN A 901 TOHN, ON JUL 17, 1988. CHRIS IS BORN. 
YOUR PARENTS ARE VERY RICH ON APR 8, 1999, YOU 
LEAVE HOME HITH * 11899 YOU GOT A JOB AS A TEACHER. 
YOU EARN J 28878 A YEAR. 
YOU ADJUST YOUR EXPENSES TO * 28353 A YEAR. 
PRESS ANY KEY TO CONTINUE 

els 

DEC 25, 2868 

YOU ARE OFFERED ANOTHER JOB FOR MOULD YOU LIKE TO MOONLIGHT? YES 



■ els • 



DEC 25, 2886 

YOU ARE OFFERED ANOTHER JOB FOR HOULD YOU LIKE TO MOONLIGHT? YES 

YOU NOH HAVE * 11699 

PRESS ANY KEY TO CONTIHUE 

els 

JUL 25, 2865 

YOU ARE OFFERED A COIN SUPPOSEDLY HORTH *188, 688. 

DO YOU BUY IT? YES 

THE VALUE OF THE COIN IS t 49837 
YOU NOH HAVE *-39864 

YOUR EARNINGS AND BPENSES LEAVE YOU HITH t 31416 
PRESS ANY KEY TO CONTINUE 

els 



FEB 23, 2814 

YOU GO TO LBS VEGAS TO GAMBLE 



HOH MUCH DO YOU BET? 18888 



HA! KA! YOU LOST i 5625 . 

YOU NOH HAVES 25791 

YOUR EARNINGS AND EXPENSES LEAVE YOU HITH * 152655 , 

PRESS ANY KEY TO CONTINUE 
els 



DEC 12, 2823 

YOU ARE SERIOUSLY SICK. (COULDN'T TELL COULD YOU?) 
YOU HAVE COHPUTERITIS. 
HEALTH EXPENSES COST YOU * 835 
YOU NOH HAVE * 151828 - 

YOUR EARNINGS AND EXPENSES LEAVE YOU HITH * 278684 
PRESS ANY KEY TO CONTINUE 

Cl8 



OCT 2t 2831 

OH! YOU JUST GOT LEUKEMIA MEDICAL BILLS ARE t 2386 . 

YOU NOH HAVE * 276378 

YOUR EARNINGS AND EXPENSES LEAVE YOU HITH * 389146 . 

PRESS ANY KEY TO CONTINUE 
Cl8 



JUL 9, 2839 

THE DOCTOR SAYS YOU HEED A VACATION. DO YOU GO? YES 

GOOD, THE VACATION COSTS * 2967 

YOU NOH HAVE t 386179 

YOUR EARNINGS AND EXPENSES LEAVE YOU HITH $ 498947 . 

PRESS ANY KEY TO CONTINUE 
els 



SEP! 
I 



2848 



STOCK NAME 



PRICE SHARES OWNED 



1 IBM (INCREDIBLY BAD MACHINES) 143 

2 USS (USELESS S STINKY STEEL) 136 

3 NCR (HO CASH RETURN) 141 

4 THA (TOTAL HRECK AIRLINES) 146 



Cl8 ■ 
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<B>UY, OOKIiW FE >, OR DO OD0TH1NG TB 
STOCK I TO QUANTITY? L25. 



SEP 8, 2848 

8 STOCK NRH 



PRICE SHARES OHNED 



i ibh (incredibly m hachines) ic 

2 U55 (USELESS S ST1N y STEEL) 136 

3 NCR (NO CRSH RETURN ' 141 

4 Tun (TOTAL MRECK M UNES) 146 

_ els 



<BW <S>ELL«188 FH), OR DO OOOTHING 7B 
STOCK « flHD QUANTITY - 4,16. 



SEP 8, 
I 



2848 



STOCK ME 



PRICE SHARES Otse 



1 IBS (INCREDIBLY Bfl HACHINES) 143 

2 USS (USELESS t STII KY STEa) 136 

3 NCR (NO CRSH RETURi ) 141 

4 m (TOTfl I4RECK A KLINES) 146 
Cl8 



<EOUV, <S>ELL($188 Fl E). OR DO O0OTH1N6 ?B 
STOCK I AND QUANTITY 2.58. 



SEP 8. 2848 
t 



STOCK NRE 



PRICE SHflRES OWNED 



1 IBM (IHCREDIBLV Bfl HflCHINES) 143 

2 USS (USELESS S STI KV STEEL) 136 

3 NO! (NO CflSH RETUR I) 141 

4 Tffl (T0TP1 «ECK A RLINE5) 146 
■ els 



25 
58 
8 
18 



<BMIY, <S>ELL(J168 FD. OR DO OOOTHING ?H 
YOUR EARNINGS AND E> >ENSES LEAVE VOU WITH * 613676 
F iESS ANY KEY TO CONTINUE 

JRN7, 2854 

t STOCK Nft PRICE SHARES OUNED 



1 \m (INCREDIBLY Bt 5 HACHINES) 139 

2 USS (USELESS t ST: KY STEEL) 124 

3 NCR (NO CRSH RETU H) 136 

4 TOR (TOTRL KRECK I IRLIKES) 132 
HITH STOCK VALUE YO HAVE * 624671 
CLOSE, CHRIS WNB NEXT LIFE 

THASKS FOR PLAYING MILLIONAIRE', CHRIS!!! 
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REROY 



els • 



18 OS 

28 PRINT 8 418, "MIL 

38 PRINT 

48 PRINT TAB(7)"C0F 

58 PRINT 8 968, ""; 

68 IHPUT"DO YOU NEE 

78 IF LEFTt(I$, 1)= 

88 REM HILLIOHAI 

38 OS 

186 PRINT TPB(28);" 

118 PRINT 

120 PRINT'THIS IS 1 

136 PRINT 'TYPE IN 

140 PRINT "DECIS1M 

158 PRINT "HAKE, f 

160 PRINT "RATED B\ 

176 PRINT "YOUR LII 

180 PRINT "fl NILLK 

ISO PRINT 8 973, "PI 

288 IF IHKEYt =" " 

218 CLS 

228 PRINT 8 256," 

238 INPUT"««T IS • 

248 LET 0=-l 

259 DIN R»(28), Z» 

269 FOR 1=1 TO 4 

273 LET SU>=15B 



.IONAIRE" 

SIGHT 1973 CREATIVE CCWUTING KORRISTOHN, HJ" 

) INSTRUCTIONS"; I* 

'H" TUN 218 

iE BV CRAIO GUNNETT 

■ HILLIONAIRE *" 

€ GAHE Of 'BILLIONAIRE', ALL YOU RUST DO IS" 
flUR NRHE RND ANSWER SOS QUESTIONS. THE" 
i YOU HftKE HILL DETERMINE HON HUCH NONEY VOU" 
rTHE TIKE OF YOUR DEATH, YOUR LIFE HILL BE" 
THE AMOUNT OF HONEY YOU BADE THROUGHOUT" 
L IF YOU HAVE HADE $1,888,888, YOU HILL BE" 
WIRE AND HIN THE S3t " 
35 ANY KEY TO CONTINUE"; 
•El 288 



OURNAKE ";A» 

1), f»(36>, S(9), 0(16) 



2BS TEXT I 

298 CLS 

388 PRINT " 0.K, ";«;■. THIS IS YOUR HEM LIFE!" 

318 LET H*="J»FEBmiflFWWJUNJUiWiSEPOCTNOVDEC" 

328 IF RND(8)>. 5 GOTO 358 

338 PRINT "ON f, BIG FRRH"; 

348 GOTO 368 

358 PRINT "IN li SHALL TORN"; 

368 LET T=INT(I»(8)*12)+1 

378 PRINT ", Ml MIIBMW. 3*T-2, 3); IHT(RH>(8)»28)*1; CHR$(8)i" 

388 PRINT ' "illfe" IS BORN." 

390 PRINT "VOU! PARENTS ARE VERY "i 

488 IF RND(8)>. 5 GOTO 448 

418 PRINT 'RICH, "i 

423 LET R=INT(IM><8)»5888H18e88 

438 GOTO 468 

448 PRINT "POOl "i 

458 LET H=INT(( RND<6>+RHD<8»/2*1888) 

468 LET T=INT(!M)(B>*12W 

476 LET Y=i996HNT(RND(8)*i6> 

488 PRINT "ON ";MDKItt, T*3-2, 3); T*2i CHR$(8);",";Y; CHRK8);' 

498 PRINT "LEAS K»E HITH ': 

588 PRINT "*"; IHT(H*188)/168i 

518 LET Y=Y+1NKRND(6)*3H1 

528G0SUB 876 

538 FOR M TC 13 

548 IF (J/3)-ltlT(J/3)€=8 THEN G0SU8 878 

558 LET 0=» [(28*8ND(8)>+1 

LET Wl=< INT«2tRND(8))+l>« 
G0SUB3H8 

PRINT HI M(H$, Hl-2, 3); Di CHRK8); ", "i V 
IF Y-19S3C78 GOTO 648 
IF RND«i». 5 GOTO 648 

PRINT ">'0U ARE DERD (COULD'HT TELL COULD YOU?) AT THE" 
PRINT "fiGE OF"; Y-1988; CHRJ<8);"." 
GOTO 2S» 
IF H>8 GOTO 638 
LET I=II(T(.87*Y9*(-H» 
LET H=tt-I 

PRINT "ill INTEREST ON YOU! LORN IS "; 
688 PRINT "*". INT(188*I)/188 
638 LET (HUT(i3»RHX8Xl) 
768 IF 0(Q)--1 GOTO 638 
LET 9<Q)=i 

OH Q GOiO 1128, 1288, I486, 1548, 1648, 1888, 2818 
ON (0-7) GOTO 2368, 2478, 2628, 2788, 2828, 2868 
PRINT "VOU NCM HAVE "; 
758 PRINT '$•: INT(R*188)/188; 
768 PRINT ". " 
778 IF 0=-2 GOTO 2818 
788 IF M GOTO 838 
738 LET H* (E-C)*Y3 

888 PRINT "YOUR ERRNINGS TO EXPENSES LERVE YOU HITH "; 
816 PRIHT ■*•; INT(li*188)/188; 
828 PRINT •. " 

838 LET Y9=INT(RIID(8)*6)+5 
848 LET Y=\+Y9 
858 NEXT J 
868 GOTO 618 
878 REM JOB SUB 

883 PRINT "VS«J GOT R JOB RS A "i 
898 ON RND(5) GOTO 388, 938, 968, 998, 1828 
983 PRINT "TECHER"; 
918 LET E=1H7(RHD(8)*4888>*17868 
928 GOTO 1840 
938 PRINT "U-HVER"! 
948 LET E=IKl<RHD(8)*48888!)+88888! 
358 GOTO 1840 

968 PRINT "COMPUTER PROGRRHRER"; 
976 LET E=IHf(RND(8)*5B88H28888 
988 GOTO 184) 
998 PRINT "BiS DRIVER"; 
1888 LET E=hT(RM)<e>*2B88>+i6888 
1818 GOTO 18 !9 

1828 PRINT "FOOTBALL PLAYER"; 
1838 LET E=IUT(RHD(e)*ie8888!HlB8888! 
1646 LET C=E-188B8+INT<( RND<e)+RHX8»«5888) 
1856 PRINT " " CHRt(13)"Y0U EARN "; 
1868 PRINT "$";1H1'(E*168)/1B3; 
1878 PRIHT " R YEAR. " 
1888 PRINT "VOU ADJUST YOUR EXPENSES TO "; 
1898 PRINT ■3 , ;I(f((188^)/ie8; 



VOU" 



568 
576 



598 



618 
628 



648 



668 
676 



716 
728 
738 
748 



112 




nee print 1 n vers. ■ 

1118 RETURN 

1128 PRINT "YOU GO TO LRS VEGRS TO GRKBLE. HOH MUCH DO YOU BET"; 

1138 INPUTS 

1140 PRINT 

1158 IF S<=8 GOTO 1278 

1168 IFRND(8».7G0T0 1228 

1178 LET S2=-INT(RND(8)*S) 

1188 PRINT "Hfi! HR! VOU LOST •; 

1138 PRINT "*■; Itrr(S2*i68)/188*-l; 

1268 PRINT ■. ■ 

1218 GOTO 1268 

1228 LET S2=INT(( RND(8HRHD(8»*S) 

1238 PRINT -VOU HON "; 

1248 PRINT "*"; INT<S2*i88Vie8; 

1258 PRINT " ■ 

1268 LET H=H*S2 

1278 GOTO 748 

1288 PRINT "VOU ARE OFFERED R COIN SUPPOSEDLV NORTH $183,688 * 

1298 PRINT 'DO VOU BUV IT"; 

1388 INPUT Z* 

1318 ZHIFTKZ*, i) 

1228 PRINT 

1338 LET Y7=INT(RND(8)*288888!)H 

1348 IF ZSO'Y" GOTO 1368 

1358 LET K=H-168888!+Y7 

1368 PRINT 'THE VBLUE OF TIC COIN IS "; 



1378 PRINT "*'; INT(V7«ie8>/188; 

1388 PRINT ", " 

1338 GOTO 748 

1488 PRINT 'VOU PRE SERIOUSLY SICK. (COULDN'T TELL COULD TOP)' 

1418 PRINT 'VOU KRVE '; 

1428 ON <INT(RND(8)*3)+1) GOTO 1458, 1478 

1438 PRINT "THE RSIO-OISPEPSIR REGIONRLY HYPNOTIC FLU! (OH 1 ) " 

1446 GOTO 1488 

1458 PRINT 'COtFUTERITIS. " 

1466 GOTO 1488 

1478 PRINT 'INFECTIOUS FRTRLY REOCCURING CHRONIC BRO BRERTH. ■ 

1488 LET U=INT(RHD(e)*i888)«88 

1436 LET NHJ 

1588 PRINT 'KERLTH EXPENSES COST YOU "; 

1518 PRINT "$";INT(lW88)/iee; 

1528 PRINT " " 

1538 GOTO 748 

1548 LET F=INT(RHD(8)*iee«88!) 

1558 LET C8=INT(F/2>-INT(RND(8)*(F/2» 

1568 PRINT "YOUR GRANDFATHER GROYERS JUST DIED (OH') HE LEFT" 

1576 PRINT "VOU "; 

1588 PRINT "*';IHT(F*i88>/i88; 

1536 PRINT ". BUT FUNERAL EXPENSES ARE "; 

1688 PRINT "*";INT(C8*ie8VlBe; 

1618 PRINT". " 

1628 LET H=H-C8tF 

1636 SOTO 748 

1648 IF E=8 GOTO 1128 
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1658 PRINT "IBS FROH 
1668 ON ( INKFMXB)*; 
1678 LET L=IHT(RMX8)« 
1688 LET E=£-L 

1638 PRINT "YOU GOT A 

1789 PRIHT '$";IlfT(L*i 

1718 PRIHT' DECREASE ! 

1728 FRINT'YOU HON EH 

1738 FRIHT '{', IKT<E*) 

1748 FRIHT', " 

1758 GOTO 748 

1768 PRIHT "YOU'RE Fli 

1778 LET E=8 

1788 LET C=!HT(C/4) 

1798 GOTO 748 

1868 LET R6=IHT<RHD(6: 

1818 LET E=E+R5 

1828 PRINT "YOU GOT R 

1838 PRIHT '$"; IKTCRfr 

1848 PRINT" 'iCH&ae 

1858 PRIHT "SMNKE*. 

1868 PRINT". ' 

1878 GOTO 748 

1888 PRINT "THE-MCTO 

1898 IRPUT IS 

1938 Z*=LEFTttZt, 1) 

1918 PRIHT 

1328 LET V=IHT(RHD(8) 

1338 IF Z«='H" GOTO 1 

1348 PRINT "GOOD, THE 

1358 PRIHT "JMNKY* 

1968 PRINT ', " 

1378 GOTO 1396 

1S88 PRIHT 'YOU JUST 

1398 LET rt=H-Y 

2888 GOTO 748 

2818 FOR 1=1 TO 4 

2828 LET SO)=INT(( 

2838 IEXT I 

2848 FOR 1=1 TO 1888 
2858 NEXT 

2868 PRINT 8 64, "I 
2878 PRIHT"— 
2888 PRIHT'l IBH (IK 
2898 PRIHT'2 USS (US 
2188 PRIHT"3 HCR (HO 
2118 PRINT4 THfl (T01 
2128 PRINT CFf»(3i); 
2138 IF S(9)=l GOTO : 
2148 PRINT 8 832, "<K 
2158 Z»=INKEY:? 
2168 IF Z$=" THEN Z 
2178 PRIHT CM8<8)i \ 
2188 IF Zt="S' GOTO I 
2198 IF Z$="N' GOTO ; 
2288 PRINT "STOCK » I 
2218 INPUT S3, S(8) 
2228 LET S(4+S3)=S(4- 
2238 LET 0=-2 
2248 LET IHt-S(S3)*S 
2258 GOTO 2869 
2268 PRIHT "STOCK t i 
2278 INPUT S2, S5 
2288 IF S5>S(4+S2> G 
2298 LET S(4»52)=S(4 
2388 LET H=#5(S2)«S 
2318 GOTO 2148 
2328 LET S1=5(5HS(6 
2338 IF SD8 GOTO 78 
2348 LET OH. 
2358 GOTO 788 
2368 PRIHT "NEHS FLU 
2378 IFRM)(e».5TH 
2388 PRINT 'Fl TORNAD 
2398 GOTO 2418 
2488 PRIHT 'FN R1RPI 
2418 LET D8=IHT(RM)< 
2428 LET R*D8 
2438 PRIHT "DflHRGES 
2448 PRIHT "J"; 1HT« 
243! PRINT '. ' 



-OUR BOSS:" 

i+l) GOTO 1768, 1888 

5888)+! 



BV188; 
(PRY." 
i': 
»)/188i 



ED! (Hfl!)" 



t5888)+l 

RRISE OF "i 
188V188; 
i'YOUNOHEARN' 
88V188; 



SfiYS VOU NEED R YRCATION DO YOU GO'; 



'28B8H188B 



VRCRTION COSTS ' 
88)/188i 



HD fl HERV0U5 BREftKWM IQICflL COSTS " V 



INT(RND(e>*188Hie8+2*S(I»,a> 



STOCK NRfiE 



PRICE SHRRES OWO" 



S(l). 
S(2); 
5(3)i 
S(4). 



S(5) 
5(6) 
5(7) 
S(8> 



SDIBLY BflO HRCHINES)" 
.ESS « STINKY STEEL) " 
MSH RETURN) 
H. «£CK RIRLI1CS) " 

848 

JY, <S>£LL«1B8 FEE), OR 00 OOOTHING '• 058(95); 

58 
t 

268 
328 
H> QURNTITY"; 

S3HSW) 

8)-188 

NO QUANTITY"; 

TO 2268 
S2)-S5 

rl88 

■+S(7>+S<8) 



H!!! " 
3)2438 
I HRS JUST HIT THE HOE OF MB;".' 

K HRS JUST CRUSHED INTO THE HOME OF ";f»i" " 
»*5B888!M 

WE BEEN ESTIMATED BT ■; 



2468 GOTO 748 

2478 PRIHT 'OH! YOU JUST GOT ■: 

2483 IF Y-1388<55 GOTO 2546 

2438 IF RH0(8».4 GOTO 2528 

2588 PRIHT "CRNCER"; 

2516 GOTO 2558 

2528 PRINT "R HERRT TTTRCK"; 

2538 GOTO 2553 

2548 PRINT "LEUKEHIfi"; 

2558 LET H2=INT(RK0(3)*58M)+18e8 

2568 LET H=H-H2 

2573 PRIHT ', REDICTL BILLS RRE '; 

2588 PRIHT "S"; INT(H2*188)/188; 

2538 PRINT ". ' 

2688 IFRKD(8)C5G0T0 618 

2616 SOTO 748 

2628 PRIHT "YOU JUST HRD R CUR OCCIDENT! IED1CRL COSTS" 

2638 LET H3=INT(RHD(0)*3868)+1888 

2648 LET 87=INT(RHD(0)t5808>+188 

2658 PRIHT 'ARE '; 

2668 PRIHT '*'; IHT(f3*188)/188; 

2678 PRINT '. REPfllFS COST "i 

2688 LET R*-H3-Q7 

2698 GOTO 748 

2788 IF E=8 GOTO 11:88 

2718 LET E2=18ee8tIliT(RH)(6)*5888) 

2728 PRIHT "YOU RRE OFFERED ANOTHER JOB FOR ■; 

2738 PRINT "HOULD Vt'J LIKE TO KOOHLIGHT'; 

2748 IlfUT Z* 

2758 PRINT 

2768 IF LEFT$(ZS, 1J="H' TFEH 748 

2776 OH INT(RHD(8)*3) GOTO 1768, 2883 

2788 LET E*E2 

2798 GOTO 748 

2888 PRINT "FROM OYERMORK YOU GET " 

2818 GOTO 2528 

2828 LET R2=INT(RKDC8)*ie888>+5888 

2838 LET H*R2 

2848 PRIHT 'YOUR HOC HRS BEEN ROBBED OF GOODS NORTH "; 

2858 GOTO 748 

2868 IF OH GOTO 1388 

2878 1FFM>(3)>.7GDT0 1888 

2888 LET B4=IHT(RND(8)*4) 

2898 PRINT "STOCK HrRKET CRRSH!!! ERCH OF YOUR"; SI; "SHRRES OF' 

2988 PRINT "STOCK IS NORTH '; 

2318 PRIHT "$';IHT(B4*i88)/i88i 

2328 PRIHT ■ FOR R TOTAL OF •; 

2338 PRINT "$";lHT((51*B4)*18S}/ie8; 

2948 PRINT ' ' 

2953 LET K=H+Si«B4 

2368 LET 0=-l 

2978 GOTO 748 

2988 PRIHT 'YOU HFC "; 

2998 PRIHT '$"; IHT(HH88)/188; 

3388 PRIHT "." 

3818 IF OH GOTO I-T388 

3828 LET S(9M 

3838 GOTO 2318 

3848 LET rHHS(l)*S(5)+S(2)*S(6HS(3>*S(7>+S(4)*S<8> 

3858 PRIHT "WITH STOCK VALUE YOU HRYE '; 

3868 PRINT "*"; INTOSH88V188; 

3873 PRINT " ' 

3888 IF H<8 GOTO 3138 

3898 IF (K58888B! GOTO 3168 

3188 IF XOE+86 GOTO 3188 

3118 PRINT fi*;' HOI!! YOU ARE R HILLIONRIRE! ! ' 

3128 GOTO 3198 

3138 PRINT "YOU LOJSY KM'*!!! NOH YOUR POOR FAHILY HAS TO PRY" 

3148 PRIHT "OFF YO.S DEBTS * 

3158 GOTO 3198 

3168 PRINT "NOT BF.D, ';(!*;".* 

3178 GOTO 3198 

3188 PRIHT "CLOSE, - ifl$i". HRYBE NEXT LIFE.' 

3138 PRINT "THANKS FOR PLRYING 'HILLIONRIRE'. ";R*i "!!!!" 

3238 PRINT 

3216 PRIHT 

3228 m 

3238 PRINT 8 979, 'PRESS ANY KEY TO CONTINUE"; 

3248 IF INKEYS =" TIEN 3248 

3258 CLS 

3266 RETURN 
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N taur 




In this game, you are in a three level 
cavern. Inside the cavern areten pillars 
which stretch through all three levels; 
they're electrified so that if you touch 
them you are immediately vaporized. 
Furthermore, there are trap doors 
which appear randomly and drop you 
down one level. The top level is three, 
the second level down is two, the first 
or lowest level is one. If a trap door 
appears in level one you are dropped 
into a bottomless pit and that ends the 
game. The minotaur itself also poses a 
hazard. If you wound him with your 
spear, he will charge you. Also, he 
randomly charges for no reason at all. 
However, he only charges in a straight 
line. Hint: keep at a slight diagonal from 
the minotaur until you are ready to 
throw your spear at him and you have a 
better chance of avoiding his charges. 
If you ask for a map, the axes are drawn 
in with X's. This does not indicate a 
barrier or fence; you are free to move 
across the X and Y coordinate planes. 
However, you are advised not to move 
out of any of the four edges as this 
represents yet a different form of 
bottomless pit and also ends the game. 
There are many, many additional 
hazards which are not shown in the 
sample run. Try it, and be surprised! 

This program was conceived and 
written by Pete Klausler. 



HIMOTflUR 

CREATIVE COMPUTING, MORRISTONN, NTS JERSEY 
• els • 



I YOU NANT TO BE THE MINOTAUR CHfiMPION? V. 
. cis 



TO MUST BERT ft SCARE OF 28. 



DO VOU NEED INSTRUCTIONS? V. 



. MINOTAUR. . 



■ols 



THE OBJECT OF THE GAME IS TO KILL THE MINOTAUR 



. CAVERN. . 



THE CAVERN OF THE MINOTAUR IS IN THREE 

LEVELS. EACH LEVEL IS A COORDINATE PLANE 

OUTSIDE OF THE LEVELS THERE IS NOTHING BUT 

VACUUM. THE PLANES STRETCH OUT 18 ON EACH 

AXIS FROH THE ORIGIN. 

(PRESS ANV KEY TO CONTINUE) 
— els — 



.HAZARDS.. 



INSIDE THE CAVERN ARE IB ELECTRIFIED 
PILLARS STRETCHING THROUGH THE THREE 
LEVELS. THEV MILL DESTROY ANYTHING THAT 
TOUCHES THEM!! 

(PRESS ANY KEY TO CONTINUE) 
- els 



TRAPDOORS 

TRAPDOORS HILL APPEAR OUT OF NOUHERE 
AND DROP YOU DOWN ONE LEVE. IF VOU MERE 
ON LEVEL ONE, YOU LOSE 1 ' 



CHARGING HIHOTflUR 

THE MINOTAUR HILL CHARGE YOU IF YOU 
HOUND HIH HITH YOUR SPEAR. ALSO, HE 
HAY CHARGE FOR NO REASON AT ALL! ! ! ! 
(PRESS ANY KEY TO CONTINUE) 
- els ■ 



HERE ARE YOUR CONTROL FUNCTIONS 

1) MOVING EAST 

2) MOVING WEST 
2) MOVING NORTH 

4) MOVING SOUTH 

5) MOVING UP A LEVEL 

6) MOVING DOW A LEVa 

7) THRONING YOUR SPEAR 

8) GETTING A MAP 
(PRESS ANY KEY TO CONTINUE) 

■ els 



HAVE FLU 

(PRESS ANY KEY TO CONTINUE) 
els 
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'*■■'<&■ 



I HILL NOW SET THE BR RIERS. 
BARRIER 8 1 :(-6 .-3 
BARRIER » 2 :(-9 .-5 
BARRIER t 3 :< 4 ,-3 
BARRIER I 4 :( 10 .-7 ). 
BRRRIER #5 :<-? .-6 '. 
BflRRIER 8 6 -.(-5 ,-5 > 
BRRRIER t 7 :<-4 . 1 > 
BRRRIER it 8 :(-5 ,-6 ' 
BflRRIER t 9 :< 3 ,-8 > 

:»ie •.< i . ii ). 

(PRESE RNV KEV TO CONTINUE) 
0l8 



ON WHICH LEVEL DO VOL NANT TO START? 3 

HHICH POINT? 2, -2 

HOW FAR DO VOU HflNT ' HOVE PER TURN? 1 

TURN 1 MMOTRUR IS IT (-16 , 8 ), ON LEVEL 3 ^ 6 
VOU ARE AT ( 2 .-2 ), ON LEVEL 2. 

TURN 2. MHOTAUR IS RT (-10 . 1 >, ON LEVEL 3 "> 1 
VOU ARE AT (3,-2) ON LEVEL 2 

TURN 3. HINOTAUR IS RT (-10 . 1 >. ON LEVEL 2 "> 1 
VOU ARE AT ' 4 ,-2 ) ON LEVEL 2. 

TURN 4. HINOTAUR IS AT (-10 , 1 ), ON LEVEL 3 ? i. 
Cl8 - 



VOU ORE AT (5,-2) ON LEVEL 2 

TURN 5. NIHOTHUR IS AT (-18 . 1 ). ON LEVEL 3 "> 3 
VOU ARE AT ( 5 ,-1 ) ON LEVEL 2 

TURN 6. MINOTAUR IS AT (-10 , 1 ), ON LEVEL 2 ■> 3 
VOU ARE AT ( 5 , ) ON LEVEL 2 



(-1 


2 ) 


( 


2 ) 


(1 


2 ) 


( 2 


2 ) 


( 3 


2 ) 



els ■ 



(4,2 ) 






(5,2) 






(5.1) 






(5,0) 






BITE 






CHEN 






CHOHP 






GULP 






VOU LOSE, 


SUCKER 




MOULD VOU LIKE TO 


PLAV AGAIN? . 






els 



10 CLEAR 80 

28CLS 

38 PRINT e 41L 'HINOTAUR" 

40 PRINT 

58 PRINT TflBCii: 'CREATIVE CONFUTING, HORRISTOHN, NED JERSEV" 

68 PRIHT:PRINT:FRINT:PR1NT 

78DIHBZ(15),C;;(15) 

88G0SUB1288 

90 REH INSTRUCTIONS 

188 GOSUB 1460 

118 L3Z=i 

120 UX=IHT(RHD:0)*3)tl 

138 X1X=INT(RND,'8)*(-21))+11 

148 V1X=INT(RND:0)*(-21))+11 

158 PRINT 

160 REH BARRIER; 

178 GOSUB 2138 

188 REM PLflCE POWER 

1S8 GOSUB 2238 

268 REN START G : iNE 

218 REM SPEAR 

228 IF X22=51Z AND Vffl=S2X AND LZ!=S3Z AND T»i THEN 3788 

238 REH ISHEERTEH? 

248 IF m=m AND V2X=V12 AND L12=L2X THEN 3760 

258 REH CHRRGIIfi 

260 IF RHK8K i THEN 2688 

278 REH TURN « 

280 TMX+i 

290 PRINTTURN'FjCHRKS);". HINOTAUR IS AT <";XlX;ViYifc">. ON LEVELMIZ; 

388 INPUT V. 

310 Sffi=PEEK(16192) 

328 SB^EEKttf 256) 

338 IF SAJ054 (S SBX>54 THEN OS 

348 ON U GOTO 358,330,408,438,456,480,588,3118 

358 W&ZfAFA 

368 IF ABS(X2X»18 THEN 1098 

378 GOTO 1118 

388 X2X=X2X-R! 

398 GOTO 368 

430 V2X=V2X+R 

418 IF ABS(VSii)16 THEN 1890 

420 GOTO 376 

438 y2x=vz!-fx 

440 GOTO 410 

458 L2Z=L22+1 

468 IF L2»3 0? LZKi THEN 1266 

478 GOTO 370 

488 L2Z=L2Z-i 

490 GOTO 468 

588 REH SPEAR-THROMIHG 

518 IF UXOL2:: THEN 1018 

528 IF XlZOffi:; AND V1XOV22 THEN 1030 

530 IF fflOSii AND RBS(V1X-V2Z)>18 THEN 1850 

546 IF flBSOtt?.-X2X»10 THEN 1058 

556 IF Sffii=i THEN 3810 

568 PRINT'IN LHICH DIRECTION MOULD VOU LIKE TO THROW (USE 1,2,3,4)") 

578 INPUT m 

588 PRINT"HOH FAR"; 

598 INPUT H2X 

669 OS 

618 S5X=XZi 

620 S6Z=V2X 

638 FOR H3M TO H25i 

648 OH my. GOTO 658,680,788,738 
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658 S5K=S5Z+1 

668 IF ABSC55?.»i8 THEN 828 

676 GOTO 758 

688 S5X=S5X-i 

638 GOTO 668 

788 Sffi=S62+i 

718 IF flBS(S6X)>10 THEH 828 

728 GOTO 758 

738 S6M6X-1 

748 GOTO 718 

756 PRINPSPEAR IS AT <";S5& ". "iS6X»X " 

768 REM TEST FOR BfiRRIERS 

778 FOR AM TO 16 

788 IF SStSXOK) AND S6MOK) TUN 818 

798 NEXT ffii 

888 GOTO 838 

818 PRINT "SHUSHED SPEflR SPLINTERED AGAINST BARRIER #'; AS CHR*<8>; " " 

828 GOTO 1878 

838 next mv. 

848 IF 55XOX1X OR S6XOV1X THEN 948 

858 XMNKRND<8)*3H1 

868 ON ffl GOTO 878, 948, 1886 

876 PRINT"YOU KILLED THE HINOTfiUR IN";T7.i "TURNS. ' 

888 GOTO 1376 

898 PRIHT:PRIHT"MOULD YOU LIKE TO PLAY AGAIN"; 

988 INPUT X* 

916 IF LEFT«»,1>0"Y" THEN 3858 

928 CLS: T2=0 

938 GOTO 116 

948 PRINT'YOU MISSED. SPEAR IS AT <";S5S ". •;%■/.; ">. YOU MUST GET IT " 

958 SIMS! 

36BS2Mffi 

976 S2M2X 

988 S9M 

996 GOTO 218 

1888 GOSUB 2678 

1816 PRIHPYOU ARE NOT ON THE SANE LEVEL YOU CANNOT THROR " 

1028 GOTO 378 

1638 PRINT'YOU ARE NOT ON THE SAME X OR Y LIKE. YOU CANNOT THROR ■ 

1848 GOTO 378 

1858 PRIHPYOU ARE NOT WITHIN 16. YOU CANNOT THROR " 

1868 GOTO 378 

1878 PRINT"YOU ARE NOW WEAPONLESS. YOU LOSE, SUCKER!" 

1888 GOTO 898 

1898 PRINPYAAAHARAAAARAAAAAH YOU FELL OFF THE EDGE 1 " 

1168 GOTO 1686 

1118 PRINT'YOU ARE AT < , jX2X;"."iY2S"), ON LEVI"; L2S CHRK8); " " 

1128 REM TEST FOR BARRIERS 

1138 FOR AM TO 18 

1148 IF X2M5!<BX) AND Y2MXCR2) THEN 1176 

1158 NEXT AZ 

1168 GOTO 1198 

1178 PRINT'YOU HAVE JUST FRIED YOURSELF ON AN ELECTRIFIED BARRIER " 

1188 GOTO 1686 

1196 REN TRAPDOORS 

1266 XMNT(RND(8>*18H1 

1218 IF ffi=5 THEN 1238 

1226 GOTO 2348 

1238 PRINT'YAAAARRAAAAAAAAH TRAPDOOR, YOU FELL DOHN ONE LEVa!" 

1248 L2X=L2X-1 

1258 IF L2X>6 THEN 1228 

1266 PRINT'YOU FELL OUT OF THE CAVERN. YOU LOSE ■ 

1276 GOTO 1888 

1288 PRINT "DO YOU WANT TO BE THE MINOTAUR CHAMPION"; 

1298 INPUT X9$ 

1368 IF L£FT$<X9*,i)0"Y' THEN CLS: GOTO 1368 

1318 CLS 

1328C2M8 

1338 PRINT'YOU MUST BEAT A SCORE OF 26. • 

1248 D!H C3$(72) 

1358 DIH C4$<72> 

1366 RETURN 

1376 IF LEFT$(X3*,1)0*Y" THEN 898 

1388 IF TC=8 THEN TM 

1396 C3M/TM68 

1468 IF C3X<28 THEN 1436 

1416 PRINT'YOU ARE NOH A QUALIFIED CHAMPION!" 

1428 GOTO 898 

1438 PRINT "SORRY, YOU DID NOT BEAT THE CHAMPION " 

1448 PRINT "DO YOU WANT TO PLAY AGAIN"; 

1458 GOTO 968 



1468 REM INSTRUCTIONS 
1478 PRINT 

I486 FOR WSM TO 127: SEKWSS 4) :HEXT HSZ 
1496 PRINT 8 91, "MINOTAUR" 
1568 PRINT 
1518 PRINT 

1526 PRINT "DO YOU NEED INSTRUCTIONS"; 
1536 INPUT X* 

1546 IF LEFT«X*,1)0"Y" THEN CLS: GOTO 2128 
1558 CLS 
1568 PRINT 

1578 PRINT 'THE OBJECT OF THE GAME IS TO KILL THE MINOTAUR" 
1588 PRINT 

1596 FOR EDM TO 127: SET(EDS16):NEXT W. 
1686 PRINT 8 219, "CAVERN"; 
1616 PRINT 
1626 PRINT 

1636 PRINT TABC12) " THE CAVERN OF THE MINOTAUR IS IN THREE" 
1648 PRINT TA8(12) "LEVELS. EACH LEVEL IS A COORDINATE PLANE ' 
1656 PRINT TAB<12) "OUTSIDE OF THE LEVELS THERE IS NOTHING BUT" 
1668 PRINT TAB(12) "VACUUM THE PLANES STRETCH OUT 18 ON EACH" 
1676 PRINT TAB(12) "AXIS FROM THE ORIGIN. " 
1688 PRINT 
1698 GOSUB 3868 
1768 CLS 

1716 FOR EDM TO 127: SEKEDS4): NEXT EDX 
1728 PRINT 8 91, "HAZARDS" 
1738 PRINT: PRINT 
1748 PRINT TAB(28) "BARRIERS" 
1758 PRINT 

1766 PRINT TA8(12) " INSIDE THE CAVERN ARE 16 RECTRIFIED" 
1776 PRINT TRBC12) "PILLARS STRETCHING THROUGH THE THREE" 
1788 PRINT TAB02) "LEVELS. THEY HILL DESTROY ANYTHING THAT" 
1798 PRINT TAB02) "TOUCHES THEM!!' 
1888 PRINT 
1816 GOSUB 3868 
1826 CLS 

1826 PRINT TABC28) "TRAPDOORS" 
1848 PRINT 

1856 PRINT TABC12) "TRAPDOORS WILL APPEAR OUT OF NOWHERE' 
1866 PRINT TAB(12) "AND DROP YOU DOWN ONE LEVEL IF YOU WERE" 
1876 PRINT TAB(12) "ON LEVEL ONE, YOU LOSE! !" 
1888 PRINT:PRINT 

1898 PRINT TAJK24) "CHARGING MINOTAUR" 
1988 PRINT 

1918 PRINT TAB02) " THE MINOTAUR WILL CHARGE YOU IF YOU" 
1928 PRINT TABC12) "HOUND HIM WITH YOUR SPEAR ALSO, HE" 
1928 PRINT TABC12) "MAY CHARGE FOR NO REASON AT ALL!!!!" 
1948 GOSUB 2868 
1958 CLS 

1968 PRINT: PRINT 

1376 PRINT T(B(21) "HERE ARE YOUR CONTROL FUNCTIONS" 
1388 PRINT TABC27) "D MOVING EAST" 
1998 PRINT THB(27) "2) MOVING WEST" 
2886 PRINT TA8C27) "3) MOVING NORTH" 
2816 PRINT TABC27) "4) MOVING SOUTH' 
2826 PRINT TABC27) "5) MOVING UP A LEVEL" 
2628 PRINT TAB(27) "6) MOVING DOWN A LEVEL" 
2846 PRINT TAB(27) "7) THROWING YOUR SPEAR" 
2856 PRINT TABC27) "8) GETTING A MAP" 
2668 GOSUB 2868 
' 2876 CLS 
2688 PRINT: PRINT 

2696 FOR EDM TO 127: SET<EDS 16) : NEXT EDX 
2186 PRINT 8 213, "HAVE FUN" 
2116 GOSUB 2868: CLS 
2128 RETURN 
2138 REM BARRIERS 

2148 PRINT "I HILL NOH SET THE BARRIERS. ' 
2158 FOR AM TO 18 
2168 BZ(A2)= INT<RND<6>*<-21»+11 
2176 K<A2>= INT(RND<e>*<-2i)>+ii 
2188 PRINT "BARRIER #";AS ":<";BX(fE>; ". ";CZ<«K>; "). " 
2196 NEXT W. 
2286 PRINT 
2218 GOSUB 3866 
2226 RETURN 
2236 REM PLACE PLAYER 
2248 CLS 

2258 PRINT 'ON WHICH LEVEL DO YOU WANT TO START"; 
2266 INPUT W. 



117 



2278 PRINT: PRINT "HH CH POINT"; 

2288 INPUT X22.Y2X 

2298 PRINT 

2388 PRINT "HOH FOR D i YOU URNT TO HOVE PER TURN"; 

2318 INPUT FX 

2328 PRINT 

2330 RETURN 

2348 REM WOVE MINOTRU ! 

2358 X4X=X1X 

2369 m=m. 

2378 L4X=L1X 

2388 XSi=INT(S:NO(8)*6 >+i 

2398 ON X3X GOTO 2486 2458, 2478, 2520, 2548, 2596 

2488 xix=xix+i 

2410 IF ABS<X1X)}10 1 IEN 2438 
2428 GOTO 2610 

2430 xix=x4x 

2448 GOTO 2380 
2458 XlX=X17.-i 
2460 GOTO 2410 

2470 vix=vi;;+i 

2488 IF ABS(Y1X)>10 I €N 2588 

2490 GOTO 2610 

2588 WrWA 

2518 GOTO 2388 

2528 IF XMKBX) d ) YtX=CX(AX) THEN 2380 

2530 GOTO 2480 

2548 L1X=L1X+1 

2558 IF L1X>3 OR L1X- 1 THEN 2570 

2568 GOTO 2618 

2578 UX=L4X 

2588 GOTO 2380 

2598 UX=UX-1 

2600 GOTO 2553 

2610 FOR AM TO 18 

2620 IF Xi;'.=8;«fSX> ft D YlX=a!<IK> THEN 2380 

2630 NEXT ffii 

2648 PRINT 

2658 GOTO 218 

2668 PRINT 

2678 PRINT "VOU NOUN ED THE MINOTAUR" 

2688 FOR VIA TO 756 NEXT IV. 

2698 CLS-. PRINT "THE MINOTAUR IS CHARGING" 

2708 IF X1X>X2X THEN 2738 

2718 X3X=1 

2728 GOTO 2758 

2738 X5Z=-1 

2748 GOTO 2750 

2758 IF Y1X>Y2X THEN 2788 

2766 V3M 

2770 GOTO 2880 

2786 V3X=-1 
2798 GOTO 2888 

2800 IF L1X>L2X THEN 2820 

2810 GOTO 2828 

2828 L3X=-i 

2838 IF UX=L2i THEN 2880 

2846 L1X=L1X+L3X 

2856 PRINT "LEVEL";! IX 

2860 GOTO 2838 

2878 REH HI THERE 

2886 IF XiX=f2X THEt 2938 

2898 X1X=X1X+X3X 

2980 GOSUB 2976 

2910 PRINT "C";X1X;' ";YiZ;")" 

2920 GOTO 2860 

2930 IF V1Z=V2Z THE! 3848 

2940 V1X=V1X+V3X 

2956 GOSUB 2378 

2960 GOTO 2918 

2978 FOR PX=i TO 18 

2980 IF BX<P,'0=XiX I ND CX(PX)=Y1X THEN 3018 

2930 NEXT PX 

3883 RETURN 

3818 PRINT "P.777777: ZZZZZZZZZZZZOHMT! HINOTRUR JUST FRIED HISSELF" 

3820 PRINT "VOU WIN VOU LUCKEY SCRB" 

3830 GOTO 1376 

3640 PRINT "BITE" 

3859 PRINT "CHEW" 

3063 PRINT "CHOMP" 

3078 PRINT 'GULP" 



3088 PRINT "VOU 
3098 GOTO 838 
3100 RBI PRINT P 
3110 PRINT "HHT 
3126 INPUT L4X 
3138 CLS 
3148 REM PRINT t 
3150 PRINT " :, 
3168 PRINT TfiBC 
3178 PRINT « h 
3188 PRINT TflBC 
3198 REH V4 IS 
3280 FOR Y4X=18 
3218 REM 24=1 P : 
3228 FOR 24M 
3238 REN CHECK 
3248 IF Z4X=2 fi: 
3258 REM PRINT I 
3268 IF Z4Z=1 f; 
3278 REH PRINT i 
3288 IF Z4X=i fi: 
3238 ISM PRINT 1 
3380 IF Z4Z=2 F: 
3310 RBI PRINT 
3320 IF Z4X=2 f 
3330 RBI PRINT 
3346 IF Z4X=2 f: 
3358 REM IF 24= 
3368 IF Z4Z=2 1 
3370 REH X4 IS 
3386 FOR X4X=-i 
3398 IF Z4X=1 i 
3460 IF X2X=X4;, 
3418 IF X4X=Xt'; 
3428 IF L4Z=Si: 
3438 FOR AX=1 ; 

3440 if mm-: 

3450 GOTO 3580 
3468 NEXT AX 
3470 IF X4X=0 I 
3488 IF X4X=8 I 
3438 PRINT " " 
3586 GOTO 3638 
3518 PRINT "V" 
3528 GOTO 3598 
3538 PRINT "tf; 
3548 OOTO 3566 
3550 IF S3X=8 
3568 PRINT "S". 
3576 GOTO 3580 
3580 PRINT "B". 
3590 GOTO 3586 
3688 PRINT "0" 
3610 GOTO 35K 
3626 PRINT "X" 
3638 NEXT W. 
3640 NEXT Z4Z 
3618 Y4X=ABS(V 
3668 PRINT 
3676 NEXT W. 
3688 PRINT 
3696 PRINT •- 
3788 PRINT THI 
3716 PRINT 6 !' 
3728 GOSUB 38C 
3738 PRINT 
3748 OS 
3750 GOTO 2341 
3760 PRINT "«: 
3770 GOTO 898 
3788 PRINT "V! 
3738 S9X=8 
3888 GOTO 236 
3818 PRINT "H: 
3828 PRINT "S : 
3830 GOTO 370 
3-840 STOP 
3858 END 
3868 PRINT : 
3878 IH*=INKE' 
3886 RETURN 



LOSE, SUCKER" 



LEVEL"; 



2ADER FOR BOftRD 

,-i TflB(13) CHRK92); TRB(23)"i"; 
;2)" i";TAB(45> CHR«92); TRB(55)"1" 
LS8765432161234567838+"; 
■4) "-038765432101234567898+" 
VERTICAL COORDINATE 
TO STEP -1 

INTS TOP OF BOARD; Z4=2 PRINTS BOTTOM PART 
TO 2 
IF DONE 

!D Y4X=8 THEN 3680 
0SIT1VE V COORDINATE OTHER THEN 10 
ID V4X016 PRINT V4& 
'OSITIVE 16 
ID V4M0 PRINT "+18* ; 
EGATIVE 10 

ID Y4X=i PRINT TRB(32)"-18"; 
EGATIVE 1 <1 KITH NEGATIVE SIGN) 
iD Y4X=18 PRINT TRB(32)"-1 "; 
EGATIVE V COORDINATE 

HD Y4X018 AND Y4X01 PRINT TflBC32)i6-V4X+li 
2 CONVERT V4 TO ICGAT1VE V4 
m W/.--W. 
HORIZONTAL COORDINATE 
9 TO 16 

HINT TftBG)"; ELSE PRINT TABC35)""; 
: m V2X=V4Z AND L4X4.2X THEN 3516 
: AND Y4X=Y1X AND L4X=L1X THEH 3538 
: AND Y4X=S2X AND L4X=53X THEN 3558 
18 
>X4X OR CX(AX)OY4Z THEN 3468 



MD Y4Z=8 THEN 3688 
R Y4X=8 THEN 3628 



THEN 3436 



KEV— *-. TAB(16); "Y=YOU"; TABC32); "H=H1N0TAUR"; TABC48); "S=$PEAR" 
(16) *B=BARRIER"; TABC32); "0=ORIGIH"; TABC48); "X=AX1S" 
60, STRING$(63," "); 

.3 



NOTOUR MOVED TO VOUR SPOT. HE SAID VOU TASTED GREAT! I 
j!J HAVE VOUR SPEAR" 



AN VOU THROW VOUR SPEAR IF VOU DON'T HAVE ONE?" 
IS AT<";SiXiV';S2Xj") ON LEVEL ";S3X 



75, "(PRESS ANY KEY TO CONTINUE)*; 
'l:IF IN*=" THEN 3878 
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Notocycle Jump 



This program, originally titled EVILK 
permits you to act out your fantasies of 
being a motorcycle daredevil! The 
game is a simple motorcycle jump over 
several busses, which takes into ac- 
count both gravity and drag forces. The 
ramp angle and motorcycle speed 
determine the distance jumped. Note 
that the injury penalty is greater for 
long jumps than for short ones, and 
that there is a chance for a crash even 
on a jump of the right length. This 
probability, initially set at .20, can be 
modified in line 450 to make survival 
more or less likely. 

This program was written by Charles 
Aylworth and originally appeared in 
Creative Computing, Jul/Aug 1978. 



M0T0RCVCLE JUMP 
COPVRIGHT 1S79 CREATIVE COMPUTING MORRISTOWN, NJ 



■ els • 



WE'RE AT THE SCENE OF THE BIG M0T0RCVCLE JUMP 1 
HOW MRNV BUSSES WILL VOU TRV TO JUMP? 5 
5 BUSSES! THAT'S 75 FEET! 
mRT RAMP ANGLE WILL VOU USE? 22 
HOW FAST WILL VOU LEAVE THE RAMP? 18 

*** G D LUCK*** 
els 



THERE HE GOES! ! ! ' 

«*HE'S SHORT OF THE RAMP .... 

I THINK HE'S HURT. 

ICLL, KILLER, THE DOCTOR SAVS VOU BROKE VOUR: 
RLEG RIBS PaVIS R. ARM BIKE FACE BACK 
NECK PRIDE LARM SKULL KNEE BUTT 
WANT TO JUMP AGAIN? VES_ 

els 

WE'RE AT THE SCENE OF THE BIG MOTORCVCLE JUMP 1 
HOW MANV BUSSES WILL VOU TRV TO JUMP? 5 
5 BUSSES! THAT'S 75 FEET' 
WHAT RAMP ANGLE WILL VOU USE? 22 
HOW FAST WILL VOU LEAVE THE RAMP'' 46 

«** G D LUCK*** 

els 

THERE HE GOES!!! 1 

tt***********HE'S SHORT OF THE RAMP 

I THINK HE'S HURT 

WELL, KILLER, THE DOCTOR SAVS VOU BROKE VOUR: 
FACE KNEE NECK BUTT 
MANT TO JUMP AGAIN? VES- 
els 



L LEG 



WE'RE AT THE SCENE OF THE BIG MOTORCVCLE JUMP 1 
HOW MANV BUSSES WILL VOU TRV TO JUMP? 5 
5 BUSSES! THAT'S 75 FEET 1 
WHAT RAMP ANGLE WILL VOU USE? 22 
HOW FAST WILL VOU LEAVE THE RAMP? 48 

*** G D LUCK*** 

els 

THERE HE GOES!!!' 
***************HE 



IT! GREAT JUMP, KILLER! 



WANT TO JUMP AGAIN? NO. 



els ■ 



10 CLS: PRINT8489, "MOTORCVCLE JUMP" 

20 PRINT- PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 FOR R=i TO 2800: NEXT 

40 CLEAR 208: DIM 12(14), I*<84> 

50 I$="R. ARM L ARM R. LEG L. LEG BACK NECK SKULL RIBS KNEE BUTT " 

60 I*=I*+»FflCE PaVISPRIDE BIKE " 

78 T=. i 

S3 T2=0 

98 T3=0 

100 CLS. PRINT "WE'RE AT THE SCENE OF THE BIG MOTORCVCLE JUMP"' 

110 PRINT064, CHR*<31); INPUT "HOW MANV BUSSES WILL VOU TRV TO JUMP"; N 

120 J=N*15 

130 PRINT0128, N; "BUSSES! THAT'S"; J; "FEET"' 

140 PRINT0192, CHR$<31>; : INPUT "WHAT RAMP ANGLE WILL VOU U5E";A2 

158 IF A2<90 AND A2>0 THEN 188 

168 PRINTC192, H2; "DEGREES? THAT'S IMPOSSIBLE. COME ON NOW, " 

178 FOR A=l TO 500: NEXT A: GOTO 140 

188 R=A2*. 81745 

198 PRINT0256, CHR*G1>; : INPUT "HOW FAST WILL VOU LEAVE THE RAMP";S 

280 IF S<=8 THEN 198 

210 PRINT PRINT "***GOOD LUCK ***"■ PRINT 

226 H=6 

239 D=0 

248 G=6 

258 R2=8 

266 S2=8 

278 S=S*1. 5 

288 PRINT "THERE HE GOES! ! ! "' 

298 S=S-S2 

390 F=S*T 

318 D2=F*C0S<A> 

328 R=F*SIN<A) 

338 R2=R2+<32*T> 

340 R3=R2*T 

350 H=H+R-R3 

368 D=D+D2 

370 PRINT "*"; 

380 S2=<S/120)*32*T 

390 IF D>=J THEN G=G-R 

400 IF G<=0 THEN 0=0 

418 IF K>G THEN 290 

420 IF DO THEN 490 

430 IF D>J+20 THEN 520 

448 L=«D-J>/30>+RND<8> 

458 IF L>. 8 THEN 538 

468 PRINT "HE MADE IT 1 GREAT JUMP, KILLER!" 

470 T2=T2+1 

480 GOTO 768 

490 PRINT "HE'S SHORT OF THE RAMP • 

500 L2=INT««J-DV5>*2>+<RNDC8>*5H. 5) 

510 GOTO 550 

520 PRINT "HE JUMPED TOO FAR!" 

530 PRINT "HE MISSED THE RAMP ■ 

548 L2=INT«CD+2B-JV28)-KRND<8>*5» 

558 PRINT "I THINK HE'S HURT " 

568 FOR K=l TO 14 

570 I2<K>=K 

580 NEXT K 

590 K2=14 

600 IF L2>14 THEN L2=14 

610 IF L2<=0 THEN 1.2=1 

620 FOR K=i TO L2 

630 V=INT(RND(0)*1000> 

640 V=<V-<INKV/K2)*K2>>+1 

658 H2=I2<V> 

660 I2<V)=I2<K2> 

6?e i2<K2>=H2 

688 K2=K2-1 

690 NEXT K 

700 PRINT "WELL KILLER, THE DOCTOR SAVS VOU BROKE VOUR:" 

718 FOR K=<15-L2> TO 14 

720 P=(6*I2(K»-5 

738 H*=MID$(I$, P, 6> 

740 PRINT A*; " "; 

759 NEXT K 

760 T3=T3+1 

778 PRINT: INPUT "WANT TO JUMP AGAIN"; A* 

780 IF LEFT*<A$, 1>="V" THEN 100 

798 CLS: PRINT "VOU MADE IT";T2;"0UT OF"; T3; "ATTEMPTS. " 

888 PRINT "BE CAREFUL, NOW. " 

810 END 
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NOMAD 



COPYRIGHT 1979 CREATIVE COMPUTING NORRISTOWN, NJ 



"Gramma Nomad" is a person who 
doesn't really know where she wants to 
live, so she moves to a new house every 
game. Then she sends you a telegram 
asking you to visit her. The object of the 
game is to successfully navigate your 
way through the streets of Garbonzo 
City to Gramma's house. See the game 
for more details. A map of Garbonzo 
City is provided for your reference. 

Nomad was written by Steve Trapp 
and first appeared in Creative Com- 
puting, Sep/Oct 1977. 



DO YOU NEED INSTRUCTIONS? YES. 
els • 



GRAMMA NOTO IS fl NICE OLD LRDY HHO HflS NOT QUITE 
HADE UP HER HIND HOE SHE WWTS TO LIVE. 
SHE HAS HARROWED IT DOW TO SOMEWHERE IN GARBONZO CITY 
AND ON A STREET CORNER. 

AT THE BEGINNING, THE MAILMAN GIVES YOU fl TELEGRAM WRITTEN 
8Y GRAMMA TELLING YOU WERE SHE LIVES. 
(I HILL READ IT TO YOU). 

YOU GET INTO YOUR CAR AT LRAC NILKNARF NAHGREB LODGE. 
FROH THERE YOU GO TO GRRfflflS HOUSE. 

PRESS ANY KEY TO CONTINUE 
Cl3 



GRAKffi NOW IS A NICE OLD LADY HHO HAS HOT SUITE 
HADE UP HER HIND WHERE SHE HANTS TO LIVE 
SKE KRS NARROWED IT DOW TO SOKEBOE IN GARBONZO CITY 
AH) ON A STREET CORNER 




AT THE BEGINNING, THE MAILMAN GIVES YOU A TELEGRAH WITTEH 
BY GRAffiA TELLING YOU WHERE SKE LIVES. 
(I HILL READ IT TO YOU). 

YOU GET INTO YOUR CAR AT LRBC NILKNARF NAHGREB LODGE 
FROH THERE YOU GO TO GRAHHAS HOUSE. 

PRESS ANY KEY TO CONTINUE 

els 



YOU TRY TO GET THERE HITHOUT: 

CRfiSHUPS 

TICKETS 

aAT TIRES 

RUNNING OUT OF GAS 

DEADENDS 

THERE IS AN 8-HAN POLICE FORCE ENFORCING THE LANS 
OF GARBONZO CITY. 

PRESS ANY KEY TO CONTINUE 
els 



THERE ARE 2-DRUHKS ON THE STREETS OF GARBONZO 

CITY. 

IF A POLICEMAN CATCHES A DRUNK, HE HAS TO 

TESTIFY IN COURT 

(WHICH TAKES TKE REST OF TKE GAME) 

IF A DRUNK DRIVER HITS YOU, YOU LOSE 
AT EACH JUNCTION, I HILL TELL YOU: 
TKE DIRECTION YOU ARE GOING 
TBE ROAD YOU ARE ON 
TKE ROAD CROSSING 

PRESS ANY KEY TO CONTINUE 
els 



I HILL ASK YOU: 

THE HAY YOU HANT TO TURN (I. E , LEFT) 

SPEED (IN HPH) 

AN OVERPASS IS NOT A JUNCTION, SO IT IS 

MERELY SKIPPED OVER. IT IS UNANNOUNCED. 

♦THAT IS ALL* 

HHAT IS YOUR NAME? CHRIS 



*** GOOD LUCK «** 



• cla • 



120 



DBS ORIS, 

HON ARE YOU? I LIVE fiT TIE CORNER 

OF ROfiD t 16 S89 !!! 

COME ON OVER. 

LOVE, 

mm 

((TELEGRAM CORP. TELEGRflH CO. )) 
SHOOSH. . . BUS FLATTENED YOUR CAR 



flGaiN? VES_ 



• els ■ 



DEM? ORIS, 

HOH PRE YOU? I LIVE RT THE CORNER 

OF RORD 8 14 8 #8 !!! 

COHEONOVER 

LOVE, 

mm 

((TELEGRRHHA CORP. TELEGRflH CO. )> 

GOING SOUTH ON ROAD » 1 

JUNCTION: ROflD i 1 1 1 2 

FORMS®, LEFT, RIOT OR U-TURN? F. 

els 

DERR CHRIS, 

HOH PRE YOU? I LIVE AT TIE CORNER 

OFROK) I 14 t 18 !!! 

CMC ON OVER. 

LOVE, 
GRffWi 

((TELEGRflKHfl CORP. TELEGRflH CO. » 

GOING SOUTH ON ROflD « 1 

JUNCTION: RORD f 1 t 8 2 

FORNRRD, LEFT, RIOT OR U-TURN? F 

SPEED? 40. 

els 

GOING SOUTH ON ROflD « 1 

JUNCTION: ROAD 8 1 4 8 4 

FORWARD, LEFT, RIGHT OR U-TURN? F 

SPEED? 45. 

els 

FW... BULLDOG ATE YOUR TIRE! 



AGAIN? YES. 



els ■ 



DERRCKRIS, 

HOH ARE YOU? I LIVE AT THE CORNER 

OF ROfiD I 15 t 8 16 !!! 

C9E OH OVER. 

LOVE, 
GRRKttA 

((TELEGRftHHA CORP. TELEGRAM CO. » 
GOING SOUTH ON ROAD I 1 
JUNCTION: RORD f 1 6 8 2 
FORHRRD, LEFT, RIGHT OR U-TURN? F 
SPEED? 60. 

els 

*** SPEEDING *** 
NOT CAUGHT 



■ els ■ 



GOING SOUTH ON ROAD I 1 
JUNCTION: ROAD 8 1 t 8 4 
FORRARD, LEFT, RIGHT OR U-TURH? F 
SPEED? 55. 

els — 

GOING SOUTH ON ROflD 8 1 
JUNCTION: ROflD # 1 4 8 5 
FORWRD, LEFT, RIGHT OR U-TURN? F 
SPEED? 78. 

els — 

*** SPEEDING *** 

HOT CfiUGHT 

*** OUT OF GflS «* 

AGAIN? NO. 



18 OS 

28 PRINT 8 413, "NOHAD" 

38 PRINT 

48 PRINT TRB(7)"C0PYRIGHT 1979 CREATIVE CONFUTING HORRISTOHN, NJ" 

58 PRINT t 968, "; 

68 INPUT-DO YOU NEED INSTRUCTIONS"; I* 

78 DIH K*(38), 0(2, 2), R(38, 38), E(38, 38), PCS, 2), C<38) 

88 DIH H<38> 

SB DIH HK38) 

188 REH GOSUB RULES 

118 GOSUB 2278 

128 REH RRNDOH NUMBERS 

138 REH DEF FNA(X)=lNT(RND(8)*X)tl 

148 REH 8 OF ROflDS 

158REHDN 

168 FOR R=l TO N 

178 REH 8 OF INTERSEC 

188RERDQ 

198 C(R)=ABS(Q) 

288 IF KB THEN 238 

218 H<RM 

228 GOTO 248 

238 H(R>=-1 

248 REM DIREC, ROflD 

258 FOR J=l TO C(R) 

268 REBD E(R, J), R(R, J) 

278 NEXT J 

288NEXTR 

298 REH HAKE? 

388 PRINT "HKAT IS YOUR NflBE'; 

318 INPUT Ht 

328 REH OPENING STATEMENT 

338 PRINT 

348 PRINT ■*** GOOD LUCK ***" 

358 REH 6RAHHAS HOUSE 

368 H1=RND<N) 

378 H2=RHD(C(Hi)) 

388 REH DRUNK DRIVERS 

396 REH POLICE 

488 FOR R=l TO 8 

416 Ptfl, 1)=RHD(N> 

428 P(A, 2)=RHD(C(P(A, 1») 

438 NEXT fl 

448 REH LRAC NILKNARF NAHGREB LODGE 

458 R=i 

468 J=8 

478 1=1 

488 REH GOSUB CHECK 

498 GOSUB 1458 

588 REH GOSUB TELEGRflH 

518 GOSUB 1568 

528REHRDD INCREMENT 

538 J=J+I 

548 REM HEED REPAIR? 

558 IF RHD(18)=i THEN 1888 

568 REH DEAD END? 

578 IF J>C(R) OR J=8 THEN 2888 

588 REH DIRECTION 

598 IF I=-l THEH 628 

668 D=E(R, J) 

618 GOTO 638 

628 D=9-E(R J) 

638 REH ROM) CROSSING 

648 C=R(R, J) 

658 REH SKIP LIKE 

668 PRINT 

678 REH GOSUB *DIREC, ROAD ON* PRINT 

688 GOSUB 1628 

696 REH AT GRRKHAS? 



776 IF LEFTJCW, 1)="F" THEN 978 

788 IF LEFTJU*, 1>="R" THEN 868 

798 IF LEFTKK, 1)="L" THEN 888 

888 IF LEFT»(I$, i)="U" THEN 848 

816 REH GOOFED 

828 PRINT "*** YOU GOOFED ***" 

838 GOTO 758 

848 1=1*1 

858 GOTO 978 

868 I=H(R)*I 

878 GOTO 898 

888 I=-1*W(R)*I 

898 FOR A=l TO C(C) 

988 IF R(C, A)=R THEN 938 

916 NEXT R 

928 GOTO 2988 

938 R=C 

948 J=fl 

956REHDRRE? 

968 IF RHX4M THEN 1268 

978 REH SPEED 

988 PRINT ■SPEED"; 

998 INPUTS 

1886 OS 

IfliB REH DRNGEROUSITV CRflSH CHECKS 

1828 IF S>168 THEN 2138 

1838 IF S<38 THEN 2166 

1848 REH ILLEGAL? 

1858 IF S>55 THEN 2836 

1868 REH DRUKK DRIVERS DRIVE 

1878 FOR A=l TO 2 

1888 IF D(A, 1)=8 THEN 1118 

1698 D(A, 1)=RND(N) 

1188 D(A, 2>=RN0(C(D(A, 1)» 

1116 NEXT A 

1128 REH HIT BY DRUNK DRIVER? 

1138 FOR A=l TO 2 

1148 IF DCA, 1)=8 THEN 1178 

1158 IF D(A, 1)=R AND R(R, J)=R(D(A, 1), D(A, 2» THEN 1858 

1168 IF D(A, i)=R(R, J) RND R(D(A, 1), D(ft 2))=R THEN 1858 

1178 NEXT A 

1188 REH IS DRIVER CAUGHT? 

1198 FOR R=l TO 2 

1268 IF D(fl, D=8 THEN 1246 

1216 FOR B=i TO 8 

1228 IF D(fl, 1>=P(B, 1) AND D(fl, 2)=P(B, 2) THEN 1386 

1238KEXTB 

1248 NEXT A 

1258 GOTO 52e 



786 IF H1=R RND R(R, J)=R(HL H2) THEN 1828 1268 REH SPEED DARE PRINT 

716 IF H1=R(R, J) AND R=R(H1, H2) THEN 1828 1276 ON RND(3) SOTO 1288, 1388, 1328 



728 REH JUNCTION 

738 PRINT "JUNCTION: ROAD S";Pj" 4 t°;C 

748 REH ASK BHAT RAY TO TURN 

758 PRINT "FORWARD, LEFT, RIOT OR U-TURN" 

768 INPUT 1$ 

121 



1288 PRINT "I DARE YOU TO SPEED ** (DAREDEVIL)" 
1298 GOTO 1338 

1388 PRINT **SPEEDING* IS FUN (SO DO IT)!!" 
: 1316 GOTO 1338 
1326 PRINT ■♦SPEED* I DARE YOU *SPEED* I DARE YOU' 



1338 GOTO 978 

1348 FEH OMSK OUGHT 

1358 PRINT "A DRUNK DF 

1368 PRINT "ARRESTED t 

1378 PRINT 'TIE REST C 

1388 PRINT 

1338 DCR, 1)=8 

1488 MR, 2)=8 

1418 P<B. 1)=8 

1428 P<B, 2)=8 

1438 GOTO 528 

1448 REH CHECK 

1458 FOR R=i TO S 

1468 IF m=P<fl, 1) m 

1478 IF H1=R(P<A, 1). 

1488 TEXT R 

14S8 RETURN 

1568 REH TELEGRAH PRII 

1518 PRINT 

1528 OS 

1538 PRINT "DEAR ";H*. 

1548 PRINT "HOM ARE VI 

1558 PRINT "OF ROAD I' 

1568 PRINT "COG ON ff 

1578 PRINT " 

1588 PRINT ' 

1538 PRINT "UTELEGRK 

1688 PRINT 

1618 RETURN 

1628 REH *D1REC, ROAD 

1638 PRINT 'GOING '; 

1648 ON D GOTO 1658, : 

1658 PRINT -NORTH'; 

1668 GOTO 1888 

1678 PRINT "WEST"; 

1688 GOTO 1888 

1698 PRINT "HOSTHERST 

1788 GOTO 1888 

1718 PRINT "SOUTHEAST 

1728 SOTO 1888 

1738 PRINT 'NMTOST 

1748 GOTO 1888 

1758 PRINT 'SOUTHHEST 

1768 GOTO 1888 

1778 PRINT 'ERST"; 

1788 GOTO 1888 

1738 PRINT "SOUTH"; 

1888 PRINT " OS RORO 

1818 RETURN 

1828 REN RT GRftKCi * 

1838 PRINT 'YOU hj£ 

1848 GOTO 2188 

1858 REH DRUNK HIT VO 

1868 PRINT "KERSPLATT 

1878 GOTO 2188 

1888 REM CflR NEEDS FI 

1898 ON RND(5) GOTO 1 

1968 PRINT "POP. . . FLR 

1318 GOTO 1998 

1328 PRINT ■FUP...W 

1938 GOTO 1996 

1948 PRINT •*** OUT 

1358 GOTO 1998 

1968 PRINT "SHOOSH.J 

1378 GOTO 1398 

1388 PRINT "POP...BUU 

1998 GOTO 2188 

2688 REH DERD EM) PRI 

2818 PRINT "*»* DERD ! 

2828 GOTO 2188 

2838 REH SPEEDING 

2848 PRINT '«* SPEED 

2858 REH CAUGHT BY PO 

2868 FOR X=i TO 8 

2878 IF Pa 1)=R M> 

2888NEXTX 

2898 PRINT 'NOT CRUGH 

2168 GOTO 1858 

2118 PRINT "CMGKT SP 

2128 GOTO 2186 

2138 REH TOO FAST *CR 

2148 PRINT "KERSKOUSH 

2158 SOTO 2188 

2168 REH TOO SLOW *CS 

2178 PRINT '-*«KRUNC 



IVER HRS BEEN CAUGHT. THE POUCEHRN HHO" 
IH HILL BE TESTIFYING AT COURT FOR" 
•TREGRKE." 



RCH1, H2)=R<P<A, 1), P<R, 2)) THEN 358 
>(A, 2» HO R(HL K2)=P<fl, 1) THEN 358 



MP 



U? I LIVE RT THE CORNER' 
iHf 8I";R<H1, H2);'!!!" 
ER," 

LOVE," 
GRAHffi* 
RRCORP. TELEGRAH CO. »" 



ON* PRINT-UP 

678, 1698, 1718, 1738, 1756, 1778, 1798 



RIHT* 

T TO GRflHHR'S BOUSE !!!!!!!!! 



R CAR »PRINT* 

-DRUNK DRIVER HIT YOUR OR ' 

IING «PRINT-UP* 
88, 1928, 1948, 1368, 1388 
TIRE' 

R 08 DID R SUBERSALT" 

GftS***" 

US FLATTENED YOUR CHI ' 

DOG RTE VOUR TIRE!' 

.T 

ND «*»" 



NG***" 
.ICE? 



P(X. 1>=J THEN 2118 



EDING BY THE POLICE!!" 

BH* 

IEEEE. . . NEXT TOO FRST !!!!' 

EH* 

!)>*- TOO StOH . . CRR BEHIND RBI INTO VOU!" 



2188 REH flGRIH? 

2138 PRINT 

2288 PRINT "AGAIN"; 

2218 INPUT M 

2228 IF LEFT«K, i!="Y" THEH 298 

2238 REH CLOSING STATEMENT 

2248 PRINT 

2258 PRINT ■*** SEE VOU ***" 

2268 GOTO 2988 

2278 REH RULES? 

2288 REH RULES 

2298 IF LEFT«K, i:="N" THEN OS: GOTO 2768 

2368 OS 

"GRRHHA COSflD IS A NICE OLD LRDY HHO HAS NOT QUITE" 
"HRDE UP HER HIM) HKERE SHE HANTS TO LIVE " 
'SHE HAS liARROHED IT DOWN TO SKB4€RE IN GRRB0N20 CITY" 
■AND ON f! STREET CORNER " 



2316 PRINT 
2328 PRINT 
2338 PRINT 
2348 PRINT 
2358 PRINT 
2368 PRINT 
2378 PRINT 
2388 PRINT 
2338PSIHT 
2468 PRINT 
2418 PRINT 



■AT THE IHilNNING, THE KfllLHAN GIVES VOU A TELEGRAH WRITTEN" 
■BY GRAMA TELLING VOU KHERE SHE LIVES. " 
■(I MIL READ IT TO YOU). " 



'YOU GET INTO VOUR OK AT LRAC NILKNARF KAHGREB LODGE. " 

■FROM THERE VOU GO TO GRAKHAS HOUSE ■ 
2428 GOSUB 2938 

2438 PRINT "VOU TRY TO GET THERE WITHOUT: 1 
2448 PRINT "CRASHUPS" 
2456 PRINT "TICKETS' 
2468 PRINT "FLAT TIKES" 
2478 PRINT "RUNNING CUT OF GAS" 
2488 PRINT 'DEAD EH)S" 
2498 PRINT 

2588 PRINT "THERE IS AN 8-HRN POLICE FORCE Elf ORCING THE LANS' 
2518 PRINT 'OF GARBKEO CITV. ' 
2528 GOSUB 2998 

2538 PRINT 'THERE RE 2-DRUNKS ON THE STREETS OF GARBONZO" 
2548 PRINT "CITV. ' 
2558 PRINT 
2566 PRINT 
2578 PRINT 
2588 PRINT 
2598 PRINT 
2686 PRINT 
2618 PRINT 
2628 PRINT 
2638 PRINT 



"IF R POUCEHRN CATCHES fl DRUNK, HE HRS TO' 

'TESTIFY IN COURT' 

■OHICH "RKES THE REST OF THE MB' 

"IF A DRUIJC DRIVER HITS YOU, YOU LOSE. ' 



RT ERCH JUNCTION, I HILL TELL YOU:' 
THE DIRECTION VOU ARE GOING" 

2648 PRINT "THE RON) VOU ARE ON" 

2658 PRINT "THE ROAD CROSSING" 

2668 GOSUB 2393 

2678 PRINT "I HILL ASK VOU:" 

2688 PRINT "THE NAY YOU HAHT TO TUSH (I.E, LEFT)" 



2698 PRINT "SPEED (IN HPH)" 






2788 PRINT 






2718 PRINT "AN OVERPASS IS NOT A JUNCTION, SO IT IS" 






2728 PRINT "KERRY SKIPPED OVER. IT IS UNANNOUNCED. ' 






2738 PRINT 






2748 PRINT 'tTHAT IS ALL*" 






2758 PRINT 






2768 RETURN 






2778 REH DATA LINES 






2788 DRTA 18 






2798 DRTA -8, 8, 2, 8, 4, 8, 5, 8, 11, 8, 7, 8, 8, 8, 9, 8, 


18 




2888 DATA 3, 7, 17, 7, 18, 7, 1 






2818 DATA 2, 7, 17, 7, 18 






2826 DATA 3, 7, 18, 7, 1L 7, 1 






2838 DRTA 7, 8, 8, 3, 9, 8, 18, 7, 18, 7, 11, 7, i L 6 






2848 DRTA -2, 7, 18- 7, 5 






2858 DATA 2, 7, 1, ?, 11 






2868 DATA 8, 7, 16, 7, 15, 7, 5, 7, 14, 7, 13, 7, 1, 7, 12, 


7, 


11 


2878 DATA 8, 7, 16, 7, 15, 7, 5, 7, 14, 7, 13, 7, 1, 7, 12, 


7, 


it 


2888 DATA 8, 7, 16, 7, 15, 7, 5, 7, 14, 7, 13, 7, L 7, 12, 


7, 


11 


2898 DRTA -7, 4, 4, 4, 5, 4, h 4, 7, 8, 8, 8, 9, 8, 18 






2988 DATA -3, 8, 8, 8, 9, 8, 18 






2318 DATA -3, 8, 8, 8, 9, 8, 18 






2928 DATA -3, 8, 8, 8, 9, 8, 18 






2933 DATR -3, 8, 8, 8, 9, 8, 18 






2348 DATA -3, 8, 8, 8, 9, 8, 18 






2958 DATR -2, 8, 2, 3, 3 






2368 DATR -5, 8, 2, 8, 3. 8, 4, 8, 5, i, 6 






2978 DATA 8, 8, 8, 3, 8, 8, 8 






2988 END 






2998 PRINT 8 973, "PRESS ANY KEY TO CONTINUE"; 






3888 IF IHKEYJ ="" THEN 3888 






3818CLS 






3828 RETURN 
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Not One 



The game, Not One, sometimes 
known as Pig, is played with two 
players and a pair of dice. There are ten 
rounds in the game; one round con- 
sisting of one turn for each player. 
Players add the score that they attain 
on each round and the player with the 
highest score after ten rounds is the 
winner. 

On each turn, the player may roll the 
two dice from one to as many times as 
he wishes. If the total of the dice on any 
roll after the first equals the total shown 
on the first roll, his score is then zero 
for that entire turn and the dice pass to 
the other player. On the other hand, if 
the total on his dice is anything 



different from the total on the first turn, 
he continues to roll and adds the totals 
of the dice to his score. After each 
successful roll, the player can decide 
whether to roll again or stop and score 
the number of points already obtained. 

You'll find that the computer plays a 
surprisingly good game of Not One. To 
beat it, you'll need some knowledge of 
probabilities and a little bit of luck on 
your side. 

Not One was written in response to a 
challenge that appeared in the charter 
issue of Creative Computing. The 
game was written by Robert Puopolo 
and first appeared in Creative Com- 
puting, Mar/Apr 1975. 




NOT-ONE 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 

DO VOU NEED INSTRUCTIONS? VES_ 

ola 



PRESS flNV KEV TO CONTINUE 
ola 



ROUND 1 



NOT-ONE 

THE GAME OF NOT-ONE IS 

RAVED WITH TWO PLRVERS AND A PAIR OF DICE. THERE ARE 

TEN ROUNDS IN THE GAME, EACH ROUND CONSISTING 

OF ONE TURN FOR EACH PLAVER. PLAVERS 

(YOURSELF AND THE COMPUTER) ADD THE SCORE 

THEV ATTAIN ON EACH ROUND, AND THE PLAVER 

HITH THE HIGHEST SCORE AFTER TEN ROUNDS IS THE WINNER 

PRESS flNV KEV TO CONTINUE 



4 ROLL AGAIN? V 
6 ROLL AGAIN? V 
10 ROLL AGAIN? V 
6 ROLL AGAIN? V 

4 VOU GET A ZERO FOR THIS ROUND. 
els 



ROUND 1 



COMPUTER'S ROLL #1.9 
COMPUTER'S ROLL * 2: 8 
COMPUTER'S ROLL # 3: 7 
COMPUTER'S ROLL # 4: 9 
THE COMPUTER GETS A ZERO FOR THE TURN! 
da 



ROUND 2 



COMPUTER: 



VOU: 



• ols • 



11 ROLL AGAIN? V 



NOT-ONE 

ON EACH TURN THE PLAVER MAV ROLL THE TWO 

DICE FROM 1 TO N TIMES. IF Tl IS THE TOTAL OF DICE ON 

THE ITH ROLL, THEN THE PLAVERS SCORE FOR THE TURN IS 

T<l)+T(2)+T<3)+ +T<N). HOWEVER, 

AND HERE'S THE CATCH, IF ANV T<I) IS EQUAL TO TCi) THEN 
THE TURN IS OVER AND HIS SCORE FOR THAT ROUND IS ZERO. 
AFTER EACH ROLL THAT DOESN'T EQUAL T(l), THE PLAVER CAN 
DECIDE WHETHER TO ROLL AGAIN OR STOP AND 
SCORE THE NUMBER OF POINTS ALREflDV OBTAINED. 



7 ROLL AGAIN? ' 
6 ROLL AGAIN? 

8 ROLL AGAIN? ' 
? ROLL AGAIN? 
8 ROLL AGAIN? 

6 ROLL AGAIN? 
10 ROLL AGAIN? V 
4 ROLL AGAIN? V 

7 ROLL AGAIN? V 
10 ROLL AGAIN? NO. 



ROUND 2 

COMPUTER'S ROLL # 
COMPUTER'S ROLL # 
COMPUTER'S ROLL # 
COMPUTER'S ROLL # 
COMPUTER'S ROLL # 
COMPUTER'S ROLL # 



ROUND 3 



7 ROLL 

8 ROLL 
6 ROLL 
3 ROLL 
11 ROLL 
6 ROLL 

5 ROLL 

6 ROLL 
8 ROLL 



AGAIN? V 
AGAIN? V 
AGAIN? V 
AGAIN? V 
AGAIN? V 
AGAIN? V 
AGAIN? V 
AGAIN? V 
AGAIN? NO- 



COMPUTER'S ROLL « 
COMPUTER'S ROLL # 
COMPUTER'S ROLL * 
COMPUTER'S ROLL * 



ROUND 4 

11 ROLL AGAIN? V 

3 ROLL AGAIN? V 

8 ROLL AGAIN? V 
10 ROLL AGAIN? V 
IB ROLL AGAIN? V 

4 ROLL AGAIN? V 
6 ROLL AGAIN? V 

6 ROLL AGAIN? V 

7 ROLL AGAIN? V 

9 ROLL AGAIN? V 

9 ROLL AGAIN? NO- 



ROUND 4 



COMPUTER'S 
COMPUTER'S 
COMPUTER'S 
COMPUTER'S 
COMPUTER'S 
COMPUTER'S 



ROLL # 1 
ROLL S 2 
ROLL # 3 
ROLL # 4 
ROLL * 5. 
ROLL # 6 



COMPUTER: 



VOU: 



6 
9 
5 

5 
10 



VOU: 84 



COMPUTER: 42 



■ ols 



VOU: 84 



COMPUTER: 42 



COMPUTER'S ROLL * 1. 
COMPUTER'S ROLL # 2: 



COMPUTER: 77 



■ ols 



VOU: 144 



COMPUTER: 



THE COMPUTER GETS A ZERO FOR THE TURN 



• Cl3 • 




ROUND 6 



5 ROLL AGAIN? V 

10 ROLL AGAIN? V 

11 ROLL AGAIN? V 
11 ROLL AGAIN? V 

6 ROLL AGAIN? V 

7 ROLL AGAIN? V 
18 ROLL RGAIN? V 
10 ROLL AGAIN? V 

8 ROLL AGAIN? NO_ 



VOU: 227 



COMPUTER: 77 



■ 0l8 ■ 



■ ClS ■ 
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ROUND 6 



VOU: 227 



COMPUTER: 77 



COMPUTER'S ROL . 


# 1. 


18 






COMPUTER'S ROL . 


it 2: 


9 






COMPUTER'S ROL . 


# 3: 


4 






COMPUTER'S ROL. 


# 4: 


7 






COMPUTER'S ROL. 


. « 5: 


5 






COMPUTER'S ROL. 


. « S: 


8 






COMPUTER'S ROL. 


. * ?■ 


IB 






THE COMPUTER C 1 


;TS A ZERO FOR THE TURN! ' 


ROUND 7 








VOU: 305 



COMPUTER: 77 



S ROLL AGAIN' V 

£ VOU GET A ;ERO FOR THIS ROUND. 



ROUND 7 



305 



COMPUTER: 77 



COMPUTER'S ROL. « 1: 7 
COMPUTER'S ROL. « 2: 7 
THE COMPUTER LETS fl ZERO FOR THE TURN!' 



■ els 



F:OUND 



VOU: 385 



COMPUTER: 77 



8 ROLL AGAIN' V 

7 ROLL AGAIN' V 
11 ROLL AGAIt ' V 
5 ROLL AGAIN' V 

8 VOU GET A ; ERO FOR THIS ROUND. 



ROUND 9 




7 ROLL AGAIN ' 


V 


8 ROLL AGAIN 


V 


9 ROLL AGAIN ' 


V 


9 ROLL AGAIN ' 


V 


2 ROLL AGAIN ' 


V 


12 ROLL AGAI 1? V 


10 ROLL AGAI (? V 


8 roll man ■ 


> V 


9 ROLL AGAIN ' 


NO_ 



els • 



VOU: 305 



COMPUTER: 77 



ROUND 9 



VOU: 305 



COMPUTER: 



COMPUTER'S ROLL « 1: S 

COMPUTER'S ROLL * 2: 11 

COMPUTER'S ROLL # 3: 12 

COMPUTER'S ROLL #4:7 

COMPUTER'S ROLL # 5: 6 

COMPUTER'S ROLL # 6. 8 

THE COMPUTER GETS A ZERO FOR THE TURN! 



ROUND 10 


S ROLL AGAIN? V 


i ROLL AGAIN? V 


4 ROLL AGAIN? V 


£ ROLL AGAIN? V 


I ROLL AGAIN? V 


Ei ROLL AGAIN? V 


<■ ROLL AGAIN? NO. 



els ■ 



VOU: 379 



COMPUTER: 77 



els 



ROUND 10 



VOU: 379 



COMPUTER: 77 



COMPUTER'S ROLL # 1. 7 

COMPUTER'S ROLL it 2: 5 

COMPUTER'S ROLL # 3: 11 

COMPUTER'S ROLL it 4: 7 

THE COMPUTER GETS A ZERO FOR THE TURN!' 



- els ■ 



FOUND 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



10TALS: 



VOU 



84 
60 
83 

78 



74 
40 



419 



COMPUTER 


42 
35 



77 



[LAY AGAIN? NO. 



10 CIS. PRINT0413, "I 
28 PRINT: PRINT TABC 
26 PRlNTeWB, "; II 
46DIHT<58>,R<i8>,C 
58 IF LEFTttlS.D^Y' 
68 CIS: PRINT TAB<28 
78 PRINT "PLAYED HIT 
80 PRINT "TEN ROUNDS 
90 PRINT "OF ONE TO 
108 PRINT "(YOURSELF 
110 PRINT "THEV PJTA 
128 PRINT "HITH THE 
138 FRINT8979, "PRES 
148 IF INKEVt=" THE 
158 PRINT "ON EACH T 
168 PRINT "DICE FROB 
178 PRINT "THE ITH R 
188 PRINT "TU)+T<2> 
198 PRINT "RND HERE' 

288 PRINT "THE TURN 
210 PRINT "AFTER EAC 
228 PRINT "DECIDE HH 
238 PRINT "SCORE THE 
248 PRINT8979, "PRES 
258 IF INKEY1=" THE 
268 as. FOR T=i TO 
278 X=X+i:Rl=INT<6# 

289 iS=INT(6*RHD(6): 

296 IF PEEKQ6416MF 
288 PRINT PJ.+R2; 
318 IF X>1 THEN 238 
328 Ui)=RHK2: 60TC 
238 T(X)=R1+R2 
248 IF Td)OT(X) TL 
258 PRINT "YCU GET f 
268 X=8: T1=0: GOTO 
278 T1=T1+T(K) 



OT-ONE" 

1 "COPYRIGHT 1979 CREATIVE COMPUTING NORRISTOUN, NJ" 

PUT "DO VOU HEED INSTRUCTIONS"; It 

18).L(28) 

THEN 68 ELSE 266 

"NOT-ONE"' PRINT: PRINT "THE GflHE OF NOT-ONE IS" 

THO PLfiVERS AND A PAIR OF DICE. THERE ARE" 
IN THE GflHE, EACH ROUND CONSISTING" 

FOR EACH PLAYER. PLAYERS" 
AND THE COHPUTER) ADD THE SCORE" 
N ON EACH ROUND, AND THE PLAYER" 
IIGHEST SCORE AFTER TEN ROUNDS IS THE DINNER" 

RNY KEY TO CONTINUE"; 
I 148 ELSE PRINT8128, CHRK31); 
KM THE PLAYER BAY ROLL THE THO" 
1 TO H TIKES. IF Tl IS THE TOTAL OF DICE ON" 
LL, THEN THE PLAYERS SCORE FOR THE TURN IS" 

■T<2)+ +T<N). HOHEYER," 

: THE CATCH, IF ANY T(I) IS EQUAL TO TCI) THEN" 

S OYER AND HIS SCORE FOR THAT ROUND IS ZERO. " 

I ROLL THAT DOESN'T EQUAL T(i), THE PLAYER CAN" 

:THER TO ROLL AGAIN OR STOP AND " 

NUHBER OF POINTS ALREADY OBTAINED. " 

; ANY KEY TO CONTINUE"; 

1258 

L0: PR1NT88, "ROUND"; T; PRINT864, " ";CHR$(3D 

©<8»+l 

n 

£K(i641?>*256=16320 THEN PRINT8192, CHRSG1); 



278 

:TI 378 

ZERO FOR THIS I 
410 



124 



288 INPUT 'ROLL AGAIN"; BS 

298 IF LEFW<B*,1)='Y" THEN 278 

488 R(T)=Ti: X* Tl=8: FOR fl=l TO 58: T(fl)=8: NEXT: GOTO 410 

418 FOR TM4 TO 1808: NEXT TH: PRINT8128, CHR*<31>; 

420 RESTORE 

428 Ri=INT:6*RMX0»+l: R2=INT<6*RND<0»+i 

448 FOR D=2 TO P1+R2: READ L(D): NEXT: D=R1+R2 

458 FOR C=l TO L<D): IF C=l THEN 488 

468 Ri=INTCS*RND(8»+i: R2=INT<6*RND<6»+i 

478 IF PEE«16416HPEEK<i641?>*256=i6228 THEN PRINT8192, CHR$<21); 

480 PRINT "COMPUTER'S ROLL t»;C;CHR$(8); n :";Rl+R2 

498 IF Ol THEN 518 

508 T(i)*+R2: GOTO 558 

510 T(C)=R1+R2 

528 IF KPOK1) GOTO 558 

528 PRINT "THE COHPUTER GETS A ZERO FOR THE TURN!!" 

540 Ti=fl: GOTO 560 

550T1=T1+T(O- NEXT C 

568 FOR TM=1 TO 1088: NEXT TM: C(T)=T1: Tl=9: X=8 

578 C2=C2+C(T>; C1=C1+RCT) 

586 PRINT: FOR B=i TO 58: T<B)=0: NEXT 

598 REH 

688 IF C2<C1 THEN 628 

610 PRINT(i32, "C0NPUTER:";C2,"Y0U:";C1;CHR$<38); : GOTO 638 

628 PRINT622, *Y0U:";CL"C0MPUTER:";C2;CHM(36); 

630NEXTT 

648 DMH3, 18, 9, 9, 6, 6, 6,9, 9, 18, 18 

658 as 

668 PRINT "ROUND"; THB(15); "YOU"; TABC25); "COHPUTER" 

678 PRINT " ";TABtt5);"— ";TAB(25);" " 

680 FOR E=l TO 10: PRINT USING « « HI Mft";E;R(E>iC<E) 

690 NEXT E: PRINT"==";TfiBC14>;"=";TAB(27);"=" 

768 PRINT 'TOTALS; ";TAB<14);C1;TAB(26);C2: PRINT 

718 INPUT 'PLAY AGAIN"; ANSI 

720 IF LEFT«flNS», 1>="Y" THEN aEAR: I*="N": GOTO 46 

726 END 



Obstacle 



The game OBSTACLE is an obsta- 
cle course game played on a 9x40 
grid. 

A car is represented by the 
character '*', the obstacles are the 
walls (represented by exclamation 
points and hyphens) and spaces are 
where the car may travel. The car may 
not pass over or occupy a wall or 
obstacle. The character 'S' at the 
upper left corner, indicates where the 
car starts from, and the character in 
the lower right corner, the 'F', is the 
space the car must occupy at the 
finish to win. If the car tries to 
occupy or pass through a wall the 
game is lost. When the car lands on 
the space occupied by the character 
'F', the car has finished the course, 
and the game is over, and a time is 
calculated. 

Line-by-line, here's how the pro- 
gram works: 

Line 480 dimensions the matrix M 
for 15 rows by 50 columns (allowing 
an adequate margin for modifica- 
tion). 

Line 490-550 initializes all neces- 
sary variables. 

Line 570-650, through the use of a 
random number generator, generates 
the obstacle course, where I is the 
row matrix index and J is the column 
matrix index and R1 is the random 
number. Line 590 generates a ran- 
dom number between and 1, 
multiplies it by a density of 1.2 (to 
increase density factor by a few 
decimal points) and removes every- 
thing right of the decimal point. R1 is 
now either or 1 . If it is the matrix 
memory location M (I, J) inside the 
For-Next Loop is assigned the value 
of a space, if it is 1 , it is assigned the 
value of an exclamation point. 

Lines 710 and 720 assign the walls 
to the course. 

Line 760 stores the values of I and 
J into K and L, these act as value 
holders. 

After the print routine has been 
executed, I and J are reassigned their 
old values stored in K and L at line 
840. 

Lines 780-830, through use of a 
For-Next Loop (as in the initialization 
course set up routine), print out the 
characters represented by values in 
matrix M, Line 800, the CHR$ 



Function turns the values of the 
memory location into their ASCII 
character equivalent. 

Line 860 checks if the car has 
moved yet, by checking D1. If D1 
then it skips the query option and 
continues with the main body. If 
D1=0 then it executes the option 
query, asking whether a new course, 
or this course or end the game and 
then executes the respective option. 

Line 1010 checks if D1 is not equal 
to 1 and if so continues with the 
movement routine. If not then it 
starts the car at matrix position 2.2 
and continues with the movement 
routine. 

Line 950 starts the main program 
body, 970 queries the direction and 
980 checks the input D if it is a valid 
direction. Line 1000 inputs the speed 
'S' and Line 1010 initializes the 
counters S1 and D1. Lines 1040-1060 
direct control to the proper move- 
ment routine (1 is up, 2 is right to 
left, 3 is down). 

Line 1070-1110 is the movement 
routine for direction 1. Line 1070 
erases the car from the previous 
position keeping track of I and J. 
Line 1080 and 1090 check each 
character position between matrix 
position I, J, and l-S.J for a wall 
(exclamation or hyphen); if one is 
encountered the game is over. If no 
walls are encountered, the move is 
legal and Line 11 10 assigns the car to 
matrix position 1-1, J and jumps to 
1220 to check matrix position 10,41 if 
it contains a car. If so, the game is 
won and the End of Run routine is 
executed, if matrix position 10,41 is 
not occupied the game is not over 
and control jumps to 740, the matrix 
print routine. The Loop can only be 
exited by losing (crashing into an 
obstacle) or by getting the car to 
matrix position 10,41 where it exe- 
cutes the End of Run routine. 

Line 1290 calculates the time by 
dividing total number of turns by 
total number of character spaces 
covered by the car and multiplies it 
by 100. Line 1300 prints the time and 
Line 1310 and 1320 query as to 
whether to play the game again. 

The program and these notes were 
written by Eric Erickson. 



OBSTACLE 
COPVRIGHT 1979 CREATIVE COMPUTING M0RRIST0WM, NJ 

DO V0U NEED INSTRUCTIONS? VES. 

0BSTACLE 

THE OBJECT OF THIS GAME IS TO MOVE V0UR CAR '*' 
BEGINNING AT 'S' AND NAVIGATE THROUGH THE OBSTACLES 
' ' WALLS TO THE SPACE MARKED 'F' V0U MUST LAND 
ON THE SPACE MARKED 'F' ON THE EXACT AMOUNT OF SPACES. 

THERE ARE NO DIAGONAL MOVES. 
THERE ARE NO RIGHT TO LEFT MOVES. 

DIRECTION NO. 1 IS UP < C ) 

DIRECTION NO. 2 IS LEFT TO RIGHT. ( -" ) 

DIRECTION NO. 3 IS DOWN. < S > 

SPEED IS THE NUMBER OF SPACES IN A GIVEN DIRECTION. 
els 



OPTION: (A = CONTINUE, B = NEW COURSE, C = STOP)? A. 
ola 



DIRECTION? 3. 



DIRECTION? 3 
SPEED? 5_ 
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DIRECT ON? 2 
SPEED? 9- 



DIRECTION? 3 
SPEED? 3. 



DIRECT ON? 2 
SPEED? 10_ 



ILLEGAL MOVE VOU LOSE! ! 

DO VOU WISH TO PLflV AGAIN? NO. 



18 CLS: PRINT§412, "OB! 
20 PRINT: PRINT THB<?) 

39 PRINTO96B, ""; INPt 

40 REM VARIABLES 

58 REM 



TACLE" 

"COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOMN, NJ" 
T "DO VOU NEED INSTRUCTIONS"; I* 
USAGE 



68 REM 


fll 


78 REM 


fl2 


88 REM 


A3 


98 REM 


R4 


18B REM 


A5 


110 REM 


A6 


128 REM 


D 


138 REM 


Dl 


148 REM 


I 


158 REM 


J 


160 REM 


K 


170 REM 


L 


188 REM 


M 


198 REM 


H$ 


280 REM 


Rl 


216 REM 


S 


220 REM 


SI 


230 REM 


T 


240 REM 




258 REM 




260 REM 




278 REM 




288 REM 




298 REM 




389 CLS: 


IF ! 



DECIMAL VALUE FOR THE CHARACTER'*' 

DECIMAL VALUE FOR THE CHARACTER ' 

DECIMAL VALUE FOR THE CHARACTER " 

DECIMAL VALUE FOR THE CHARACTER 'S 

DECIMAL VALUE FOR THE CHARACTER 'F 

DECIMAL VALUE FOR THE CHARACTER '- 

DIRECTION 

TOTAL NO. OF TURNS TAKEN 

ROW MATRIX 

COLUMN MATRIX INDEX 

PLACE HOLDER FOR THE VARIABLE I 

PLACE HOLDER FOR THE VARIABLE J 

MATRIX VARIBLE 

INPUT TO VES-NO QUESTIONS 

RANDOM NUMBER GENERATOR VARIABLE 

SPEED 

TOTAL SPEED COUNTER 

'TIME' RATIO <D1/S1>*100 

START PROGRAM 



INSTRUC riONS 



IF LEFT«I$,1 
310 PRINT TAB<28) "DBS' 
320 PRINT "THE OBJECT i 
330 PRINT " BEGINNING 
340 PRINT "'"MM* 191) 
350 PRINT "ON THE SPAC 
368 PRINT 

370 PRINT "THERE ARE N( 
380 PRINT "THERE ARE N 
390 PRINT 

488 PRINT "DIRECTION N 
418 PRINT "DIRECTION N 
420 PRINT "DIRECTION N 
430 PRINT 



0"V" THEN 488 

ACLE": PRINT 

IF THIS OflME IS TO MOVE VOUR CAR '*'" 

IT 'S' AND NAVIGATE THROUGH THE OBSTACLES" 

' WALLS TO THE SPACE MARKED 'F' VOU MUST LAND" 

: MARKED 'F' ON THE EXACT AMOUNT OF SPACES. " 

DIAGONAL MOVES. " 
i RIGHT TO LEFT MOVES. " 

i.l IS UP < ";CHR*<9D;" )" 

1.2 IS LEFT TO RIGHT. < -";CHR*<94); " )"" 

1.3 IS DOWN. < ",CHR*<92>;" >" 



448 PRINT 

450 REM 

468 REM 

470 REM 

480 DIM M(15, 58) 

498 A1=ASC:<»*") 

580 A2=191 

516 A3=ASC(" ") 

520 A4=ASC<"S"> 

538 A5=ASC<"F") 

548 A6=191 

559 Dl=8: Sl=8 

568 REM *** NOTE 

570 FOR 1=1 TO IB 

588 FOR J=l TO 42 

590 R1=INT(RND<0)*1. 2 

660 IF Rl=8 THEN 630 

618 M(I,J>=R2 

620 GOTO 640 

630 M<I,J>=A3 

640 NEXT J 

656 NEXT I 

668 M(2,2>=A4 

670 M(10,40)=A3 



speed is th : number of spaces in a given direction. 
:nitialation 



C IURSE SET UP ROUTINE 



126 



680 M<13,41)=A5 

698 M(23)=A3 

760 M<3,2)=A3 

710 FOR 1=1 TO 10: :M<I,1)=A2: M<L42)=A2: NEXT I 

728 FOP. J=l TO 42: M<1,J)=A6: M<11,J)=A6: NEXT J 

738 GOSJB 768: GOTO 858 

740 REM ** PRINTING ROUTINE ** 

758 GOTO 850 

768 K=I . L=J 

770 CLS 

788 FOP 1=1 TO 11: PRINT TAB<11); 

798 FOP J=l TO 42 

808 PRINT CHR«M<I,J»; 

ao NEXT J 

828 PRIHT 

830 NEXT I 

848 I=K. J=L: RETURN 

858 REM 88 NOTE- NEW COURSE OPTION** 

868 IF Dl>8 THEN 950 

870 PRfNT"OPTI0N: (A = CONTINUE, B = NEW COURSE, C = STOP)"; 

880 INPUT m 

890 IF N*="A" THEN 950 

908 IF N$="8" THEN 540 

910 IF N*="C" THEN END 

920 PRINT "INVALID OPTION. " 

930 GOTO 876 

940 REM 

S50 REN ** MAIN PROGRAM BODV ** 

960 REM 

970 PR:;NTO704, "DIRECTION"; CHR$<31); : INPUT D: D=INT(ABS(D)) 

988 IF D<1 THEN 978 

998 IF D>3 THEN 970 

1808 PRINT"SPEED"; INPUT S: S=INT<A8S(S» 

1018 D:1=D1+1. S1=S1+S. IF DiOl THEN 1840 

1020 REM ** NOTE - CAR STARTS AT POSITION 2, 2 

1030 J=2: 1=2 

1040 IF D=l THEN 1070 

1050 IF D=2 THEN 1120 

I860 IF D=3 THEN 1170 

1070 M:i,J)=H3: REM 

1888 FOR C=l TO S: GOSUB 1330 

1090 IF N(I,J)=A6 THEN 1250 

1100 GOSUB 1340: NEXT C 

1110 M(LJ)=A1: GOTO 1220 

1120 M< I, J)=A3 

1130 FOR C=l TO S: GOSUB 1330: J=J+1. IF M<LJ)=A2 THEN 1250 

1140 IF M<I,J)=A6 THEN 1258 

1150 GOSUB 1340: NEXT C 

1160 M<I,J)=A1. GOTO 1220 

1178 M<I,J)=A3 

1188 FDR C=l TO S. GOSUB 1330: 1=1+1: IF M(I,J)=A2 THEN 1250 

1190 IF M<I,J)=A6 THEN 1250 

1280 GCSUB 1340: NEXT C 

1218 M<I,J)=A1 

1220 REM ** NOTE - WINNING CHECK** 

1238 I? M<10, 4DOA1 THEN 748 

1248 GOTO 1278 

1258 P>:INT0784, "ILLEGAL MOVE VOU LOSE !'"; CHR*<31) ■ GOTO 1318 

1260 REM 

1278 REM ** END OF RUN ROUTINE ** 

1288 REM 

1290 T=<D1/S1)*188 

1300 P~!INT@?84, "VOU WON!! AND VOUR TIME IS"; T; CHR*<31) 

1310 P^INT PRINT"DO VOU WISH TO PLAV AGAIN"; INPUT Ht 

1328 I- LEFT*<N$, 1)="V" THEN 548 ELSE END 

1338 P=!INT@I*64-54+J, " "; RETURN 

1340 P?INT@I*64-54+J, "*"; RETURN 



** WIPES OUT PREVIOUS CHARACTER ** 

I=ABS<I-1)- IF M(I,J)=A2 THEN 1250 



Octrix 



OCTRIX 



COPYRIGHT 1975 CREATIVE COHPUTINQ MORRISTOHN, NJ 
DO VOU NEED INSTRUCTIONS? YES. 

cis 

THIS IS fl GAME CfiLLED OCTRIX. EBCH PLRYER IS DEALT 8 
CORDS HINGING FROM RCE THROUGH EIGHT. THE CRRDS ARE 
RANKED BCCORDING TO ERIDGE SUITS HITH THE RCE OF CLUBS THE 
LOWEST AND THE EIGHT OF SPADES HIGHEST. THE OBJECT IS TO 
WIN HS MANY OF THE EIGHT TRICKS AS POSSIBLE ERCH TRICK 
PLBYED DETERMINES THE PLAY OF THE NEXT TRICK. IF THE HIGH 
AND LOW CARDS PLAYED MATCH COLOR THE NEXT TRICK HILL BE 
HIGH AND IF THEY DO NOT MATCH IT HILL BE LOU. IT IS IM- 
PORTANT TO SET STRATEGY TO UIN CONSECUTIVE TRICKS IN THAT 
SCORING IS 1 POINT PER TRICK, 4 FOR THO IN A ROW, 9 FOR 3, 
UP TO 64 FOR ALL EIGHT. 

RESPOND TO THE INPUT PROMPT HITH THE CAR.D YOU WANT TO 
PLAY IN A THO CHARACTER FORMAT HITH THE VALUE (H-8) AS THE 
FIRST CHARACTER, AND SUIT (C,D,H,S) HS THE SECOND CHARACTER. 

PRESS ANY KEY TO CONTINUE 
els 



HOW MANY POINTS (0 ENTRY GIVES STANDARD 88>"> 

HUM MANY PLAYERS? 2 

ENTER NAME OF PLAYER tt 1 ' CHRIS 

ENTER NAME OF PLAYER i 2 "> ERIC 

ENTER NAME OF PLAYER I 2 ^ STEVE 

SHOULD I PLAY TOO (Y OR N)? Y. 



■ els ■ 



This is a card game for up to four 
players, or three players plus the 
computer. A deck of 32 cards is used 
with ace through eight in each of the 
four suits. All 32 of the cards are dealt 
out at the beginning of the game, eight 
to each player. On each hand, each 
player discards one card depending on 
the rules of the game (see the rules at 
the beginning of the sample game) 
either the high card discard or the low 
card discard wins that trick. After eight 
tricks a new hand is dealt and play 
proceeds as before. Perhaps the 
easiest way to learn Octrix is to play a 
few games with you and the computer 
or with several people and the com- 
puter. Observe what happens and 
before long you'll be able to work out a 
reasonable strategy for playing the 
game. 

Octrix was written by Rogers 
Hamilton. 



CHRIS 
CDHS 
.a * . 
2. 


.a 

.2 


ERIC STEVE 
CDHS CDHS 
. . A. t. 
*. . 2 + * 


COMPUTER 
CDHS 

. a * *. . a . 

.1 * .2. 


CHRIS 
CDHS 
a * . 
z 

3. *. 


ERIC 
CDHS 

.a 

. 2 *. 
. 3. *. 


STEVE 

CDHS 

a *. 

2* * . 

2. * * . 


COMPUTER 
CDHS 

a * « . a 

2 * .2. 


.2.* 

.4. 

.5. » . 

.6. * * . 

. 7. * *. 


.4 
.5 
.6 
.7 


*. . 3. * * 

* * *. . 4. 

*. . 5. * 

* . ..6. . 


? 2 

.4. * 4.. 

.5. * .5. 
.6. *6.. 
?. * . ?. . 


4. 

5. * . 

6. * * . 

7. *. . . *. 
8.* 


. 4. * * +. 
.5. . *. 
.6.* 
.7. 
.8. * 


4. 

5.* 

6. 

7. * 

8. * . 


4. * 4. 

5. * .5. 

6. *. 6. 

7. * .7. 

8. *. 3. 


. 8. * 

TRICK » i (H 
WHAT CARD, C 


.8 

IGI 
HR 


* ..8. * . 

i CARD HINS) 
IS 


. 8. *. 8. . 

£ 
E 
c 


*IS PLAYEC 
1IC PLAYED 
TEYE PLAYEC 


THE EIGHT 
THE EIGHT 01 
THE EIGHT 


5F CLUBS. 
; DIAMONDS. 
OF HEARTS. 





■els • 



CHRIS ERIC STEVE 

CDHS CDHS CDHS 

.a * ..a ..a 

.2 . . Z ..*..!* * 

. 2. * . . 2. *. . 2. + * 



* * *. . 4. 
*. . 5. * 



.4. . . 4. 

.5. * ..5. 
. 6. * * . . 6. 
. 7. * *. . 7. 
.8* . ..8. 



TRICK « 1 <HIGH CARD HINS) 
WHAT Cm ERICS 



COMPUTER 
CDHS 
ft * * . A . 



*.6.. 
' .7.. 

*.a. 



Cl8 • 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 

a *..a ..a *. . a * » .a. 



2. 


2, 


*. .2* 




* 


.2. 


* .2. 


3.* 


7 


*. .2. 


* 


+ 


.2. 


7 


4. 


4.* 


* *. . 4. 






.4. 


* 4. 


5. * . 


C 


* . j. + 






.5. 


* .5. 


6. ** . 


(..* 


..6. 






.6. 


*.6. 


7.* *. 


7. 


. . 7. 


* 




.7. 


* .7. 


8* 


8. * 


..8. 




* 


.8. 


*. 8. 



TRICK « 1 (HIGH CARD HINS) 
WHAT CARD, STEVE 



■ els ■ 



I PLAYED THE EIGHT OF SPADES. 
I HON TRICK « 1 



. cl8 • 



CHRIS 


ERIC 




STEVE 


COMPUTER 


CDHS 


CDH 


c 


CDHS 


CDHS 


.A. * . 


.A. 




a t. 


. a * » .a 


.2. 


. 1 


*. 


2. + * . 


. 2. * .2. 


. 3. * 


.2. 


*. 


3. * * . 


.3. .2. 


.4. 


.4.* i 


*. 


4. 


. 4. * 4. 


5. * . 


5 


*. 


5.* 


.5. t .5. 


.6. * * . 


.6.* 




6. 


. 6. t. i. 


. 7. * +. 


.7. 




7. * 


.7. * . 7. 


c; 


.8. 




8. 


8 8 



TRICK I 2 (HIGH CARD HINS) 
WHAT CARD, CHRIS 



. els • 



CHRIS ERIC STEVE 

CDHS CDHS CDH: 
A. * ..ft ..ft 1 

2.* *. 



2.* 
4. 



* * * 



TRICK » 2 (HIGH CARD HINS) 
WHAT CARD, ERICS 



ola ■ 



COMPUTER 
CDHS 

a * * .a 

2. * .2 



*.6. 



CHRIS ERIC 


STEVE 


COMPUTER 


CDHS CDF 


S CDHS 




CDHS 


..a * ..ft 


..a * 


.A. 


* * . a . 


. . 2 . . 2. 


*. . 2. * * . 


2. 


* .2.. 


~* * 7 


+. . 2. + * 


.3. 


. . 2. . 


. . 4. . . 4. * t 


*. . 4. 


.4. 


* 4.. 


..5. * ..5. 


*. . 5. * 


.5. 


». .5.. 


. . 6. * * . . 6. * 


..6. 


. 6. 


*. 6. . 


. . 7. * *. . 7. 


. . 7. * . 


.?. 


* .7. . 


..8. ..8. 


..8. 


0, 


.a. 


TRICK « 2 (HIGH CARD HINS) 






WHAT CARD, STEVE 


- Cl8 






CHRIS ERIC 


STEVE 


COMPUTER 


CDHS CDH 


S CDHS 




CDHS 


..a * ..a 


. . a *. 


.a 


* * .a. 


. . 2. 2. 


*. . 2. * * 


.2. 


+ . 2. . 


. . 3. * . . 3. 


*. . 2. * * . 


. 3. 


2 


4. ..4.* * 


*. . 4. 


.4. 


* 4.. 


..5. * ..5. 


*. . 5. + 


. 5. 


* . 5. . 


. . 6. * * . . 6. * 


..6. 


. 6. 


*.i.. 


. . 7. * *. . 7. 


. . 7. * 


. 7. 


* .7.. 


. . 8. . . 8. 





o 


. .8.. 


CHRIS PLAYED THE SEVEN OF CLUBS. 






ERIC PLAYED THE SIX 


OF CLUBS. 






STEVE PLBYED THE SEVEN OF DIAMOND? 






I PLAYED THE FIVE OF DIAMONDS. 






STEVE HON TRICK t 2 


- ols 






CHRIS ERIC 


STEVE 


CONFUTES 


CDHS CDH 


S CDHS 




CDHS 


a t ..A. 


..a *. 


a 


n . a . 


. . 2. . . 2. 


*. . 2. * * 


2. 


* .2. 


..3.* ..3. 


*. . 3. * * . 


-> 


. 3. . 


..4: ..4.* * 


*. . 4. 


4. 


* 4.. 


..5. t ..5. 


*. . 5. * 


5. 


.5.. 


. . 6. * * . . 6. 


..6. 


6. 


*6.. 


. 7. t. . 7. 


. .7. 


7. 


* ,7.. 


.8. ..8. 





8. 


.3.. 


TRICK » 2 (HIGH CARD WINS) 






HHHT CARD, CHRIS 








» 
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CHRIS 



ERIC 



CDHS CDHi 

I. * ..a 
: ..2. 



.4.*. 

.5. 

.6. 



STEVE 
C D H S 



CQHPUT- R 

CDHS 



*, 

*. 

* *. 

*, 


a * 

2. * * 

1 * * 

4. 

5.* 

6. 

7. 

8. 


.a * * . a . 

.2. * . 2. . 

.i . i . 

. 4. * 4. . 
.5. .5.. 
.6. . . . t. 6. . 
.7. *..?.. 




.8. . 8. . 



CHRIS 
COHS 



ERIC 
COHS 



STEVE COMPUTER 

COHS CDHS 



.A 


* ..ft 




a * 


.a** .a. 


.2. ..2 


*, 


2* * 


.2. * .2.. 


.2 


* . .2. 


*. 


3. *. * 


■> i 


.4 


..4.* 


* *. 


4. 


. 4. * 4. . 


.5 


* ..5. 


*, 


5.* 


.5. . 5. . 


.6 


* * . . 6. 




6. 


.6. , . *.6.. 


7 


*..?. 




7. 


.7. * .7.. 


.8 


..8. 




8. 


.8. . 8. . 



CHRIS 


ERIC SIEVE 


COMPUTER 


CDHS 


COHS COHS 


CDHS 


..a * . 


.a ..a . *. 


a *. * . a . 


9 


.2 ♦..2*. * . 


2 .* .2. 


. . 2. * 


2 * 3 * * . 


3. . .3.. 


..4. 


. 4. *. . * *. . 4 


4. * 4. . 


..5. *. . 


.5. ..5. 


5. . 5. . 


. . 6. . * * . 


.6 6. 


6. . .*.&. 


..7. 


.7. ..7 


7. . .7.. 


..8. 


.8. ..8. 


8. . .8.. 



TRICK « 3 (HIGH CARD WINS) 
WHAT CARD, ERICS 



• CIS - 



CHRIS PLfiVED THE SEVEN OF SPADES. 
ERIC PLAVEO THE FIVE OF SPADES. 
STEVE PLHVED THE FIVE OF ClUBS. 
I PLAVED THE SEVEN OF HEARTS. 
CHRIS HON TRICK It 3. 



CHRIS ERIC STEVE COKPUTR 

CDHS CDHS COHS CDHS 

ft * . . ft . . A *. . ft * * .ft 



■ els ■ 



4. 

5. * 

6. * * 



4. * * *. 

5. 



* * 



CHRIS 
CD Hi 



ERIC STEVE CONPUTER 

COHS CDHS CDHS 



TRICK it 3 (HIGH CARD HINS) 
HURT CURD, STEVE 



.a * . 


.ft ..ft * 


. a *. * 


. .ft 


.2 


.2 .*..!* * 


.2 * 


7 


. 3. *. 


.3. *..!** 


.3. 


.3. 


.4. 


. 4. * t * 4 


.4. * 


4. 


.5. * . 


.5. . . 5. 


.5. 


.5. 


. 6. * * . 


.6. . . 6. 


.6. 


*.6. 


.7. 


.7. . . 7. 


.7. 


.7. 


.8. 


.8. ..8. 


.8. 


.8. 


TRICK « 4 (I 


IGH CARD HINS) 







- CIS 



10 CLEAR 1600 

20 CIS 

30 PRINT 9 413, "OCTRIX" 

40 PRINT 

50 PRINT TA8(7)"C0PYRIGHT 1979 

60 PRINT 8 968, "; 

70 INPUT'DO VOU NEED INSTRUCTIONS"; I* 

80 DIM A(32), P(4, 9), Ci(255), 0X4, 11), 

90 DIN t»(72), V(72) 

189 RESTORE 

110 FOR X=0 TO 7 

126 READ W(X> 

138HEXTX 

140 FOR X=6 TO 3 

158 READ X$(X> 

168 NEXT X 

170 DHTA'HCE", *THO", "THREE", "FOUR". "FIVE". ' 

180 DATA"CLUBS", "DIAMONDS", "HEARTS', "SPADES 

190 FOR X=8 TO 9 
280 READ TKX) 

210 OATA'A". "2", "3", "4", "5\ "6", "7", "8", 10 

229 NEXT X 

228 IF LEFT$(», 1)="N" THEN 416 

248 as 

250 PRINT" THIS IS A GAME CALLED OCTRIX 

260 PRIHTCARDS RANGING FROH ACE THROUGH EI 

270 PRINT'RANKED ACCORDING TO BRIDGE SUITS 

236 PRINT'LOHEST AND THE EIGHT OF SPADES HI 

230 PRINT'DIN AS MANV OF THE EIGHT TRICKS f 
300 PRINT'PLAYED DETERMINES. THE FIBS' OF THE 
310 PRINPAND LOH CARDS PLfiVED HATCH COLOR 
328 PRINTHIGH AND IF THEV DO NOT BATCH IT 
230 PRIHT'PORTANT TO SET STRATEGV TO WIN CC 
348 PRINT'SCORING IS 1 POINT PER TRICK, 4 F 
258 PRINT'UP TO 64 FOR ALL EIGHT. ■ 

3S8 PRINT" RESPOND TO THE INPUT PROMPT \ 

378 PRIHTPLAV IN A TO MRRCTER FORMAT HI 

338 PRINT"FIRST CHARACTER, AND SUIT (CD.H, 

398 PRINT 6 379, "PRESS ANV KEV TO CCHTIHUE' 

489 IF INKEV* =" THEN 489 

410 CLS 

426 FOR X=i TO 15 

430 READ 2 

440 MS=H$«HR«Z) 

450 NEXT X 

460 DATA 35, 35, 35, 35, 12, 72, 72, 72, 72 

478 29=88 

488 PRINT"HOH HANV POINTS (6 ENTRV GIVES 9 

498 INPUT 2 

588 IF 2=8 THEN 526 

510 Z9=Z 



CREATIVE CO PUTING HORRISTONN, NJ - 



T<72> 



•els 



TRICK « 4 (HIGH CARD HINS) 
HURT CARD, ERICS 



CHRIS 
CDHS 



ERIC STEVE 

CDHS CDHS 



COMPUTER 
CDHS 



.ft *. . 


.A. 




.a .*. 


.ft** 


a. 


.2 


.2 . 


* 


. 2 *. * . 


.2 * 


2. 


.2.* 


7 


* 


.3. *. *. . 


-> 


3.. 


.4. 


.4.* 


* * 


.4. 


.4. * 


4.. 


.5. * . 


.5. 




.5. . 


.5. 


5.. 


6. * . * . 


.6. 




.6. 


.6. . ,* 


6.. 


.7. 


.7. 




.7. . 


.7. 


7.. 


..8. 


.8. 




.8. 


.8. 


8.. 



TRICK I 4 (HIGH CARD HINS) 
WHAT CARD, STEVE 



■ Ci3 ■ 



CHRIS 
CDHS 



ERIC STEVE 

CDHS CDHS 



COMPUTER 
CDHS 



.a 

.2 
.3 
.4 
.5 
6 
7 
R 


. .*. . 

*. . . . 

* 
* *. 


.a 

.2 

-> 
. .i 

.4 

5 


. ..a *. 
*..z* * . 

*. .3. . *. * . 
* . * *. . 4. 
..5. . 


.a*.*, .a. 

.2 *. .2. 

.3 1. 

.4. .». .4.. 
.5 5 


6 

7 

A 


..6 
..8 




.6 
.8 


*.£.. 

... .a. 



CHRIS PLAVED THE SIX OF DIAMONDS. 
ERIC PLAVED THE FOUR OF CLUBS. 
STEVE PLAVED THE THREE OF DIAMONDS. 
I PLHVED THE SIX OF SPADES. 
I HON TRICK f 4. 





520 FOR X=8 TO 31 






538 A(X)=X 


w 




549 NEXT X 






558 PRIIfT"HOH HANV PLAYERS"; 






568 INPUT N 






576 N=INT(H) 






588 IF NM THEN 699 






598 IF N>0 THEN 628 




ilX", "SEVEN", "EIGHT" 


666 PRINPONLY ONE TO FOUR PLAVERS ALLOC), 

618 GOTO 558 

620 FOR X=6 TO N-l 

629 8(X, 0)=0 


RE-ENTER." 


1". "HIGH" 


648 PRINPEHTER NAME OF PLAYER fiXHi 
659 INPUT N$(X) 
668 Y=LEN<N*(X» 
678 FOR Z=l TO V 




!ACH PLAVER IS DEALT 8" 


688 W=HIM(N$<X>, i, 2-1) 




m. THE CARDS ARE" 


698 IF Tt=" » THEN 718 




JITH THE ACE OF CLUBS THE" 


788NEXT2 




J€ST. THE OBJECT IS TO" 


710 IF. Z>1 THEN 740 




J POSSIBLE EACH TRICK " 


728 PRINT'DON'T START NAME HITH SPACE, RE- 




NEXT TRICK. IF THE HIGH " 


738 GOTO 648 




THE NEXT TRICK HILL BE " 


749 SJ(X)=MID*(N*(X), i, 2-1) 




(ILL BE LOR IT IS IH-" 


758 NEXT X 




GECUTIVE TRICKS IN THAT " 


768 FOR J=8 TO 127 




3R TWO IN A ROH, 9 FOR 3, " 


778 C*(J)=" " 
788 NEXT J 




!TH THE CARD VOU HANT TO" 


798 IF N=4 THEN 898 




IH THE VALUE (A-8) AS THE • 


868 IF N=l THEN 858 




i) AS THE SECOND CHARACTER. " 


819 PRINT"SHOULD I aAV TOO (V OR N)"; 

820 INPUT Zf 

830 ZS=LEFT$(Z$, 1) 
846 IF ZK>"V" THEN 896 
858 S«N)="COMPUTER" 
868 Nf(N)="I" 
878 CKN, 6)=8 






889 N*l 


958 FOR V=9 TO 7 


13, 73, 72, 73, 73, 13 


896 FOR 1=0 TO 31 


960 FOR X=8 TO N-l 




966 X=H(I) 


979 PCX, V)=A(V*4+X) 


WARD 88)"; 


916 V=INT(RND(6)*(32-I)tI) 


986 C*(X*32+P(X, V)) 




926 A(I)=A(V) 


998 NEXT X 




928 A(Y)=X 


1998 NEXT V 




940 NEXT I 1 28 


1010 H=i 



1628 FOR R=i TO 7 

1629 GOSUB 1799 

1849 PRIHT 8 764, 'TRICK f;Ri"C T$(8+H>" CARD HINS>" CHRJG1) 

1658 FOR X=8 TO N-l 

1668 IF S«X>="CC«PUTER" THEN 2236 

1878 Z=Z*Z 

1638 PRINT 8 768, "MM CARD, « 3«> 

1698 Qi$=INKEVf 

1188 IF Qi$=" THEN 1698 

1118 PRINT"*'; 

1128 Q2J=INKEVi 

1128 IF 02*=" THEN 1128 

1146 PRIHTT; 

1158 EJ=8i$+Q2i 

1168 IF ESO"P* THEN 1198 

1178 GOSUB 1798 

1186 GOTO 1686 

1136 V=LEN(E$> 

1286 IF Y=2 THEN 1239 

1216 PRINT'BRD INPUT, RE-ENTER. " 

1226 GOTO 1686 

1238 W=MMCE*, 1, 1) 

1248 Z*=fIID$<Et, 2, 1) 

1238 IF ¥AL'.W»9 THEN 1288 

1268 IF VJO'fl" THEN 1218 

1278 W="l" 

1288 V=VfL<VS> 

1298 IF V=8 THEN 1218 

1388 IF V;8 THEN 1218 

1318 2=6 

1326 Q(X, 19)=8 

1336 IF Z$="C" THEN 1418 

1348 Z=2 

1258 IF Z*='S" THEN 1418 

1368 CKX, 18)=1 

1273 2=1 

1386 IF Z*="D" THEN 1416 

1396 Z=2 

1468 IF Z$Q"H" THEN 1216 

1416 V=(V-i)*4+Z 

1428 IF C*<X*32+V>0"*" THEN 1218 

1428 aa 9>=Y 

1446 NEXT X 

1458 GOSUB 1988 

1468 NEXT R 

1478 FOR X=8 TO N-l 

I486 FOR Z=8 TO 31 

1496 IF «C22*X+Z)="*" THEN 1528 

1586 NEXT Z 

1516 PRINT'BRD SCAN. " 

1528 CI(22*XtZ)=" " 

1538 Qa 9>=Z 

1546 NEXT X 

1558 R=S 

1566 GOSUB 1988 

1578 Hl=6 

1588 as 

1598 PRINT'THAT HfiND "; 

1688 FOR X=8 TO N-l 

1618 Q(X, 9)=8 

1626 V=8 

1638 Z=8 

1648 FOR R=i TO 8 

1656 Z=Z+Q(X, R) 

1668 Qa R>=8 

1678 IF Qa R+D06 THEN 1768 

1688 V=Y+Z*Z 

1698 Z=8 

1768 NEXT R 

1716 Q<X. 8)=Q(X, 8>+V 

1726 PRINT Nt<X)" SCORED'; V; "POINTS FOR A"; 8a 0);"T0TfL " 

1738 IF Q(HL B)XKX> 6)THEN 1758 

1746 H1=X 

1756 NEXT X 

1768 IF Q(H1, 8»=Z9 THEN 2628 

1776 PRINT 8 979, 'PRESS RNV KEV TO CONTINUE"; 

1788 IF INKEW =" THEN 1788 ELSE 898 

1798 OS 

1888 FOR S=6 TO N-l 

1818 PRINT TA8<S*ii+2)S*<S); 

1828 NEXT S 

1826 PRINT 

1846 FOR S=8 TO N-l 

1858 PRINT" C D H S"; 

1868 NEXT S 



1878 PRINT 

18S8 FOR S=6 TO 7 

1896 FOR V=8 TO N-l 

1388 Z=V*32+S*4 

1918 PRINT STRINGSC2, 191)T*(S)CHR*(1S1)C«Z)CHR$(191)M(Z+1); 

1926 PRIHT CHR$(iSl)CJ(Z+2)CHR$(191)C$(Z+2); 

1936 NEXT y 

1949 PRINT CHR«19DT$(S)STRING$<2, 191) 

1958 ICXT S 

1968 PRINT 

1976 RETURN 

1988 Ll=8 

1998 Hl=6 

2886 PRINT 8 764, ""; 

2816 FOR X=8 TO N-l 

2828 V=INT(Q(X, 9V4> 

2838 Z=Q(X, 9)-V*4 

2849 PRINT H$(X)" FlflVEO THE " WW OF " X*(Z>" ' 

2658 Ct(X*32+Q(X, 9))=" " 

2868 IF Q<X, 9»Q<L1, 9)THEN 2688 

2878 L1=X 

2888 IF QOt 9XQ<HL 9)THEN 2166 

2898 H1=X 

2168 NEXT X 

2118 IF H=l THEN 2159 

2126 Q<Ii RM 

2138 PRINT ttt<Ll>* HON TRICK fi Rj CHRK8);" *; 

2148 GOTO 2178 

2156 Q(H1, R)=l 

2168 PRINT Nt<Hl>" HON TRICK *";R; CHR*(8>;". "; 

2178 H=6 

2188 IF QOi, 18)OQ<Hl J 18)THEN 2288 

2198 H=l 

2286 FOR fl=l TO 1868 

2218 NEXT fl 

2228 RETURN 

2238 Ll=8 

2248 L2=8 

2258 Hl=8 

2268 H2=8 

2278 FOR S=6 TO N-2 

2288 FOR Si=8 TO 7 

2298 IF P(S, Sl»P<Li, L2)THEN 2238 

2368 IF C*(S*43+P(S, Sl»=" " THEN 2336 

2316 L1=S 

2328L2=S1 

2338 IF PCS, S1)<P(HL H2)THEN 2379 

2346 IF CKS*32+P<S, 51))=' " THEN 2378 

2358 Hi=S 

2368HM1 

2276 NEXT SI 

2386 NEXT S 

2398 FOR S=R-1 TO 7 

2488 IF H=l THEN 2456 

2418 IF P(N-L SXPCLL L2)THEN 2438 

2426 GOTO 2468 

2438 IF RND(8)>. 3 THEN 2559 

2448 GOTO 2478 

2458 IF PCH-i, S)>P(HL H2)TKEN 2428 

2468 NEXT S 

2478 Hl=32 

2488 V=INT(RND(6)*16tHtl6> 

2496 FOR S1=R-1 TO 7 

2588 U=ABS<PCN-i, SD-V) 

2518 IF HKL1 THEN 2546 

2528 ffl.=U 

2538 S=S1 

2540 NEXT SI 

2558 Q(X, 9)=P(N-i, S) 

2566 PfN-L S)=P(N-L R-l) 

2579 ZsQCX, 9)-( INT(Q(X, 9V4)*4) 

2588 IF Z<2 THEN 2688 

2598 Z=ABSCZ-3> 

2688 6(X, 16)=Z 

2618 GOTO 1458 

2628 IF HON-2 THEN 2688 

2638 FOR X=Hi+l TO N-l 

2648 IF QCH1, 8»8« 8)THEN 2678 

2658 PRINT'GME TIED AFTER REGULATION, ENTERING SUDDEN DEATH ' 

2668 GOTO 896 

2678 NEXT X 

2688 PRINT N*(HD" HON THE QUE CONGRATULATIONS, " S*<H1>" ' 

2696 PRINT 

2786 PRINT 

2718 END 
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Description: 

This program generates 
on Pascal's triangle. 



artistic patterns based 



Comments: 

Pascal's triangle 
number patterns ii 
very easy to const 
of only 1's. Each 
either end of the re 
pattern are the sum 
and left in the row 
the first 6 rows of tl 



s is one of the most famous 
i mathematics. The triangle is 
uct. The first two rows consist 
of the subsequent have a 1 at 
w, but all other numbers in the 
of the two numbers to the right 
above. An example, illustrating 
ie triangle, is shown below: 



1 

1 1 

1 2 1 

13 3 1 

• 4 6 4 1 

1 5 1010 5 1 



ivides the user with three options 
fa RUN. 

cal's triangle" 
i triangles" 
s triangles" 

specify the size of the array and 
number to be eliminated. 
/ allows a user to examine an 
he relative positions of the mul- 
er in the array. The apex of the 
the upper left corner of the page, 
ow the machine uses a "triangle" 
ased on eliminating the multiples 
ow. 



The program pr< 
during the course o 
They are: 

1. A single "Pas 

2. Two "Pascal': 

3. Four "Pascal' 
A user may alsc 

the multiples of the 

Option 1 simpl 
artistic picture of 1 
tiples of any numt 
array will appear in 

An example of I" 
to create a design t 
of two is shown bel 

< < -4 -j * * * * 

12 3 4 * * 

1 3 6 10 
1 4 10 20 

Before Printing After Printing 

Option 2 allows a user to create a picture based 
on two Pascal's tr angles in opposite corners of a 
square array. An e) ample of how the machine uses 
two Pascal's triang es in the corners of a square to 
create a design based on eliminating the multiples 
of 2 is shown belov : 

1 1 1 1 fj ft*** 

12 3 1 * * • 

13 3 1 * * * * 
10 3 2 1 * * * 
"I "1 1 1 ***** 

Before Printing After Printing 



Option 3 creates a design based on Pascal's 
triangles in the four corners of a square. An ex- 
ample of how the machine uses four Pascal's tri- 
angles in the corners of an 8x8 array to create an 
artistic design based on eliminating the multiples 
of 2 is shown below. 



1 1 ■ 


11111 


ft ft ft ft ft * 


1 2 : 


J 3 2 1 


ft ft ft 


1 3 


3 1 


ft ft 


1 


1 


ft 


1 3 


3 1 


ft ft 


1 2 : 


) 3 2 1 


ft ft ft 


1 1 ■ 


11111 


ft ft ft ft ft ft 


Befo 


e Printing 


After Printing 



PASART and this description written by Charles A. 
Lund. They first appeared in Creative Computing, 
Mar/Apr 1977. 

Because PASART was run on a line printer, the 
sample runs are not representative of the true output. 
The only way to appreciate the graphics output is to 
run the program. 



PASART 
COPVRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 



DO V0IJ NEED INSTRUCTIONS? VES. 



els ■ 



PflSflRT 
THIS PROGRAM CREATES ARTIST DESIGNS BASED ON PASCAL'S TRIANGLE. 

V0U HAVE 3 BASIC TVPES OF DESIGNS TO SRECT FROM: 

1 1 SINGLE PASCAL'S TRIANGLE <PLAVED WITH AN ARTISTIC FLARE) 

2 TWO 'ARTSY' PASCAL'S TRIANGLES PRINTED BACK TO BACK 
1 FOUR 'ARTSV' TRIANGLES IN THE CORNER OF 

=i SQUARE ARRAV. 

WAT'S V0UR PLEASURE (1, 2 OR 3)' 2 

mi;H MULTIPLES DO V0U HANT REPRESENTED WITH BLANKS? 2 

HOW MANV ROWS AND C0LUMS IN THE ARRAV <45 IS MAXIMUM)? 36 



. . . . ARTIST AT WORK 

THIS WILL TAKE SOME TIME 
els 



. els . 
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WHAT'S VOUR PLEASURE (1, 2 OR 3)? 1 

HHICH MULTIPLES DO VOU WANT REPRESENTED WITH BLANKS? 2 

HOW MANV ROWS AND COLUMS IN THE ARRAV <45 IS MAXIMUM)' 45 



. . . . ARTIST AT WORK 

THIS WILL TAKE SOME TIME 



■ CIS • 



• • • 



• * < 

* • * 



10 CLS: PRINT8413, "PASART" 

26 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

38 CLEAR 1000: PRINT0968, ""; , INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 

40 DIM PB*<15),P(45,45)- IF LEFT$<I*,1)="V" THEN 60 

59 CLS: GOTO 170 

68 CLS: PRINT TABC29); "PASART": PRINT 

70 PRINT "THIS PROGRAM CREATES ARTIST DESIGNS BASED ON PASCAL'S TRIAN"; 

80 PRINT "GLE. " 

98 PRINT 

100 PRINT "VOU HAVE 3 BASIC TVPES OF DESIGNS TO SELECT FROM:" 

110 PRINT "1. A SINGLE PASCAL'S TRIANGLE <PLAVED WITH AN ARTISTIC FLAR"i 

120 PRINT "E) u 

130 PRINT "2. TWO 'ARTSV PASCAL'S TRIANGLES PRINTED BACK TO BACK" 

140 PRINT "3. FOUR 'ARTSV TRIANGLES IN THE CORNER OF" 

150 PRINT " A SQUARE ARRAV. " 

160 PRINT 

178 PRINT "WHAT'S VOUR PLEASURE <1, 2 OR 3)"; 

180 INPUT 

190 IF <0-l>*<0-2>*<0-3) O THEN 170 

280 PRINT "WHICH MULTIPLES DO VOU WANT REPRESENTED WITH BLANKS"; 

210 INPUT Q 

228 PRINT "HOW MANV ROWS AND COLUMS IN THE ARRAV (45 IS MAXIMUM)"; 

230 INPUT T 

240 PRINT: PRINT STRING$<24, 148); " ARTIST AT WORK "; STRING$<24, 149); 

250 PRINT TAB<20); "THIS WILL TAKE SOME TIME"; 

260 IF T*<45-TX0 THEN 220 

270 ON GOTO 320,530,780 

280 REM 

2S8 REM 

300 REM TIME TO CREATE AND PRINT A SINGLE PIECE OF PASART 

310 REM FIRST BUILD THE PASCALS TRIANGLE 

320 FOR R=l TO T 

330 FOR C=l TO T 

340 IF <R-1)*(C-1)=0 THEN 370 

350 P<R, C)=P(R, C-D+PCR-1, C) 

360 GOTO 380 

370 P(R,C)=1 

388 NEXT C 

390 NEXT R 

480 RBI TIME TO PLAV BACK THE TRIANGLE WITH AN ARTISTIC FLARE. 

410 FOR R=l TO T STEP 3 

420 FOR C=l TO T 

430 IF (P(R, CVQ)=INT<P<R, CVQ) THEN P(R,C)=0 

448 IF <P<R+1,CVQ)=INKP<R+1,CVS) THEN P<R+1,C)=0 

450 IF (PCR+2, CVQ)=INT<P<R+2, CVQ) THEN PCR+2, C)=8 

468 AE=<R-1V3 

470 PA*(AE)=PA*<AE)+CHR*<128-3*<P<R, C)O0)-12*<P<R+1, C)O0)-48*<P<R+2, OO0)) 

480 NEXT C 

490 NEXT R 

580 CLS. FOR A=0 TO 14: PRINT PA*(A): NEXT A 

510 GOTO 1340 



528 REM TIME TO CREATE AND PRINT DOUBLE PIECE OF PASART 

530 Z=T 

540 REM BUILD THE UPPER LEFT HAND HALF OF THE ARRAV. 

550 LET N=Z 

560 FOR R=l TO N 

578 FOR C=l TO Z-l 

588 IF <R-1)*(C-1)=0 THEN 610 

590 P<R,C)=PCR,C-i)+P<R-l,C) 

680 GOTO 628 

610 P(R, C)=l 

628 NEXT C 

630 Z=Z-1 

648 NEXT R 

650 REM BUILD THE LOWER RIGHT HALF OF THE ARRAV. 

660 Z=N 

678 N=2 

688 FOR R=Z TO 1 STEP -1 

698 FOR C=Z TO N STEP -1 

780 IF <R-Z)*(C-Z)=8 THEN 730 

718 P<R,C)=P<R,C+i)+P(R+l,C) 

720 GOTO 748 

730 P<R, C)=l 

740 NEXT C 

750 N=N+1 

768 NEXT R 

770 GOTO 410 

780 M=Q 

790 REM BUILD THE UPPER LEFT HALF CORNER OF THE ARRAV. 

883 V=T 

818 Z=INTW2) 

828 B5=Z*2 

838 Z1=Z 

840 Z2=Zi 

850 Z3=Z2 

868 X4=Z3 

870 X5=X4 

880 FOR 1=1 TO Zl 

890 FOR J=l TO Z 

980 IF CJ-l)*a-l)=8 THEN 938 

910 Pa,J)=P(I, J-1)+P(I-1,J) 

920 GOTO 948 

930 P(I,J)=1 

948 NEXT J 

950 Z=Z-1 

960 NEXT I 

970 N=Z1 

988 REM BUILD THE UPPER RIGHT HAND CORNER OF THE ARRAV. 

990 FOR 1=1 TO Zl 

1808 FOR J=V TO X5+1 STEP -1 

1010 IF 1=1 THEN 1858 

102B IF J=V THEN 1858 

1030 P(I,J)=P<I,J+1)+P(I-1,J) 

1848 GOTO 1060 

1058 P(I,J)=1 

I860 NEXT J 

1870 X5=X5+1 

1680 NEXT I 

1098 N=Z2 

1100 REM BUILD THE LOWER LEFT CORNER OF THE ARRAV 

1110 FOR I=V TO X4+1 STEP -1 

1120 FOR J=l TO Z2 

1138 IF J=l THEN 1170 

1140 IF I=V THEN 1170 

1150 P<I,J)=P<I,J-1)+P(I+1,J) 

1160 GOTO 1188 

1170 P(I,J)=1 

1180 NEXT J 

1190 Z2=Z2-1 

1208 NEXT I 

1210 N=Z3 

1220 REM BUILD THE LOWER RIGHT CORNER OF THE ARRAV. 

1230 FOR I=V TO N+l STEP -1 

1240 FOR J=V TO Z3+1 STEP -1 

1250 IF J=V THEN 1290 

1260 IF I=V THEN 1290 

1270 Pa,J)=P<I+l,J)+P<I,J+l) 

1288 GOTO 1368 

1298 P<I,J)=1 

1300 NEXT J 

1318 Z3=Z3+1 

1328 NEXT I 

1330 GOTO 410 

1340 PRINTS968, ""; : INPUT "WANT ANOTHER ";AN$ 

1350 IF LEFT*<ANS$,1)="N" THEN END 

1360 CLS: CLEAR 1000: DIM PA*(15), P<45, 45) : GOTO 178 
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This program isarr 
the original Pasart p 
porates many new o 
printing a calendar f< 
1600 to 2300. It allow 
any desired parr of pri 
The size of the output 
by 72 with an option tc 
by dividing the final ti 
72 chunks that may b 
Another option provk 
the opportunity to < 
based on four Pascal 
5). 

There wasn't roor 
output from all of tl 
these pages. Try them 
we're sure you'll be | 
rather spectacular res 

Pasart 2 was also w 
H. Lund. 

PASBRT2 

COPYRIGHT 1979 CREATIVE CO 
(PRESS ANY KEY TO C 
els 



ajor extension of 
ogram. It incor- 
ptions including 
>r any year from 
s a user to enter 
iting characters, 
s expanded to 72 
expand it further 
iangle into 72 by 
i taped together, 
les the user with 
:reate a picture 
's tables (option 

i to show the 

iese options on 

out yourself and 

ileased with the 

ults. 

itten by Charles 



PUTING H0RR1ST0HH, NJ 
HTIHJE) 



THIS PR0GRR1 CREATES ARTIST DESIGNS BASED OH 

PASCAL'S TRIANGLE. 

DO VOU HAHT A LIST OF OPTIO 

TEfiR OFF THE LIST AND SAVE 

HHAT'S VOIR PLEASURE <L2,3 



IS? YES 

R POST FOR FUTURE REFERENCE 

4,5 OR 6)? 3. 



■ els 



4: FOUR PASCALS TRIANGLES PRINTED 
BEFORE PRINTING RFTE 

llilli *> 

12 21 * 

1 1 * 

1 1 * 

12 21 * 
111111 * 

5. FOUR PASCALS TRIANGLES PRINTED 

BEFORE PRINTING AFTER 
111111 « 

123321 * 

13 6 6 3 1 » 
136631 ** 
123321 * 
111111 « 

6. START PASCALS TRIANGLES IN ANY \ 
SO THAT A USER OH TAPE TOGETHEi 
TO ME A LARGER DESIGN. THIS 
PICTURES LIKE THOSE SHOW IN OP 
CHARACTER CHUNKS. ENTRIES OF UP 
RRE ACCEPTED. 



N A SSUARE LIKE THIS: 
I PRINTING 



cm* 

IN A SQUARE LIKE THIS: 
PRINTING 



m and colunn 

? SEVERAL PICTURES 
3PTI0N EXTENDS 
HON 1 IN 36 X 36 
TO 1893 ROMS AM) COLUHS 



FEBRUARY 1682 



w* w* *w w* *w 4W 
WWW WW4 4 w* *w 

* * * M« 4 4* 
tHtMWW * 4 4»4Wfr J 

w* 4 * w* w* * * 
****** w w 

* * * * 4 

HHHnMMMt*amt* W 

w* w* * * * * w* w$ 

* * * * * $ * 4 

WW WW WW 
W* * * W* 



w 



w 



VOU? PICTURE SHOULD HIGHLIG T TIE HULTIPLE5 OF mi NUffiER? 4 



ma omem nguld you hi 

TIE STIFLES OF 4 (EHTER " 

mi wsmm mould vou lh 

OF TIE OTTER NUHBERS IH M 



TO PRINT OUT REPRESENTING 
' FOR R BLflNK)? ' " 

E TO PRINT OUT REPRESENTING EfiCH 
^fiTTERN (ENTER "FCRfl BUWO? * 



HON Hffff R0U5 AM) C0LUH5 IN 0€ RRRflY (KflX = 36)? 36_ 



els • 

ms> YOU LIKE fl COBfiJRR Pf 
mi VEflR BEMEN 16G8 ffi> 2 

. c(8 - 



INTED NITH YOUR PICTURE? YES 
ffl MOULD YOU LIKE? 1682 



♦MtM I MHH tM W * 

*W W* *W 4W 4 * W* 

* 4 * * 4 * WWW** 
************ $ 

*w * * w* w 

w w w w* 

* * * $«W v 

wwww * * * * 

*** *** www w 

www w* *w * * 

* * * 4WWW444 4 W 
WW 4 * * 

W* WWW 

w *w * * w* 

* utitttum * 
w* *** *** * 

W 4 WWW WWW 4W 

* w *w w* *w w* w* 



f ; W4WWWW 
W* W* W * 

i-WW4 4 W 
f 4 * W* 

*** * 

« w 

* w* 

WW 

4*4 

WWW 

4W *W 

WWWW 

4 4 * 

w w w 

#W * 4 4W 
■ W WW W 4 4* 

* 4 * * * 

*** *W W* 
& W4 4W4 W * 



W 



W 



■W* WW 

4 * * * 

W WW 44 

« 4 4W W* 

tWWWtttt 
* * 4 
W W W 

w* * * w* 

* 4 4 4 4 
W* '1WW4 

; j** W* W* 
WWWWW* 



1 A SINGLE PASCALS TRIANGLE PLAYED BACK LIKE THIS: 

BEFORE PRINTING AFTER PRINTING 
111 «* 

123 *♦ 

136 m 

2 A SINGLE PASCALS TRIANGLE PLAYED BACK LIKE THIS: 

BEFORE PRINTING AFTER PRINTING 

I * 

II » 
12 1 * * 

1 TMO PASCALS TRIANGLE PRId ED BACK TO BACK LIKE THIS: 
BEFORE PRINTING FTER PRINTING 



1118 
1281 
1821 
8111 



* s 









JANUARY 1582 




!SUN 


HON 


TUE 


ie 


THJ 


FRI 


SAT! 










1 


2 


3 


4 


5 


6 


7 


8 


9 


18 


11 


12 


13 


14 


15 


16 


17 


18 


IS 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


38 


31 



!SUN HON TUE MED THU FRI SAT! 



12 3 4 5 6? 

8 9 18 11 12 13 14 

15 16 1? 18 13 28 21 

22 23 24 25 26 27 28 



HARCH 1682 



!SUN BON TUE HED THU FRI SAT! 



15 
22 

29 



2 
9 
16 
23 
38 



3 

18 

17 

24 

31 



4 
11 
18 
25 



5 
12 
19 
26 



6 
13 



ffiY 1682 



JULY 1682 



7 
14 
21 
28 









APRIL 


1682 






!SUN 


HON 


TUE 


NED 


THU 


FRI 


SAT! 








1 


2 


3 


4 


5 


6 


7 


8 


9 


18 


11 


12 


13 


14 


15 


16 


17 


18 


19 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


38 







!SUN 


HON 


TUE 


NED 


THU 


FRI 


SAT! 












1 


2 


3 


4 


5 


6 


7 


8 


9 


18 


11 


12 


13 


14 


15 


16 


17 


18 


IS 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


38 


31 





















JURE 


1682 






■SUN 


HON 


TIE 


NED 


THU 


FRI 


SAT! 




1 


2 


3 


4 


5 


6 


7 


8 


9 


18 


11 


12 


13 


14 


15 


16 


17 


18 


IS 


28 


a 


22 


23 


24 


25 


26 


27 


28 


29 


38 











!SUN 


HON 


TUE 


KED 


THU 


FRI 


SAT! 








1 


2 


*> 


4 


5 


6 


7 


8 


9 


18 


11 


12 


13 


14 


15 


16 


17 


18 


19 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


38 


31 
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18 CLEM? 188 

28 OS 

38 PRINT 8 411 "PASART2" 

48 PRINT 

58 PRINT TflB<7>"C0PVRIGHT 1S79 CREATIVE COMPUTING HORRISTOKH, NT 

68G0SUB3548 

78 REH THIS PROGRAH REQUIRES ABOUT 18C FREE HORK SPfiCE 

88 REN KID R LINE PRINTER 

38 REH TO OBTRIN LARGER PICTURES EXPRND THE ARRAV IN LINE 

188 REH 1888 TO P(72,72) 

118 REH OPTION 16 REQUIRES 48K AND TAKES ABOUT AN HOUR TO RUN 

128 PRINT 8 384, "THIS PROGRAH CREATES ARTIST DESIGNS BRSED ON" 

138 PRINT "PASCAL'S TRIRNGLE ■ 

148 PRINT "DO VOU HAHT A LIST OF OPTIONS"; 

158 INPUT SI* 

168 IF LEFTttStt.DOT THEN 558 

178 PRINT "TEAR OFF THE LIST AND SAVE OR POST FOR FUTURE REFERENCE" 

188 LPRINT 5TRINGK58,"-") 

138 LPRINT "1 A SINGLE PASCALS TRIANGLE PLAVED BACK LIKE THIS:" 

288 LPRINT " BEFORE PRINTING AFTER PRINTING" 
218 LPRINT " 111 «*" 

228 LPRINT " 12 3 * »" 

238 LPRINT " 13 6 **" 

248 LPRIHT "2 A SINGLE PASCALS TRIANGLE PLAVED BACK LIKE THIS:* 

258 LPRINT " BEFORE PRINTING AFTER PRINTING" 

268 LPRINT " 1 *" 

278 LPRINT • 11 **" 

289 LPRINT " 12 1 * «■ 

298 LPRIHT "3. TWO PASCALS TRIANGLE PRINTED BACK TO BACK LIKE THIS:" 



388 LPRINT 
318 LPRINT 
328 LPRINT 
338 LPRINT 
348 LPRIHT 
358 LPRINT 
368 LPRINT 
378 LPRINT 
388 LPRINT 
398 LPRINT 
488 LPRINT 
418 LPRINT 
428 LPRINT 
438 LPRINT 
448 LPRINT ' 
458 LPRINT " 
468 LPRINT ■ 
478 LPRINT " 
488 LPRINT " 
498 LPRINT " 
563 LPRINT " 
518 LPRINT "6. 
528 LPRINT " 
538 LPRINT " 
546 LPRINT " 
558 LPRINT " 
568 LPRINT " 



BEFORE PRINTING AFTER PRIHTING" 

1118 ***" 

12 8 1 * *" 

18 2 1 « *" 

Bill ***• 

4. FOUR PASCALS TRIANGLES PRINTED IN A SQUARE LIKE THIS:' 
BEFORE PRINTING AFTER PRINTING" 

111111 «*****■ 

12 2 1 * *" 

1 1 * *" 

1 1 * *" 

12 2 1 » «• 

111111 ******* 

5. FOUR PASCALS TRIANGLES PRINTED IN A SQUARE LIKE THIS:' 



BEFORE PRINTING AFTER PRINTING" 
111111 ******* 

12 3 3 2 1 * «* *" 
136631 ****" 

13 6 6 3 1 « *»• 
123321 ****" 
1 1 1 1 1 1 «*****" 

START PASCALS TRIANGLES IN ANV ROM AND COLUKN" 
SO THAT A USER CAN TAPE TOGETHER SEVERAL PICTURES" 
TO HAKE A LARGER DESIGN THIS OPTION EXTENDS" 
PICTURES LIKE THOSE SHOWN IN OPTION 1 IN 36 X 36" 
CHARACTER CHUNKS. ENTRIES OF UP TO 1888 ROMS AH) COLUHS" 
ARE ACCEPTED. * 

578 LPRINT STRIN6K58, "-"> 

588 PRINT 

598 PRINT "WAT'S VOUR PLEASURE CI 2, 3, 4,5 OR 6)"i 

688 INPUT OZ 

618 IF OZC7 AND 008 THEN 638 

628 PRINT "I'H SUPPOSED TO BE VOUR FRIEND, 50 HON ABOUT IT?"- GOTO 598 

638 CLS 

648 PRINT "VOUR PICTURE SHOULD HIGHLIGHT THE MULTIPLES OF KHAT NUH3ER"; 

658 INPUT QZ 

668 PRINT 

678 PRINT "(HIT CHARACTER MOULD VOU LIKE TO PRINT OUT "i 

688 PRINT "REPRESENTING": PRINT "THE HULTIPLES Of'iffiii 

698 PRINT "(ENTER ";CHR«34);" ";CHR*(34);" FOR fl BLflHO"; 

788 INPUT S* 

718 PRINT 

728 PRINT "HHAT CHARACTER HOULD VOU LIKE TO PRINT OUT REPRESENTING EACH" 

738 PRINT "OF THE OTHER NUHBERS IN THE PATTERN "; 

748 PRINT "(ENTER ";CHR$(34);" ";CH»G4);" FOR A BUSK)"; 

758 INPUT T* 

768 PRINT 

778 IF 02=6 THEN 828 

788 PRINT "KOH HANV ROMS AND COLUHS IN THE ARRAV (HAX = 36>"; 

798 INPUT TZ 

888 IF TZ>36 PRINT "BE REASONABLE!"- GOTO 798 

818 CLS 

828 PRINT "MOULD VOU LIKE A CALENDAR PRINTED HITH VOUR PICTURE"; 

838 INPUT R5* 

848 IF LEFT*(R5*,iX>"V" THEN 888 

858 PRINT "WHAT VEAR BETWEEN 1688 AND 2888 MOULD VOU LIKE"; 

868 INPUT V9Z 

878 IF V9Z*(3899-VZX=8 THEN PRINT "EVEN I HAKE HISTRAKES!"- GOTO 856 

888 IF 0ZO6 THEN DIH PZ(36,36) ELSE DIH PZ(72,72) 

898 ON OZ GOTO 928, 2178, 1198, 1488, 1498, 2318 

988 REH TIHE TO CREATE AND PRINT A SINGLE PIECE OF PASflRT 
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918 REH FIRST BUILD THE PASCfiLS TRIANGLE 

928 FOR RZ=i TO TZ 

938 FOR CZ=i TO TZ 

948 IF (RZ-1)*(CZ-1)=8 THEN 998 

958 PZ(RZ,CZ)=PZ(RZ-1CZ)*PZCRZ,CZ-1) 

968 IF PZ(RX,CZX8Z[3 THEN 1688 

978 PZ(RZ,CZ)=PZ(RZ,CZ)-<2Z*QZ 

988 GOTO 968 

998 PZ(RZ,CZM 

1888 NEXT CZ 

1818 NEXT RZ 

1826 REH TIHE TO PLAV BACK THE TRIANGLE HITH AN ARTISTIC FLAIR 

1638 IF 0ZO3 THEN 1856 

1848 TZ=TZ*2-i 

1856 FOR RZ=1 TO TZ 

1868 FOR CZ=1 TO TZ 

1878 IF PZ(RZ,CZ)=8 THEN 1118 

1888 IF <PZ(RZ,CZ)/QZ-IHT(PZ<RZ,CZ>/9Z))»8ZC95 THEN 1118 

1898 LPRIHT T$; 

1168 GOTO 1128 

1118 LPRIHT S*; 

1128 NEXT CZ 

1138 LPRINT " " 

1148 NEXT RZ 

1158 IF LEFT$(R5$,1)="V* THEN 3888 

1168 GOTO 3538 

1178 REH OPTION 4: LINES 1178-1478 

1188 REH TIHE TO CREATE AM) PRINT A DOUBLE PIECE OF PASART 

1198 ZZ=TZ 

1286 REH BUILD THE UPPER LEFT HAM) CORtER OF THE ARRAV 

1218NZ=ZZ 

1228 FOR RX=1 TO HZ 

1238 FOR CZ=1 TO ZZ-1 

1248 IF <RZ-l)*(CZ-l)=fl THEN 1298 

1259 PZ(RZ,CZ)=PZ(RZ-1CZ)-(PZ(RZ,CZ-1) 

1268 IF PZ(RZ,CXXQZT,3 THEN 1388 

1278 PZ(RZ,CZ)=PZ(RX,CZ)-QZ*8Z 

1288 GOTO 1268 

1298 PZCRZ.CZM 

1388 NEXT CZ 

1318 ZZ=ZZ-1 

1328 NEXT RZ 

1338 REH BUILD THE LOHER RIGHT HALF OF THE ARRAV 

1348ZZ=tCi 

1358 NZ=2 

1368 FOR RZ=Zi TO 1 STEP -1 

1378 FOR CZ=ZZ TO NZ STEP -1 

1388 IF <RZ-ZZ)*(CZ-ZZ>=8 THEN 1438 

1358 PZ<RZ,CZ)=PZ(RZ,CZ+1>+PZ(RX+1CZ> 

I486 IF PZ(RZ,CZXQZt3 THEN 1448 

1418 PZ(RZ,CZ)=PZ(RZ,CZ)-QH2 

1428 GOTO 1488 

1438 PZ(RZ,CZ)=i 

1448 NEXT CZ 

1458 NZ=NZ+1 

1468 NEXT RZ 

1478 GOTO 1858 

1488 REH OPTIONS 4 S 5: LINES 1498-2168 

1458KZ-QZ 

1588 REH BUILD THE UPPER LEFT CORNER OF THE ARRAV 

1518 VZ=TZ 

1528 ZZ=IHT(VZ/2> 

1538 B5Z=ZZ*2 

1548 Z1Z=Z2 

1558Z2Z=Z1Z 

1568Z2Z=Z2Z 

1578 X4Z=Z3X 

1588 X5M4Z 

1598 FOR IZ=1 TO 212 

1683 FOR XZ=i TO 2Z 

1618 IF (JZ-1)*(IZ-1)=8 THEN 1668 

1628 miX, JZ)=PZ(IZ, JZ-l)4fZ(IZ-l JZ) 

1638 IF PZ(IZ,JZXQZ[3 THEN 1678 

1648 PZ(IZ,JZ)=PZ(IZ,JZ>-QZI2 

1658 GOTO 1638 

1668PZ(IZ,JZ>=1 

1678 NEXT JZ 

1688 IF 0Z=5 THEN 1766 

1698 2Z=ZZ-1 

1768 NEXT IZ 

1718 NZ=Z1Z 

1728 REH BUILD THE UPPER RIGHT CORNER OF THE ARRAY 

1738 FOR IZ=1 TO ZiZ 

1748 FOR JZ=YZ TO X5Z+1 STEP -1 

1758 IF IZ=1 THEN 1818 

1768 IF JZ=YZ THEN 1818 

177ePZ(IZ,JZ)=PZ(IZ,JZH>+PZ(IZ-lJZ> 

1788 IF PZ(IZ,JZXQH3 THEN 1828 

1798 PZ(IZ,JZ)=PZ(IZ,JZ)-QZC2 

1888 GOTO 1788 



ISM rare, jxm 

1828 IOCT JX 
1839 IF 0X=5 T«N 1 
1848 X5Z=X5»i 

1853 tea K 

1869 Ki=Z2Z 
1878 REM BUILD THE 
1888 FOR re=VX TO > 
18S9 FOR JX=1 TO 2 
1968 IF XS=i THEN 1 
1519 IF IX=VZ TIB) 
U28P2(IZ,ja=Ri(I 

1923 if mn,m<s 

1943PX(IZ,JX)=f(!<I 
1958 GOTO 1S38 
1S69PZ<IX,JX)=1 
1979 NEXT JZ 
1983 IF 02=5 THEN 2 
1999 Z2Z=Z2M 
2888 NEXT K 
2918 HX=Z3X 
2823 REH BUILD TIC 
2823 FOR I'/rW TO N 
2648 FOR W.-Ti TO 2 
2853 IF JX=VX THEN 
2863 IF IX=VZ THEN 
2873raBJ»=PX(I 
2883 IF PKI&JZXQ 
28S9 KKI&JZWd 
2163 GOTO 2688 
2ii9PKK.JiO=l 
2129 KEXT U 
2133 IF 0X=5 THEN 2 
2148 Z3Z=Z3Z+1 
2153 NEXT 12 
2163 GOTO 1658 
2170 REH PflSFORH C 
a89 FOR RX=1 TO T2 
2193 FOR CX=i TO T2 
2283 IF GDR2 THEN ; 
2210 IF(CX-1>=8 TKS 
2220 IF RB=C! THEN : 
2233 ITOZ,Ci)"BKR 
2249 IF P2(RX,C2X<! 
2259 P2(R2,CX>=P2(K 

2269 GOTO 2248 

2270 P2(R2,C2>=1 
2289KEXTCZ 
2298 NEXT IK 
2383 GOTO 1828 
2310 REH OPTION 6 L 
2328 REH PUS€S THE 
2339 REH NOTE THE PI 
2349 PRINT 

2359 PRINT "NHRT HII 

2360 PRINT "OF THIS 

2378 input rax,cix 

2388 DIH RZ(1888),C 
2399 REH «**T=TIH(i: 
2483 FOR L1M TO 3i 
241B FOR L2M TO 3t 
2420P2(Lre,L2Z>=8 
2430ICXTL22 
2448 NEXT UX 
2459 FOR L2Z=i TO II 

2469 R2(L22)=i 

2470 CKLffiM 
2483 HBfT UK 

2493 IF R1X=1 THEN ; 
2589 FOR R2=2 TO RH 
2510 FOR CM TO Cil 
2529 R2(C2)=SZ(G!>*I 
2539 IF R2(C!XQK[3 
2549 RZ(C!>=R2(CZH 
2559 GOTO 2538 
2569ICXTCZ 
2578 REM *** IF TIH 
2589 GOSUB 3338 
2593 NEXT R2 
2693 IF OM THEN \ 
2618 FOR CX=2 TO CH 
2623 CK(R1Z>=RZ(C2> 
2630 FOR RZ=RlX+i Ti 
2640 CZ(R2>=CKrS>*l 
2658 IF C2(R2X92t3 

2669 C.(R2)=CX<IHH 

2670 GOTO 2658 
2683 NEXT R2 

2690 REH *** IF TIH' 
2789 GOSUB 3338 
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.00 LEFT CORNEROF THE HRRRV 
12+1 STEP -1 



1968 

iffi-D+raiX+lX/O 
13 THEN 1378 
10/O-QH2 



OBt RIGHT CORKER OF THE RRRflV 

1+1 STEP -1 

5!+l STEP -1 

118 

±18 

:+Lj»4Pza%„E+i> 

13 TIEN 2128 
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PTION 2: LIKES 2188-2388 



288 
2278 
278 

:-l,CM>tfS!<RM,Cf> 
13 THEN 2288 
,09-012 



NES 2348-3878 

BOUHJRRIES WW OUT 

OTECTION HGfllNST THE TIKE OUT UNIV 1118 

L BE THE COORDINflTES (R,C> OF THE UPPER LEFT WW CORNER"; 
SECTION"; 



(1839) 



♦72 
HCf-1) 

THEN 2568 
32 



1)-T<S THEN 2778 



728 



R1Z+72 
2(R2+i> 
THEN 2688 
U2 



D-K6 THEN 2898 
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2718 NEXT C2 

2728 FOR CM TO 72 

2738 P2(l,C.>=RX(C2+Ci2-i) 

2748 PKC&lXMWHX-l) 

2758IEXTG! 

2768 FOR RZ=2 TO 72 

2778 FOR C2=2 TO 72 

2788 rcmc2>=rafs:-i,c2>+P2(RX,c!-i> 

2738 IF K!(R2.C2X62[3 THEN 2828 

2888 raR2,C2>=P2(R2, 00-822 

2818 GOTO 2793 

2828 NEXT Ci 

2838 REH *** IF TIH(1)-K6 THEN 3838 

2848 GOSUB 3838 

2858 NEXT R2 

2868 GOSUB 3829 

2878 LPRINT " ' 

2888 LPRINT " " 

2898 FOR R2=i TO 78 

2388 FOR CM TO 78 

2918 IF (PZ(R;,CZV(K-INT<raRZ,C.)/ffii))*8ZC98 THEN 2948 

2928 LPRINT V,; 

2938 GOTO 2950 

2948 LPRINT Si; 

2958 KEXT Ci 

2966 REM «* IF TIH(1)-T<6 THEN 3168 

2978 GOSUB 3838 

2988 LPRINT " " 

2998 NEXT W. 

3888 LPRINT " " 

3818 LPRINT ■ ■ 

3828 GOTO 1150 

3838 LPRINT ■ "; 

3848 REM «* I.INPUT ft* 

3858 REH «* 7=TIH(1> 

3868 RETURN 

3878 GOTO 1150 

3888 REH CRLEIiDRR 

3838 LETXZ=Y9;; 

3183 REM LINE!; 3888-3518 PRODUCE R C&ENDRR 

3118 REM PROGUBH IS ft SUBROUTINE THflT USES VflRIBBLE X=YEfiR 

3128 REH OF dlENDBR 

3138 K!=6 

3148 FOR JMC38 TO X!! 

3158 IF JX=X2 THEN 3218 

3168 IF JX/4 O INT(J2/4> THEN 3283 

3178 IF (JX-1788)*(JX-1888)*(JX-1988)*(JZ-2183)*<JX-2288)*(JX-23ee)=8 THEN • 

3188 C2=C2+2 

3198 GOTO 3211) 

3288C2=C2H 

3218 IF Ci<7 3HEN 3238 

3228CX=CX-7 

3238 IEXT JZ 

3248 LPRIKT " ' 

3258 FOR RZ=1 TO 12 

3268 REDO ftt 

3278 LPRINT Tf 3(17); RS;" MB 

3286REHDBX 

3298 IF X2/4 O lHT(X2/4> THEN 3328 

3388 IF mOTEBRIHW" THEN 3326 

3318 B2=82+l 

3328 REH TIME TO PRINT THE CflLENDfiR FOR THE VERR X 

3338U>RINTSTRING»(41,"="> 

3348 LPRINT "! SUN RON TIE BED THU FRI SflT!" 

3358 LPRINT SI RING$(4L"=") 

3368 FOR DM TO B2 

3378 LPRINT Tf3(6*C!);D2; 

3388 C2=CM 

3398 IF Ci<7 -HEM 3428 

3486 LPRINT ■ ' 

3418 C2=8 

3428 REXT D2 

3438 LPRINT " " 

3448 LPRINT SIRIHGf <41> *="> 

3458 FOR PM TO 3 

3468 LPRINT " " 

3478 NEXT PX 

3486 KEXT RZ 

3498 OHTB "JB-URRV", 31# "FEBRUFRVj 28. ')HRCH"> 31. 'flPRIL't 38 

3588 DfiTfi "HRY", 31, "JUNE", 38, "JULY", 31, "AUGUST", 31, 'SEPTEMBER" 

3518 DflTR 31, ' OCTOBER", 31, "NOVEMBER", 38, "DECEMBER", 31 

3528 REH MR PMGRfiH ENDS HERE 

3538 END 

3548 PRINT 8 J'75, "(PRESS ANY KEV TO CONTINUE)"; 

3558 R$=I«KEW 

3568 IF (*=" THEN 3558 

3578 OS 

3588 RETURN 

3538 PRINT 8e ! 34," 

3688 RETURN 



Pinball 



PINBALL is, naturally enough, a 
simulated pinball game— complete 
with bells if your terminal has them— in 
which the computer serves as the 
pinball machine. However, you don't 
need any quarters! The program is 
divided up into ten small routines 
contained within the whole. Each 
subprogram performs one task in 
simulating a pinball game. 

Details on each task/subprogram are 
as follows. 

1) Starting and monitoring the game. 

This task is performed by the master 
function PINBAL, which is contained in 
lines 1-600 of the program. Pinbal asks 
if the user wants instructions or a 
picture at the start of the game, puts 
each new ball into play, moves the ball 
until it comes into contact with an 
object on the table, and tells the user 
when he is finished and if he has 
broken the table record. 

2) Printing instructions. 

This subprogram is on the lines 
numbered 1010-1999, and its major 
task is to print the instructions of the 
pinball game and then to branch to the 
picture program to print a picture of the 
table (see below). After the picture of 
the table is completed, this subroutine 
explains the function of each figure on 
the table. 

3) Registering "hits" and computing 
new scores. 

Lines 2010-3999 are in charge of 
taking action each time the space 
occupied by the ball on the table is not 
blank. These lines also prepare the 
table to take action on the next task, 
namely flipping the table's flippers 
when the ball approaches them. 

4) Flipping the flippers. 

This task is accomplished by the 
lines in the four thousand range. These 
lines also set up indicators for the 
monitor routine (1 above) to put the 
next ball into play if necessary and 
branch to the routine that adds bonus 
points for tags (letters A-J) knocked 
down during that ball's play. 

5) Bonus points at the end of a ball's 

Play- 
Lines in the five thousand range 
handle this task and then branch back 
to the monitor routine to put the next 
ball into play. If all ten tabs are knocked 
down in one ball, the program im- 
mediately awards a bonus of 250 points 
and an extra ball to the player and 
resets the tabsforfurther play. Normal- 
ly, bonus points are awarded at the rate 
of ten per tab at the end of a ball. 



6) Printing pictures of the table. 

Lines in the six thousand range print 
a picture of the pinball table, either at 
the beginning of play or randomly, at 
the rate of one picture for every twenty- 
five "hits." 

7) Bouncing the ball off bumpers and 
the jackpot. 

The ball is "bounced" by the routine 
beginning at line 7850. 

8) Initializing the table. 

The table is initialized at the begin- 
ning of the game by lines in the nine 
thousand range. 



Suggestions for improvement and 
change. 

1) Change the table as you wish by 
inserting or deleting bumpers, 
jackpot(s), gates (numbers, now 1-9 
and 0), etc. You may also move the 
positions of any item on the table 
except the three flippers. 

2) Program in new sorts of table ob- 
jects. 

3) If your system is so equipped, rig in 
the program with some synthesizer 
music to heighten realism! 

Pinball was conceived and written by 
Donald-Bruce Abrams. 

PINBHLL 



COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 



DO V0U NEED INSTRUCTIONS? YES_ 



■ Cl8 • 



PINBALL 

THE RULES OF COMPUTER PINBALL ARE FAIRLY SIMPLE. YOU GET A TOTAL 
FIVE BALLS. IF V0U SCORE MORE THAN 1600, V0U GET A 6TH BALL IF 
VOUR SIX BALL SCORE IS MORE THAN 2, 200, V0U GET A SEVENTH BALL 

THIS TABLE HAS THREE FLIPPERS, EACH OF WHICH PROTECT AN OUT CHUTE 
HOWEVER, THIS SET DIFFERS FROM OTHER. SETS, SINCE V0U MAV 0NLV FLIP 
TWO OF THE FLIPPERS ANV TIME THE BALL APPROACHES THE CHUTE. 
N0TA BENE; V0U DO NOT! ! ! KNOW FOR SURE WHERE THE BALL IS! ! 
SO, IF V0U FLIP THE WRONG TWO FLIPPERS, YOU LOSE THE BALL, AND THE 
NEXT BALL IS PUT INTO PLAY. 



PRESS ANV KEY TO CONTINUE 

0l8 



PINBALL 

THERE IS SOME LOGIC TO THE CHOICE OF FLIPPERS 

THE FLIPPERS ARE NUMBERED 1, 2, 3 FROM LEFT TO RIGHT 

SINCE LUCK PLAYS A SMALL PART IN CHOOSING THE CORRECT FLIPPER, 

YOU WILL DO POORLY IF YOU JUST GUESS WHICH FLIPPER THE BALL IS 

HEADED TOWARD. . . 



PRESS ANY KEY TO CONTINUE 
ola 



PINBALL 

THE CENTER BUMPERC*) IS THE JACKPOT 1 
THE BALL IS PUT INTO PLAY IN THE LOWER LEFT CORNER AND GOES UP 
RND AROUND. WHERE IT IS DEPOSITED IN THE UPPER HALF OF THE 
THE TABLE. THE BALL MAY BOUNCE FROM THE SIDE OF THE TABLE, 
AND MAY BOUNCE UP FROM THE LINE ON THE SIDE AND FROM THE 
DIAGONALS (REFER TO PICTURE OF PINBALL TABLE) 
OF THE TABLE. THE BUMPERS ARE INDICATED BY STARS <*). 



PRESS ANY KEY TO CONTINUE 
0l8 
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PINBALL 

THE BALL MAY GO OUT OF PLAY THROUGH ONE OF THE 4 HOLES IN THE 
BOARD IN WHICH CASE A BONUS IS SCORED. 

THE GATES ARE NUMBERED 1-9. AND KNOCK DOWN TABS ARE SHOWN AS 
THE LETTERS A-J. YOU GET A BONUS FOR THESE AT THE END OF EACH 
BALL. KNOCKING DOWN ALL OF THEM SCORES fi SPECIAL BONUS 



PRESS ANY I EV TO CONTINUE 
ols 



AA 


BB CC 


DD 




. . . . EE 


FF GG 


HH .. 




01 


02 03 04 


05 






06 8? 08 09 






00 






00 


00 
... I J.... 


00 





BRLL AT , 

PRESS ANY KEY TO CONTINUE 



■ els ■ 



THE BALL IS NOW AT < 2 . 7 ). 

TAB B DOWN. . . 

YOU RECEIVE 4 POINTS FROM THE BUMPER AT 7 , 10 

SCORE; 4 

BALL APPROACHING FLIPPERS. ENTER FLIPPER CHOICE 

IN THE FORM: X,Y ? 2,3- 




• els 



THE BALL IS NOW AT < 8 , 10 ; 

TAB G DOWN. . 

TAB I DOWN. . . 

BALL APPROACHING FLIPPERS. EN TER FLIPPER CHOICE 

IN THE FORM: X,V ' 4,6. 

els 



NO, YOU HAVE CHOSEN TO PROTEC T THE WRONG FLIPPERS. YOU NOW HAVE 

4 BALLS LEFT. 

YOUR BALL KNOCKED DOWN 3 TAGS ' ! 
FOR THIS STELLAR PERFORMANCE, YOU ARE AWARDED 
***** 30 ***** POINTS! ! 
SCORE. 34 

THE BALL IS NOW AT ( 3 , 10 ) 
TAB C DOWN. . . 

BALL APPROACHING FLIPPERS. EN 'ER FLIPPER CHOICE 
IN THE FORM: X,Y ? 6,9- 



Cl8 ■ 



NO, YOU HAVE CHOSEN TO PROTEC ! THE WRONG FLIPPERS. YOU NOW HAVE 

3 BALLS LEFT. 

YOUR BALL KNOCKED DOWN 1 TAGS ! 
FOR THIS STELLAR PERFORMANCE, YOU ARE AWARDED 
***** 10 ***** POINTS i ' 
SCORE: 44 
THE BALL IS NOW AT < 6 , 8 X 



■ Ols ■ 



PRESS ANY CEY FOR PICTURE 
COMPUTER PINBRLL 



AA BB CC 


DD 




O 






.. . EE FF GG 


HH , . 




01 02 03 04 


05 




.... 06 07 08 OS 






00 






00 00 


00 




I J 







BALL AT: 6 , 8 

PRESS ANY KEY TO CONTINUE 



YOU HAVE HIT THE JACKPOT!!" r'OU HAVE JUST WON 147 POINTS!' 
YOU NOW HAVE 191 POINTS! 



Cl8 ■ 



8CLERR128 

19 OS: PRIHT8413, "PlNBfiLL" 

29 PRINT: PRINT TF3<7> "COPYRIGHT 1379 CREATIVE CONFUTING KORRISTORN, NJ" 

38 PRIKT8968, ""; : INPUT "DO YOU NEED INSTRUCTIONS"; B 

48FHJ=" I, tit " 

58 DIM Rt<ie>,P*«:0),L<2) 

68 GOSUB 2288 

78 Ai=0:Re=8:X9=0 

88 IF LEFT«I*.1>=*V Tie GOSUB 56B:CLS 

98G0SUB1828 

188 B=5 

118 S=8:P=8 

128T*="fl8CDEF6HK" 

138 FOR Z=i TO 18:RI(Z)=" ":NEXT Z:Z2=8 

148 M=8 

158 87=8 

168 IF B<=8 THEN 388 

178 L<1)=2+1NT<RK <8>*6) :L(2)=INT(RND(8)*14)+1 

i88C=i+INT(RND<8)*7>:ftt=8 

198 PRINT "THE BttL IS HON AT <";L(1);",";L<2>;">. " 

288 IF HIM<P$(L<1»,L<2>,1>=" "THEN 228 

218 GOSUB 848 

228 IF B7=7 THEN -58 

238 IF R104 THEN 258 

248 GOTO 338 

258 L<l>=L(i)+l 

268Pd=8 

278 L<2)=L(2)+INTU+RND<8)*3)-2 

288 IF L(2)<2 OR l.(2)>15 THEN L<i>=LCl>+lHT<i*RKD(8>*3>-2 

298 IF L(2><2 OR L(2)>15 THEN L<2>=INT(2+RND<8)*13> 

388 IF L(i»=2 «£ L(iX=28 THEN GOTO 288 

318 L<l>=lNT<i*RHK8>*7) 

328 GOTO 288 

338 GOSUB 1588 

348 IF 88=1 THEN KB 

358 ON X9+1 SOTO 128,453 

368 PRIHFYOU HRYE PLRYED YOUR SEVENTH BRLL RND SCORED"; :PRINT USING FM;P 

378 PRINT'YOU'RE V15Y GOOD!":GOTO 2438 

388 PRINT "YOU HR\E FtflYED YOUR FIVE BfiLLS, RND HAVE SCORED" 

396 PRINT "R TOTAL OF"; :PRINT USING FMiP; :PRINT "POINTS. " 

480 IF P<1688 THB: 2438 

418 PRINT "*** BOWS BRLL ***" 

428B=B+1 

438X9=1 

448 GOTO 128 

458 PRINT "YOU HftVE PLAYED YOUR SIXTH BRLL AND SCORED"; :PRINT USING FH$;P 

468 X9=2 

478 IF P<2288 THB: 2438 

488 PRINT ■*** BOIJJS BALL ***" 

498 B=B+1:S=3 

588 GOTO 128 



136 



518 GOTO 848 

528 GOTO 228 

538 L<1)=2+INT<RHD<8)*7) 

548 L<2)=2+INKRHK8)*13):X=8:Y=6 

558 GOTO 188 

568 OS: PRINT Tfi8(28) "PIHBALL": PRINT 

578 PRINT "TIC RULES OF COMPUTER PIHBflLL ARE FAIRLV SIHPLE. VOU GET A TOTAL"; 

588 PRINT "FIVE BALLS. IF VOU SCORE MORE THAN 1688, VOU GET A 6TH BALL IF" 

5S8 PRINT "YOUR SIX BALL SCORE IS (ORE THAN 2,288, VOU GET A SEVENTH BALL " 

688 PRINT: PRINFTHIS TABLE HAS THREE FLIPPERS, EACH OF UHICH PROTECT AN OUT CHUTE"; 

618 PRINT "HOWEVER, THIS SET DIFFERS FROH OTHER SETS, SINCE YOU HAY ONLY FLIP"; 

628 PRINT "TWO OF THE FLIPPERS ANY TIHE THE BALL APPROACHES THE CHUTE " 

638 PRINT "NOTA BENE: VOU DO NOT!!! KNOW FOR SURE t«ERE THE BALL IS!!" 

648 PRINT "SO, IF VOU FLIP THE WRONG THO FLIPPERS, VOU LOSE THE BALL AND THE"; 

658 PRINT "NEXT BALL IS PUT INTO PLAV. " :G0SUB2448 

668 PRINT "THERE IS SOME LOGIC TO THE CHOICE OF RIPPERS" 

678 PRINT "THE FLIPPERS ARE NUMBERED 1,2,3 FROH LEFT TO RIGHT" 

688 PRINT "SINCE LUCK PLAVS A SHU PART IN CHOOSING THE CORRECT FLIPPER, " 

698 PRINTYOU HILL DO POORLV IF VOU JUST GUESS WHICH RIPPER THE BALL IS" 

788 PRINT "HEADED TOWARD... ":PRINT:GOSUB 2448 

718 PRINT " THE CENTER BUHPERtt) IS THE JACKPOT!" 

728 PRINT "THE BALL IS PUT INTO PLAV IN THE LOWER LEFT CORNER AND GOES UP" 

738 PRINT "AND AROUND. WHERE IT IS DEPOSITED IN THE UPPER HALF OF THE" 

748 PRINT "THE TABLE THE BALL HAY BOUNCE FROH THE SIDE OF THE TABLE, ' 

758 PRINT "AND HAY BOUNCE UP FROH THE LINE ON THE SIDE AND FROM THE" 

768 PRINT'DIAGONALS (REFER TO PICTURE OF PINBHLL TABLE)" 

778 PRINT "OF THE TABLE THE BUHPERS ARE INDICATED BY STARS <*). "' GOSUB 2448 

788 PRINT "THE BALL HAV GO OUT OF PLAY THROUGH ONE OF THE 4 HOLES IN THE" 

798 PRINT "BOARD IN WHICH CASE A BONUS IS SCORED. " 

888 PRINT" THE GATES ARE NUMBERED 1-9. AND KNOCK DORN TABS ARE SHOWN AS" 

818 PRINT "THE LETTERS A- J. VOU GET A BONUS FOR THESE AT THE END OF EACH" 

828 PRINT "BALL KNOCKING DOWN ALL OF THEM SCORES A SPECIAL BONUS"- GOSUB 2446 

838 RETURN 

848 IF HID»(P$(L(1)),L(2),1)="8" THEN 928 

858 IF INT<RHD(8H.5)=01 THEN 876 

868 IF HIM(P*(L(l)),L(2),l)="/ , ORHIM(P*(L(l)),L(2),l)="S" THEN 1828 

878 S8=INT<RND<8)*6+1) 

888 FOR SM TO S8:PRIHT CH»<7>; :NEXT S7 

896 IF MID$<P*<L<i»,L<2),lX="J"AND HIM(PKL(1)),L<2),1»="A" TIEN 1858 

988 GOSUB 1148 

916 RETURN 

928 REN 

938 PRINT "TO CONSOLE VOU, I WILL GIVE VOU AN EXTRA" 

946 Q=INT<RHD<8)*i4i) 

95BP=P+fi 

968 PRINT Q,' "POINTS, TO BRING VOUR TOTAL TO"; :PRINT USING FM;P 

978 PRINT "VOU MM HAVE HAVE"; B-li "BALLS LEFT. " 

988B=B-1 

998A7=7 

1688 GOSUB 1768 

1818 RETURN 

1628L(l)=L(l)+(l+INT(RND(8)*4))-(l+INT(RNO(8)*4)) 

1838 L(2)=2+1NT<RND<6)*14) 

1846 RETURN 

1858 REM 

1668 FOR 8=1 TO 16 

1878 IF R*(Q)=HID$(P$<L(1)),L(2),1) THEN 1138 

1888 NEXT Q 

i898Z3=Z3*i:R*(Z3>=HID$<P$<L<l»,L<2>,i> 

1188 PRINT "TAB ";R*(Z3>;" DOWN..." 

1118 IF 23=10 TKN GOSUB 1768 

1129 RETURN 

1136 RETURN 

1146 IF HID*<P*<L(i)),L<2),l)=CHR$<8) THEN RETURN 

1158 IF HIW<M(L<1»,L<2>,1)="]" THEN RETURN 

1168 IF HID»(P»(L(1)),L(2), l)="t" THEN RETURN 

1178 IF HIM<P*<L<1»,L<2),1)=""" THEN 1288 

1188 M=8 

1198 IF HID*<W(L<1)),L<2>,1)="=" THEN 1558 

12B8C=C-i 

1216 IF C=8 THEN 1288 

1226 IF HIDI(P*(L(1)),L(2),1)="!"0RHIM(P*CL<1)),L(2),1)="S"THEN 1288 

1238 IF HIW(M<L<i)>,L<2),i>=Y"0RHID*(P*<L<l)),L<2),l>="-"THEN 1288 

1248 IF INT<i+RND(8)*2>=2 THEN GOSUB 1988 

1258 IF HIM(P$(L(1)),L<2),1)="$" THEN 1386 

1268 IF MIM(P*(L<1)),L(2),1)="*" THEN 1438 

1276 GOTO 1478 

1288 W=4 

1296 GOTO 1538 

1388 IF L<2)<6 THEN GOTO 1348 

1316 IF L(2)<11 THEN 1368 

1328 D=2:1F INT(i-«ND<l)*2)=i THEN D=D+(i+INT(RKD(i>*3»-2: IF D>3 THEN N>-2 

1338 RETURN 

1346 0=1: IF INT(1+RHD(6)*2)=1 THEN D=INTCRHM6)*3MD 

1353 RETURN 

1368 D=2:IF INT(1+RND(6)*2)=1 THEN D=DHNT(RND(6)*3):IFD>3THEN D=D-3 

1376 RETURN 

1388 G=45*INKRNDC8)*146) 

1398 PRINT "VOU HAVE HIT THE JACKPOT!!!! VOU HAVE JUST HON"; Gv "POINTS!!" 

I486 P=P*Q 

1416 PRINT "VOU NOW HAVE"; :PRINT USING FH$;P; :PRINT "POINTS!" 

1426 GOTO 1588 

1438 Q=INT(RND(8)*64)*1:P=P*Q 

1448 PRINT "VOU RECEIVE"; Qj "POINTS FROH THE BUHPER AT ■; L(l>; ", "; L<2); " " 

1458 PRINT "SCORE: "; :PRINT USING FHfcP 

1468 GOTO 1588 

1476 Q=15*(i+INT<RND<e>*6»:P=Prt 

1488 PRINT "VOU GET"; Qj "POINTS FROH GATE "; HIDJ<P«L<1», L(2), 1) 



1498 PRINT "SCORE: "; :PRINT USING FHfcP 

i588L(l)=<L<l>-INT<l+RHK8)*3»-IHTtt+RHD(8>*2> 

1518 L(2)=L(2)-3+INT<RND(6)*5)+l 

1526 RETURN 

1538 GOSUB 2178 

1546 GOTO 1393 

1556 L(1)=L<1)-(1+INT(RND(6)*5)) 

1566 L<2)=L<2)-2+(l+INT(RND<8>*4» 

1578 RETURN 

1586 PRINPBALL APPROACHING RIPPERS. ENTER RIPPER CHOICE" 

1598 INPUT "IN THE FORM: X,Y ";V,H: CLS 

1688 IF Y=0 OR H=D THEN 1678 

1616 PRINT "NO, YOU HAVE CHOSEN TO PROTECT THE WRONG RIPPERS. VOU NOW HAVE 

1628 PRINT B-l; "BALLS LEFT." 

1638B=B-1 

1648 BB=8 

1658 GOSUB 1768 

1668 RETURN 

1678 A8=l 

1688 C=INK1+RND<8>*5) 

1698 RETURN 

1786 IF 73=16 THEN 1776 

1716 IF 73=8 THEN RETURN 

1728 PRINT "VOUR BALL KNOCKED DOWN"; 73; "TAGS!!" 

1738 PRINT "FOR THIS STELLAR PERFORMANCE, VOU ARE HORDED " 

1748 PRINT "**«*"; 18*22; "*****"; :PRINT" POINTS!!" 

1758 P=P+16*Z3 

1768 GOTO 1816 

1778P=P+258 

1786 PRINT "***** YOU KNOCKED DOWN ALL 18 TAGS!!! *****" 

1798 PRINT "VOU ARE AWARDED 258 POINTS AND AN EXTRA BALL!!!" 

1886B=Btl 

1818 PRINT "SCORE: "; :PRINT USING FH*;P:RETURN 

1826 GOTO 1988 

1836 PRINT:PRINT" PICTURE " :PRIHT"«***B*»***t«*" 

1848 FOR 0=1 TO L(1)-1:PRINT P$(Q):NEXT Q 

1858 PRINT HIDS(P*<L(l)),l,L(2)-l);"t"iHIDS(P*<L<i)),L<2)*l,i6-L(2)> 

1868 FOR Q=L(1)H TO 28:PRINT Pt(9):NEXT Q 

1878 PRINT :PRINT"THE BALL WAS AT THE '#'" :PRIHT:PRIHT"****************" 

1888 GOSUB 2446 

1898 RETURN 

1968 IF L<1)*L<2>=8 THEN 1938 ELSE PRINTe979, "PRESS ANY KEY FOR PICTURE"; 

1916 IF INKEV*=" THEN 1318 

1328 CLS: PRINTW2, "COHPUTER PIHBflLL" 

1938 A*=STRINGK2,iSi>: B$=STRING$<2,143): C*=STRIN6*<2, 176) 

1948 E*=STRING$<2,140>: F$=STRIN6*<2,131): G$=STRINGI(2, 173) 



1958 PRINT88, " 
1966 PRINT A*;" 
1376 PRINT Mi ■ 
1988 PRINT fl$i" 
1998 PRINT ft*; ° 
2868 PRINT ft*;" 
2618 PRINT A*;" ' 
2628 PRINT A*;* 



■;»;" 
";A* 



';B»; 



";ft* 



"if» 

";B»;" 

";f» 

';« 



";f» 



';C*;STR1NG$<24,148>;» 
■;B$;" ";B*;" 
AA BB CC DO 
";B*;" ";B$;' 

■iBJi" ";Bt" « 

";B$;" ";B$;° 

BJi'EE FF GG HH";B*;' 

■;B*;" ■;»>■ ";B;" ";AJ 

2638 PRINT A$;STRING»(6,148);STRINGt(16,32);STRlNG»(6,148);f» 
2848 PRINT Rfc' 81 82 83 84 85 ";Ht 
2858 PRINT Al; " ";B*;" 86 67 88 89 ";B*;" MB 
2666 PRINT f»;STRING*<6,148)" 86 "STRINGt(6,148>;A* 

2878 PRINT Rt; " 66 88 88 ";A» 

2888 PRINT At;B*;K;C$;STRING$(16,32);C*;B$;B$;A$ 
2890 PRINT B$; " ";F*;E*;B;"I J";C$;E*;F*;" ";f» 

2188 PRINT B$;STRING$(28,148);B»; 
2118 PRINTM85, "BALL AT: "LCD; ", ";L<2); 
2128 IF L(l)=8 OR L(2)=8 THEN 2148 
2138 PRINT§aa)-2)*64*<L<2)-i)*2+i, "()"; 
2146 PRINT8549, "PRESS ANY KEY TO CONTINUE"; 
2158 IF IIKEY*=" THEN 2156 ELSE CLS 
2166 PRINT89, "»; : RETURN 
2176 L(2)=ABS(U2)-2+INT(l+RHD(6>*4)) 
2188 IF L<2X=15 THEN RETURN 
2138 U2)=i+mT<RND(6)*15>:R£TURN 
2288P$(1)=" " 

2216 FOR 0=1 TO 12:P»(i)=P»<l)+"C"tCHR$(8)+"]":NEXT Q 
2228 P*(1)=P*(1)*" " 

" 

■ 0" 

D 0" 

0" 

. »0" 

0" 

H*0" 

t 0" 



2238 P*<2>=" 
2246M(3)="0 * * 
2256P»(4)="0 A B 
2268 P»(5)="0 * 
2276 P$<6)="0 * * $ 
2288 P*(7)="0 * 
2296 P*(8)="0* E F 
2388P«9)="0 * * 



2318 W<18)="0= =0" 

2326 PJ(11)="0 12 3 4 5 0" 

2338 P$(12)="0 * 6 7 8 9 * 0" 

2348 P$(13)="0= =0" 

2356 P*<14)="0 6 6 8 0" 

2366M(15)="!!! !!!" 

2376 P»<16)="0 

2388 P$<17)="0 

2398 P$(18)="0 

2488 P*<19)="0 

2418 P*<26>="\- 

2428 RETURN 

2438 PRINT "COKE PLAY AGAIN SOKETIHE!!":GOSUB 2446:END 

2440 PRINT0379, "PRESS RNV KEV TO CONTINUE"; 

2458 IF 1NKEY**" THEN 2458 ELSE PRINT8128, CHRX31); : RETURN 

2468 RETURN 
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Seemingly, the purpo: 
is to chase-down and < 
Now this rabbit is ar 
devil— it can hop ram 
direction. You can run al 
the rabbit, maybe eve 
computer will decide). 
within20unitsoftherab 
catch him. Before e. 
computer will print out 
the rabbit's position, th 
rabbit is going to ju 
closest approach on th' 
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you wish to run. All C( 
directions are as a g« 
mark them on a stanc 
Coordinate System. 



e of this game 
atch a rabbit, 
elusive little 
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least as fast as 
n faster (the 
You must get 
Ditto be able to 
ich hop, the 
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3 direction the 
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; last hop. You 
vhich direction 
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ometer would 
ard Cartesian 



In addition to being good fun, this 
game gives you practice in usmg and 
visualizing an x-y coordinate plane. 
After each hop, consider the output 
and try to run the right direction. Try to 
do all the figuring in your head. Using 
scratch paper is considered to be 
cheating (except for maybe the first 
time you play). 

Suggested Modifications 

1 . Change the program so that you can 
choose your own speed. 

2. The game is much more challenging 
when the "capture distance' can be 
varied. A distance of 50 units is a 
cinch, 15 units may make you wish 
for scratch paper, 5 units will require 



you to use a protractor and graph 
paper. 

3. See if you can invent a way to extend 
this game to 3 dimensions! 4 dimen- 
sions! etc.! 

4. You might try limiting the total 
number of hops and/or having the 
computer give hints when re- 
quested. 

Rabbit Chase was written by Ted C. 
Park of Pacific Union College. It first 
appeared in Creative Computing, 
Mar/Apr 1975. 



RABBIT CHAS : 
COPYRIGHT 1979 CREATIVE CONPlf ING M0RR1ST0WR, NJ 

cis — 



HIT ENTER TO START? . 



CIS • 



SPEEDS (UNITS/HOP)' 

RABBIT - 138 YOU - 390 

HOP*: 1 DISTANCE TO RABBIT: 82 

RABBIT — POSITION: ( 158, 3 -8) 

YOU POSITION: < 0, 0) 

_ CIS 

SPEEDS (UNITS/HOP): 

RABBIT - 130 YOU - 398 

HOP*: 2 DISTANCE TO RABBIT: 26 

RABBIT — POSITION: C 32, 3 )2) 

YOU POSITION: ( -276. 2' 6) 

CIS 

SPEEDS (UNITS/HOP): 

RABBIT - 130 YOU - 398 

HOPf : 3 DISTANCE TO RAE8IT: 586 

RABBIT — POSITION: ( -36, 2 1) 

YOU POSITION: ( -552, 1 52) 

_ els 

SPEEDS (UNITS/HOP): 

RABBIT - 130 YOU - 398 

HOP*- 4 DISTANCE TO RABBIT: 336 

RABBIT— POSITION: < -61, 114) 

YOU POSITION: ( -551 S 12) 



CLOSEST APPROACH: 382 
AND DIRECTION: 165 
AND DIRECTION:? 135 



CLOSEST APPROACH: 318 
AND DIRECTION: 238 
AND DIRECTION:? 135. 



CLOSEST APPROACH: 326 
Al© DIRECTION: 259 
AND DIRECTION:? 98 



CLOSEST APPROACH: 586 
AND DIRECTION: 91 
AND DIRECTION:? 135 



■ els ■ 



SPEEDS (UNITS/HOP): 

RABBIT - 130 YOU - 398 

HOP!' 5 DISTANCE TO RABBIT: 1214 

RABBIT — POSITION: ( -64, 1 74) 

yoy POSITION: ( -827, iU?) 



CLOSEST APPROACH: 936 
AND DIRECTION: 203 
AND DIRECTION:? 8 



SPEEDS 
RABBIT 
H0P»: 
RABBIT 
YOU — 



(UNITS/HOP): 

— 130 YOU - 390 

6 DISTANCE TO RABBIT: 826 

— POSITION: ( -183, 23) 

— POSITION: < -437, i 17) 
els 



CLOSEST APPROACH: 1826 
AND DIRECTION: 82 
AND DIRECTION:? 225 



SPEEDS (UNITS/HOP) 

RABBIT - 130 YOU - 398 

HOP*: 7 DISTANCE TO RABBIT: 885 

RHB8IT — POSITION: < -165, " 52) 

YOU POSITION: ( -713, 42) 

CIS 



CLOSEST APPROACH: i 
AND DIRECTION: 63 
AND DIRECTION:? 135 



SPEEDS (UNITS/HOP)' 

' - 138 YOU - 398 

DISTANCE TO RABBIT: 158 

POSITION: ( -186, 168) 

POSITION: ( -989, 1 .17) 

CIS 



HOP*: 8 
RABBIT — 
YOU 



CLOSEST APPROACH: ! 
AND DIRECTION: 62 
AND DIRECTION:? 178 



18 CLS: PRINT8411, "RABBIT CHASE" 
20 PRINT: PRINT TABC7) "COPYRIGHT 1979 
CRERTIYE CONPUTING HORRISTORN, NJ" 
38 PRINTS960, "; ■ INPUT "HIT ENTER TO STARTS A* 
48 CLS 

50 REH (T IS THE SQUARE OF THE CAPTU-E DISTANCE) 
60 LET T=488 

70 REH - INITRLIZE VELOCITIES AND POSITIONS 
80 LET Vi=INT(RND<0)*18+ 5)«18+58 
98 LET V2=(IHT<RND(0)*2+. 5)+l)*Vl 
180 LET a.=(INT<RND(8)*408)+ie0)*SGN<RI;DCe)-. 5) 
118 LET Yi=<IHT<RND<8)*4e0)+i88)*SGN<RliD<8)-. 5) 
128 IF Yl=8 OR X1=0 THEN 100 
138 LET X2=8 
148 LET Y2=0 

158 PRINT "SPEEDS (UNITS/HOP) : " 
160 PRINT "RABBIT -"jVL'YOU -*iV2 
170 PRINT 

180 PRINT 

190 PRINT 

288 LET C=<X2-Xl)[2+(Y2-Yi)t2 

218 LET Pl=3. 1415926535891/188 

228 LET H=l 

238 REN — PRINT OUT 

240 LET D1=INKRND<8)*359) 

258 PRIHT0256, "HOPS: "; 

268LET2=H 

270 GOSUB 888 

288 PRINT " DISTANCE TO RABBIT: "; 

290 LET Z=S0R«X2-Xi)[2KY2-Yl)i:2) 

388 GOSUB 380 

310 PRINT * CLOSEST APPROACH: "; 

320 LET Z=SQR(C) 

338 GOSUB 880 

348 PRINT 

358 PRINT "RABBIT — POSITION: 0; 

368 LET Z=X1 

378 GOSUB 818 

388 PRINT "."; 

398 LET Z=Yi 

480 GOSUB 810 

418 PRINT ") AND DIRECTION:"; 

420 LET Z=D1 

438 GOSUB 800 

448 PRINT 

450 PRINT "YOU POSITION: ('; 

468 LET Z=X2 

470 GOSUB 810 

488 PRINT ", ") 

490 LET Z=Y2 

508 GOSUB 810 



510 PRINT") AND DIRECTION:"; 

520 INPUT D2 

530 IF D2<0 OR D2X260 THEN 528 

548 PRINT 

558 PRINT 

560 REH - COMPUTE PATHS AND SEE IF THEY INTERSECT 

570 LET S=V1«COS(D1*P1)/100 

580 LET Y3=V1*SIH<D1*P1)/108 

598 LET X4=V2*CO5(D2*P1>/100 

688 LET Y4=V2*SIN<D2*Fi)/180 

618 LET C=<X2-Xl)t2+<Y2-Yi>[2 

620 FOR 1=1 TO 180 

638 LET X1=X1+X3 

640 LET Yi=Yl+Y3 

658 LET X2=X2+X4 

668 LET Y2=Y2+Y4 

678 IF C«X2-X1)[2+(Y2-Y1)[2 THEN 698 

688 C=(X2-X1)C2+(Y2-Y1)[2 

698 NEXT I 

708 LET H=H+1 

710 IF DT THEN 248 

728 CLS. PRINT 

738 PRINT 

740 PRINT "*******«*" 

758 PRINT "* GOT YA *" 

768 PRINT "**********" 

778 PRINT 

788 PRINT 

790 END 

888 REH -CONVERTS NUHBER5 TO STRINGS FOR CLEANER OUTPUT 

810 Z=INKZ+. 5) 

820 PRINT RIGHT*'." "+STR$(Z), 5); 

838 RETURN 

840 END 



138 



s® 



You are the driver of a race car on the 
notorious NY Route 20. You'll have to 
drive 5 miles with V2 gallon of gas, while 
keeping alert for changes in the road 
conditions, other cars, etc. 

At the start you pick your car and 
course. During the race you control 
braking and acceleration. 

Watch out for passing another car! If 
you try to go the same speed he's 
going, you're going to meet a 
Greyhound bus head-on! 

The game is tough to win. I usually 
wipe out in a curve or run out of gas. 
You might want to increase your MPG 
rating. . .look at line 800- 

Good luck! 

This program originally appeared in 
Creative Computing, Jan/Feb 1975. 




ROADRACE 
COPYRIGHT 1379 CREATIVE COMPUTING H0RRIST0HN, NJ 

HIT ENTER TO START? . 



■ 0I3 • 



THIS IS THE PITT5FIELD-ALBANY ROAD RALLY 
ICLCOHE TO THE FIRST ANNUAL PITTSFIELD-ALBANY RORD RALLY. 
VOU'LL BE DRIVING ROUTE 28, TRV1NG TO HIH THE RACE AND 
STRV ALIVE IN THE BHRGIN. GOOD LUCK!! 

YOY HAVE YOUR CHOICE OF; (1) A YH; <2> TRIUMPH TR3; 

<3) DflTSUN 288-2; OR (4) FERRARI 

CHOOSE THE CAR YOU HAHT BY THE NUMBER IH FRONT OF IT. 

REHERBER, TIC BETTER THE CAR, THE HORE GRS IT USES. 

HHICH CAR? 2. 

els 



HOH VOU CHOOSE RHICH COURSE YOU HANT TO RACE ON 
THE EASIEST COURSE IS NUMBER i, AND IS THE STRAIGHTEST 
ROUTE. NUMBER 5 CONSISTS HOSTLV OF TURNS AND THISTS. 
WHICH ROUTE DO VOU HANI? i 

VOU HILL HEED TO TRAVEL 5 HILES HITH . 5 GALLONS OF GAS. 
VOUR STATUS HILL BE SHORN EACH 18 SECONDS. AFTER EACH 
STATUS CHECK YOU MILL BE ASKED FOR A REM RATE OF GflS 
A RATE OF +18 IS HARD ACCELERATION, AND -18 IS HARD BRAKING. 
ANY NUHBER IN BETHEEN IS ALLOWABLE. 

PRESENT VELOCITY = 8 HO. OF GALLONS = .5 
NO. OF HILES = 8 TIHE PASSED = 8 SECONDS 
HHAT IS VOUR NEH RATE OF GAS? 18. 



• els ■ 



ROAD CONDITIONSiVEHICLE AHEAD 1888 FEET 

PRESENT VELOCITY = 78 NO. OF GALLONS = .47 
NO. OF HILES = . 152174 TIKE PASSED = 18 SECONDS 
UfflT IS VOUR NEH RATE OF GAS? 2. 
els 



ROAD CONDITIONS:VEHICLE AHEAD 1888 FEET 

PRESENT VELOCITY = 138 NO. OF GALLONS = . 38 
NO. OF HILES = 1 84565 TIRE PASSED = 56 SECONDS 
HKAT IS VOUR NEH RATE OF GAS? 18. 



■ els ■ 



ROAD CONDITIONSiVEHICLE PASSED BV 95 HPH 

PRESENT VELOCITY = 151 NO. OF GALLONS = . 35 
NO OF HILES = 137391 TIHE PASSED = 68 SECONDS 
RHAT IS YOUR NEH RATE OF GAS? 18. 



- els 



ROAD CONDITIONSiVEHICLE AHEAD 1888 FEET 

PRESENT VELOCITY = 159 NO. OF GALLONS = .32 
HO. OF HILES = 1 71957 TIHE PASSED = 78 SECONDS 
HHAT IS YOUR HEH RATE OF GAS? 8. 



• els • 



ROAD CONDITIONSiVEHICLE PASSED BV 124 HPH 

PRESENT VELOCITY = 149 NO. OF GALLONS = .296 
NO. OF HILES = 2 84348 TIHE PASSED = 88 SECONDS 
WW IS VOUR NEH RATE OF GAS? 28. 



NOT VALID. NEH RATE? 18. 



• els • 



• els ■ 



ROAD CONDlTIONSiCLEAR AMD STRAIGHT 

PRESENT VELOCITY = 157 NO. OF GALLONS = . 266 
NO. OF HILES = Z 38478 THE PASSED = 98 SECONDS 
HHAT IS YOUR HEH RATE OF GAS? 18. 

ols 



ROAD CONDITIONSiVEHICLE PASSED BY 133 HPH 

PRESENT VELOCITY = 163 NO. OF GALLONS = . 152 
HO OF HILES = 3. 76522 TIME PASSED = 138 SECONDS 
RHAT IS VOUR HEH RATE OF GAS? 18. 



■ els ■ 



ROAD CONDITIONSiVEHICLE AHEAD 1888 FEET 

PRESENT VELOCITY = 166 NO. OF GALLONS = . 122 
NO. OF HILES = 4. 12689 TIME PASSED = 148 SECONDS 
HHAT IS YOUR HEH RATE OF GAS? IB- 



ROAD CONDITIONSiVEHICLE PASSED BV 138 HPH 

PRESENT VELOCITY = 167 HO. OF GALLONS = . 892 
NO. OF HILES = 4. 46913 TIHE PASSED = 158 SECONDS 
WT IS VOUR NEH RATE OF GAS? 18. 



■ els 



VOUR ENGINE BLEU VOU GOT HIT BV A PISTON. 
RHERE IS VOUR FUNERAL BEING ICLD? 

YOU HUNT TO TRY AGAIN, RIGHT? HRONG. 

els 



ROAD CONDITIONSiVEHICLE PASSED BY a HPH 



ROAD CONDITIONSiVEHICLE AHEAD 1888 FEET 



PRESENT VELOCITY = 55 HO. OF GALLONS = 464 
NO. OF HILES = . 271739 TIHE PASSED = 28 SECONDS 
HHAT IS VOUR NEH RATE OF GAS? 16. 

els 



ROAD CONDITIONSiVEHICLE AHEAD 1688 FEET 



PRESENT VELXITV = 162 HO. OF GALLONS = .236 
NO. OF MILES = 2 73696 TIKE PASSED = 168 SECONDS 
HHAT IS VOUR NEH RATE OF GAS? 8. 
els 



ROAD COKDITIONSiVEHICLE PASSED BY 182 HPH 



PRESENT VELXITY = 162 HO. OF GALLONS = . 424 
NO. OF HILES = .493478 TIHE PASSED = 26 SECONDS 
WAT IS YOUR NEH RATE OF GflS? 8. 



• els ■ 



ROAD CONDITIONSiVEHICLE PASSED BY 79 HPH 



PRESENT VELOCITY = 151 HO. OF GALLONS = .212 
NO. OF HILES = 2.66522 TIHE PASSED = 118 SECONDS 
HHAT IS VOUR NEH RATE OF GBS? 16. 



• els ■ 



ROAD CONDITIONSiVEHICLE AHEAD 1888 FEET 



PRESENT VELOCITY = 116 HO. OF GALLONS = 41 
NO. OF HILES = .745652 THE PASSED = 48 SECONDS 
RHAT IS VOUR NEH RATE OF GAS? 18. 
els 



PRESENT VELOCITY = 159 NO. OF GALLONS = . 182 
NO. OF HILES = 3.41687 TINE PASSED = 128 SECONDS 
HHAT IS VOUR NEH RATE OF GAS? IB. 

— els . 
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leas 

28 PRINTS 412, "RORDR 
38 PRINT 

48 PRINT TAB(7)"C0PYR 
58 PRINT 8 966,"; 
68 INPUT-HIT ENTER TO 

78 as 

88 PRINT" THIS 

98 PRIHHaCCIE TO T 

188 PSIHTWLL BE D 

118 PRINT'STRY ALIVE 

128 POT 

138 PRIHT'VOV HRVE VO 

148 PRINTO) DATSUN 

158 PRINT'CHOOSE THE 

168 PRINT'RHBKR. T 

178 PRIHT'KHICH CAR". 

188 INPUT CI 

138 C1=1NKC1) 

288 IF C1X THEN 228 

218 IF CK1 THEN 228 

228 PRINT-INVALID CAR 

238 GOTO 188 

248 CLS 

258 IF N2=i WIH 238 

268 PRINT'NOH VOU CHC 

278 PRINT'THE ERSIES1 

288 PRINT-ROUTE. NIK 

298 PR1NTUH1CH ROUTE 

388 INPUT C2 

318 C2=INT(C2) 

328 IF C2<1 TtEN 348 

338 IF C2>5 TICN 348 

348 PRINT-INVFUD Ctt 

358 GOTO 388 

366 IF H2=l TIEN 438 

378 PRINT 

388 PRIHTVOU HILL K 

398 PRINT"YOUR STATU! 

488 PRINT-STATUS CHE( 

418 FRINT'R RflTE OF < 

428 PRINT'RNV NUHBER 

438 FOR 1=1 TO Ci 

448 F£RD B, H, S 

459 E=B/18 

468ISCT I 

478ffl=5 

488 11=8 

438 Cl=Cl/2 

588 V=8 

518 PRINT 

52BR1=8 

538 T=8 

548 D=8 

558 01=8 

568 PRINT-PRESENT VFJ 

578 PRINT-NO. OF MIU 

588 IF W>=5 THEN 13! 

538 FR1NTHHRT IS VOt 

688 INPUT G 

610 OS 

628 IF (K-18 THEN 641 

638 IF G>18 TIEN 648 

648 PRINT-NOT VfiLID. 

658 GOTO 688 

668 IF <K3 THEN 718 

678 Z=Z+l 

688 IF ZX THHN 638 I 

698 PRINTYOUR ENGIW 

788 GOTO 1288 

718 Z=8 

728 Y=INT<B*G-H*VW 

730 T=T+18 

748 PRINT 

758 FRIHT-ROff) CONDI' 

768 IF Y>8 THEN 788 

778 y=e 

788 m=Hl+V/468 

798 IF G<8 THEN 828 

888 fii=Ri-<G*S)/5800 

810 IF ffl.<0 Tie 13H 

828 IF Rl=l THEN 988 



ICE- 



GHT 1979 CREATIVE COIOTTING HORRISTOW, NJ- 

START"; A$ 

S THE PITTSF1ELD-RLBRNV ROM) RALLY" 
E FIRST RNNUflL PITTSFIELD-ALBRNY ROftD RALLY. ■ 
JIVING ROUTE 28, TRYING TO HIN THE RRCE (WD* 
III THE BARGIN, GOOD LUCK!!" 

IR CHOICE OF: (1) R VH; (2) TRIUMPH TR3i ■ 
S8-Z; OR (4) FERRARI" 

m vou vm by the number in front of it. - 

E BETTER THE CAR, THE HORE GRS IT USES. " 



1SE248 

NUHBER NBiCRR ' 



KE MUCH COURSE VOU KANT TO RflCE ON. " 
COURSE IS IIJH8ER L AND IS THE STRAIGHTEST" 
3! 5 CONSISTS HOSTLY OF TURNS AND TWISTS. • 
DO VOU HRNT*; 



1SE368 

BE NUHBER. REM CHOICE ' 



3) TO TRAVEL 5 MILES HITH . 5 GRLLONS OF GRS. " 

HILL BE SHOW) EACH IB SECONDS. AFTER EACH" 

( VOU HIU BE ASKED FOR A NEH RATE OF Gffi" 

18 IS HARD ACCELERATION, AND -18 IS HARD BRAKING. " 

IN BETWEEN IS AUOHABLE. ■ 



DCITY=';Y;" NO. OF GRLLONS =";A1 

3 =-iHl;- TIHE PASSED =";T; "SECONDS" 

i 

* NEH RATE OF GAS"; 



ELSE 660 
HEN RATE": 



LSE728 
BLEU VOU GOT HIT BV fl PISTON. " 



IONS: "i 



830 IF 01=1 THEN 91(1 

.848 9=INT«C2+1>*RMX8» 

858R=INT(G.75-C2)»RHD<8» 

868 IF R>8 THEN 1221) 

878 IF Q>8 THEN 1271) 

880 PRINT-aERR AND STRAIGHT" 

838 PRINT 

988 GOTO 560 

310 H=lNT<15+35*RKDie» 

S28H=H+5»C1 

938 IF m THEN 1430 

948 PRINT-THROUGH CURVE" 

950 PRINT 

360 81=8 

978 GOTO 560 

988 E=E-(V-D)*3! 

998 IF E<8 THEN 1833 

1888 PRINT-VEHICLE". Ei -FEET AHEAD" 

1818 PRINT 

1828 GOTO 558 

1838 IF V-DC5 THEN 1118 

1040 PRINT-VEHICLE FUSSED BV": 

1850D=V-D 

1868 PRINT D; 

1870 PRINT'fW 

1088 PRINT 

1898 Rl=8 

1188 GOTO 558 

1118 PRINT-VEHICLE BEING PASSED " 

1128 D=IHT(25440*<0» 

1130 PRIHT-GSEVHOUNJ BUS IN OTHER LANE ': 

1140 PRINT-DOING - .; 

1150 PRINT Di 

1160 PRINT-HPH ': 

il78D=V+D 

1188 PRINT-CRASH VELOCITY =";D 

1198 PRINT 

1288 PRINT-KHERE IS VOUR PUBERAL BEING HELD?' 

1218 GOTO 1490 

1220 PRINT-VEHICLE RHEHD 1688 FEET" 

1238 PRINT 

1248 D=INT(25+35*RJiO<8)> 

1258 Pd=l 

1268 GOTO 568 

1278 PRIHT- HRRNINC-. CUPS AHEAD ■ 

1288 01=1 

1238 PRINT 

1388 GOTO 568 

1318 PRINT-EXCELLBT, BUr kRIT!" 

1328 PRINT 

1338 PRINT'VOU RAN OUT OF GAS" 

1348 GOTO 1488 

1350 PRINT'BUT SOK. HCM YOU HRDE IT" 

1368 PRINT 

1378 Rl=8 

1388 GOTO 568 

1390 PRINT 

1488 PRIHT 

1418 PRINT'VOU HADE. IT (LUCKY) !!!!!!!" 

1420 GOTO 1438 

1438 PRINT-ARE TERRIBLE" 

1448 H=H-5*C1 

1458 PRINT Hi "WAS THE SPEED THROUGH THE CURVE" 

1460 PRINT V; "HAS VOIR SPEED, BV THE HAY "i 

1478 GOTO 1283 

1488 PR1NFY0U LEM> FOOTED $ZS"Z$S«M«MM'«t««'ZKHS5!" 

1438 PRINT 

1588 PRINT'VOU HANI' TO TRY AGAIN, RIGHT"! 

1518 INPUT W 

1520 IF LEFT$(Y$, 1)="N" THEN 1558 

1538 H2=i 

1548 GOTO 1538 

1558 PRINT 

1568 PRIHFCHICKEN" 

1578 PRIHT 

1588 GOTO 1658 

1598 RESTORE 

1600 GOTO 170 

1618 DATA 45,. 53, 10 

1628 DATA 68,. 5, 1!! 

1638 DATA 78,. 41, :.5 

1640 DATA 88,. 39, 18 

1658 END 



140 



ite 



The game of Rotate is played on a 
four-by-four board filled randomly with 
the letters A through P. In a sense it is 
like the little plastic games with sliding 
pieces bearing the numbers 1-15 or 
letters A-0. 

The object of the game is to put the 
letters in alphabetical order. This is 
done by rotating groups of four letters 
clockwise one position. The group to be 
rotated is specified by the positional 
number of the letter in the upper left- 
hand corner of the group. You are also 
given one special move which permits 
you to exchange any two adjacent 



letters. You probably don't want to use 
this move too early in the game; indeed, 
sometimes it's not necessary at all. and 
since you get it only one time, once you 
use it you can't recover. Your only move 
then is to type a zero to give up. 

Typically, a game will take from 20 to 
30 moves to win. I haven't figured out 
the worst possible case (assuming an 
intelligent method of play); I'd be happy 
to hear from a reader on this. Have funl 

Rotate was written by me, David Ahl 
and first appeared in Creative Com- 
puting, Sep/Oct 1977. 



ROTATE 
COPYRIGHT 1379 CREATIVE COHPUTING HORRISTOHH, HJ 



DO TO NEED INSTRUCTIONS? YES. 

__ els • 



ROTATE 

YOU ALSO SET ONE 'SPECIAL' HOVE PER GAHE WHICH YOU HAY OR 
MAY NOT NEED. THE SPECIAL HOVE ALLOWS YOU TO EXCHANGE 
ANY TO ADJACENT LETTERS IN A ROM. TO HAKE THIS HOVE, 
INPUT A '-1' AS YOUR HOVE AND VOU HILL BE ASKED FOR THE 
POSITIONS OF THE TWO LETTERS TO EXCHANGE. REHEHBER - 
ONLY OKE SPECIAL HOVE PER GAKE! 

TO GIVE UP AT ANY THE TYPE A '8' 



ROTATE 

IN THIS GHKE THE BOARD IS LAID OUT AS FOLLOWS: 

12 3 4 

5 6 7 8 

9 18 1112 

13 14 15 16 

BOB® POSITIONS ARE OCCUPIED RANDOMLY BY THE LETTERS A TO P. 
THE OBJECT OF THE (HE IS TO ORDER THE LETTERS BY ROTATING 
aNY FOUR LETTERS CLOCKWISE ONE POSITION YOU SPECIFY THE 
UPPER LEFT POSITION OF THE FOUR YOU WISH TO ROTATE I. E , 
VALID HOVES ARE 1, 2, 3, 5, 6, 7, 9, 18 AND 11 

PRESS ANY KEY TO CONTINUE 



PRESS ANY KEY TO CONTINUE. 



els ■ 



ROTATE 

CONSEQUENTLY, IF THE BOARD LOOKED LIKE: 
A C G D 
E B F H 
I J K L 
H N P 

AD YOU ROTATED POSITION 2, THE BOARD WOULD BE: 
A B C D 
E F G H 
I J K L 
H N P 



AND YOU WOULD WIN! 



PRESS ANY KEY TO CONTINUE. 



els ■ 



J 


H 


D G 


c 


L 


H P 


N 


A 


K 


F 


I 


B E 


POSITION TO ROTATE? i. 


C 


J 


D G 


L 


H 


H P 


N 


A 


K 


F 
POS] 


I 

:tii 


B E 
)N TO ROTATE? 4. 



Cl8 • 



Cl8 ■ 



ClS ■ 



L 


C 





G 


H 


J 


H 


P 


N 


A 


K 





F 


I 


B 


E 


POSITION TO ROTATE? 3. 
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L C H D 

H J P G 

N a K 

F I B E 

POSITION TO ROTATE? 2- 



• els 



L J C D 

H P N G 

N fl K 

F I B E 

POSITION TO ROTATE? 7. 



• els ■ 



L J C 

H P K H 

N fl G 

F I B E 

POSITION TO ROTATE? 3. 



■ els ■ 



L J K C 

H P H D 

N fl 

F I B E 

POSITION TO ROTATE? 6. 



■ els ■ 



L J K C 

H fl P D 

N H G 

F I B E 

POSITION TO ROTATE? : 



L J P K 
H fl D C 
HIS 
F I B E 

POSITION TO ROTATE? 7. 



P K 

H 

G C 

B E 



18 CIS: PRINT8413, "ROTATE" 

28 PRINT: PRINT TftBC?) "COPYRIGHT 1373 CREATIVE CONFUTING HORRISTOHN, NJ' 

38 PRINT8368, "; . INPUT "DO YOU NEED INSTRUCTIONS"; H 

40 DIH B<16),B*(16> 

58 IF LEFT«H.i)="H" THEN OS: GOTO 368 

68 OS: PRINT TRB<23); "ROTATE" : PRINT 

78 PRINT "IN THIS G=»E TIE BOARD IS LAID OUT RS FOLLOWS:" 

88 FOR 1=1 TO 16: B(D=I: NEXT 

38 PRINT: FOR 1=1 TO 13 STEP 4 

188 PRINT USING "M ";B<l),B<I+l>,B(I+2),B<I+3) 

118 NEXT I: PRINT 

126 PRINT "BOARD POSITIONS ARE OCCUPIED RANDOHLY BY THE LETTERS A TO P. " 

138 PRINT "THE OBJECT Of THE (HE IS TO ORDER THE LETTERS BY ROTATING" 

148 PRINT "ANY FOUR LETTERS CL0CKH1SE OHE POSITION. YOU SPECIFY THE" 

158 PRINT "UPPER LEFT POSITION OF THE FOUR YOU HISH TO ROTATE, I. E. , • 

168 PRINT "VALID NOVES ARE 1, 2, 3, 5, 6, 7, 3, 18 AH) 11 * 

178 PRINT8373, "PRESS ANY KEY TO CONTME"; 

188 IF IKKEY*=" TEEN 188 ELSE PRINTM28, CHR»<31>; 

138 PRINT "CONSEQUENTLY, IF THE BOARD LOOKED LIKE:" 

228 PRINT "AND YOU ROTATED POSITION 2, THE BOARD NOULD BE:" 

218 B*<6)="B": B«(?)= , F"- GOSUB 538 

228 PRINT "RD YOU ROTATED POSITION 2, THE BOARD MOULD BE:" 

238 FOR 1=2 TO 7: E«D=CRR*<H64): NEXT I: GOSUB 538 

248 PRINT "AND YOU MOULD HIN!" 

258 PRINT8373, "PRESS ANY KEY TO CONTINUE"; 

268 IF INKEY$=" Tt.EN 269 ELSE PRINT8128, CHR$<31>; 

278 PRINT "YOU ALSO GET ONE 'SPECIAL' HOVE PER CHE KHICH YOU IKY OR" 

288 PRINT "HRY NOT ICED. THE SPECIAL HOVE ALLOWS YOU TO EXCHANGE" 

238 PRINT "ANY THO ADJACENT LETTERS IN A ROM. TO HAKE THIS HOVE, " 

388 PRINT "INPUT fl '-1' AS YOUR HOVE AMD YOU HILL BE ASKED FOR THE" 

318 PRINT "P0SIT1MB OF THE THO LETTERS TO EXCHANGE REHEHBER -• 

328 PRINT "OHY ONE SPECIAL HOVE PER (ME!" -.PRINT 

338 PRINT 'TO GIVE UP AT ANY TIKE, TYPE A '8'. ■• 

348 PR1NT8979, "PRESS ANY KEY TO CONTINUE"; 

358 IF INKEY*=" TIEN 358 ELSE OS 

368 FOR 1=1 TO 16: B*(I)="8": NEXT I 

378 FOR 1=1 TO 16 

388 T$=CHR$aNT(16>=8HD(8)+65» 

338 FOR J=l TO I 

488 IF B$<J)=T$ THEN 388 

418 NEXT J 

428 B*<I)=T$: NEXT I 

438 H=8: S=8: OS: PRINT 'HERE'S THE STARTING BOARD... ": GOSUB 538 

448 INPUT "POSITION TO R0TRTEM: OS: IF 1=8 THEN PRINT: PRINT: GOTO 558 

458 IF I=-l THEN 628 

468 IF 1=4 OR 1=8 BR D12 THEN 448 

478 H=H+1:T$=8$<1) 

488 B$(I)=B$(I+4): B*(H4)=B*(I+5): B$<1+5)=B*0+1>: B*<I+i)=T* 

438 GOSUB 538 

588 FOR 1=1 TO 16 

518 IF CHRSCI+64)OB$(I) THEN 448 

528 NEXT I 

538 PRINT: PRINT "YOU ORDERED THE BOARD IN"; Hi "HOYES. "■ HI**: G=G+1 

548 PRINT CH«»<7> 

558 PRINT: INPUT "FLAY RGMNM*: IF LEFT$(A$, 1)="Y" THEN 368 

568 PRINT: PRINT "YOU PLAYED"; to "GAKES AM) ORDERED THE BOARD IN AN AVERAGE" 

578 IF 0=8 THEN G=i 

538 PRINT "OF";Hi/a;"HOVES PER GAK. ": PRINT: GOTO 668 

598 FOR 1=1 TO 13 STEP 4 

688 PRINT USING " ! ";B$(D,B$<I+l),B»(I+2),B$(I+3) 

618 NEXT I: PRINT: RETURN 

628 INPUT "EXCHAHG: HHICH THO POSITIONS"; X, Y 

638 IF XOY+1 AND KOY-1 THEN PRINT "ILLEGAL AGAIN. ..": GOTO 628 

648 S=S+1: IF S>1 THEN PRINT "ONLY ONE SPECIAL HOVE PER GAME. ": GOTO 448 

658 T$=B»(X): »<X)=8*<Y>: B$<Y)=T»: GOTO 438 

668 END 



POSITION TO ROTATE? 6. 



L J P K 

H A D 

N G H C 

F I B E 

POSITION TO ROTATE? 2. 
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Safe 



SAFE 



In a sense, this is another game in the 
"guess a mystery number" family. 
However, it has quite a different "twist." 
In this game, you are trying to open a 
safe by turning or twisting a dial back 
and forth between one and ninety-nine 
or ninety-nine and one. 

The instructions shown in the sam- 
ple run are very complete. However, 
one hint that will help you when you 
start playing is that it is usually best to 
start at ninety-nine when going to the 
right because if you get a click, the 
number must be close. If not, you can 
step it down by eights or tens until you 
get the first click and then judge from 
there. 

Safe was created and written by 
Keviii Ashley. 



Turning Left 




NOTE: There Is no spot (zero! and It spins 
back past the last number automati- 
cally as In most locks, 
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DO YOU NEED INSTRUCTIONS? YES. 



els ■ 



SRFE 

YOU ARE fl BUROULRR RND HAVE ENCOUNTERED fl SRFE YOU HUST 
OPEN TIC SRFE TO GET THE SECRET PLRNS THAT YOU CAME FOR. 

TO DO THIS, YOU MUST ENTER THE NUMBER OF KHAT YOU HflNT THE 
Dia TURNED TO. THE COMPUTER HILL ACT AS THE SRFE RND WILL 
HELP YOU BY GIVING A SORT OF CLUE: YOU WILL 'HEAR' 
A CLICK RT EVENLY SPACED NOTCHES AS YOU MOVE TO THE PROPER 
NUMBER. THERE ARE FOUR OF THEM BEFORE THE FINAL CLICK IS 
'HEARD'. RFTER THE FINRL ONE IS HEARD, YOU HILL GO ON TO 
THE NEXT NUMBER. THE COMPUTER HILL 'SRV' 'CLICK' FOR EACH 
NOTCH THAT YOU PASS RND '**CLICK**' WHEN YOU REACH THE 
PROPER NUMBER IF YOU PASS IT OR TAKE LONGER THRN TEN TRIES 
ON ANY ONE NUMBER, YOU HILL ACTIVATE THE ALARM. 



PRESS ANY KEY TO CONTINUE 



■ Cis ■ 



SAFE 

REMEMBER THAT WHEN YOU TURN THE DIAL TO THE LEFT, THE 
NUMBERS GO FROM 1-99 , RND WHEN YOU GO TO THE RIGHT, THE 
NUMBERS GO FROM 99-1. 
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PF ESS RNY KEV TO CONTINUE 



• els • 



OKAY, STRRT TO TH I RIGHT, SHHHHHH! !!!!!!!!!!!!! 
? 98. 



OKfiV, STRRT TO Ti i RIGHT, SHHHHHH! !!!!!!!!!!!!! 

aiCK 

aiCK 

click 

CLICK 
? 78. 



■ els 



OKfiV, START TO Tl E RIGHT, SHHHHHH! !!!!!!!!!!!!! 
THE SENSOR HflS Bl EN TRIGGERED! 
LEfiVE WHILE VOU ( RN BEFORE THE 
POLICE GET HERE. 

HUNT TO TRV THE ! RME SRFE? YES. 



OlS • 



OKfiV, STRRT TO Tl E RIGHT, SHHHHHH! !!!!!!!!!!!!! 

CLICK 

CLICK 

CLICK 

? 73. 



ClS • 



OKRY, START TO T E RIGHT, SHHHHHH! !!!!!!!!!!!!! 

CLICK 

CLICK 

CLICK 

"> 72. 



els- 



OKflV, STRRT TO 1 € RIGHT, SHHHHHH! !!!!!!!!!!!!! 

aiCK 

CLICK 

CLICK 

? 78. 



els 



OKAY, STRRT TO ' HE RIGHT, SHHHHHH! !!!!!!!!!!!! ! 

CLICK 
CLICK 
CLICK 
CLICK 
?50. 



■ els • 



OKflV, STRRT TO pT€ RIGHT, SHHHHHH!!!!!!!! 
TIE SENSOR HRS 1EEN TRIGGERED! 
LERVE WHILE VOU CRN BEFORE THE 
POLICE GET (ERE 

WANT TO TRY THE SAME SRFE? NO. 

els 
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IB as: PRINT6414, "SRFE" 

28 PRINT: PRINT TRB(7> "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

38 PRIN"0968, ""; ; INPUT "DO YOU NEED INSTRUCTIONS"; I* 

48 DIM lll<4> 

58 IF LL : FT*<I$,1>="Y" THEN 68 ELSE 278 

68 CLS: PRINT838, "SAFE"; PRINT 

78 PRINT "YOU ARE R BURGULRR RND HAVE ENCOUNTERED R SRFE. YOU MUST" 

88 PRINT "OPEN THE SRFE TO GET THE SECRET PLANS THAT YOU CRHE FOR. " 

98 PRINT 

188 PRINT "TO DO THIS, YOU MUST ENTER THE NUMBER OF WHAT YOU HRNT THE" 

118 PRIliT "DIRL TURNED TO. THE COMPUTER HILL ACT AS THE SRFE AND HILL" 

120 PRIST "HaP YOU BY GIVING A SORT OF CLUE: VOU HILL 'HEAR'" 

138 PRUT "fl CLICK RT EVENLY SPACED NOTCHES AS YOU MOVE TO THE PROPER" 

148 PRLIT "NUMBER THERE ARE FOUR OF THEM BEFORE THE FINAL CLICK IS" 

158 PR1 IT "HEARD'. AFTER THE FINRL ONE IS KERRD, VOU HILL GO ON TO" 

168 PRIMT "THE NEXT NUMBER. THE COMPUTER HILL 'SHY' 'CLICK' FOR ERCH" 

178 PRIMT "NOTCH THAT YOU PASS RND '**CLICK**' HHEN YOU RERCH THE" 

188 PRINT "PROPER NUMBER IF YOU PRSS IT OR TRKE LONGER THRN TEN TRIES" 

1S8 PRINT "ON RNY ONE NUMBER, YOU HILL ACTIVATE THE RLRRM. " 

288 PRIHT8979, "PRESS RNY KEY TO CONTINUE") 

218 IF INKEY$=" THEN 210 ELSE PR1NT8128, CHR$(3i>; 

228 PRINT "REMEMBER THAT HHEN YOU TURN THE DIRL TO THE LEFT, THE" 

238 PRINT "NUMBERS GO FROM 1-99 , AND HHEN YOU GO TO THE RIGHT, THE" 

248 PRINT "NUMBERS GO FROM 99-1. "' PRINT: PRINT 

258 PRItiT8979, "PRESS ANY KEY TO CONTINUE"; 

268 IF INKEY*=" THEN 268 

278 CLS : PRINT'OKAY, STRRT TO THE RIGHT, SHHHHHH! !!!!!!!!!!!!!" 

288 R=INT(RND(8)*81)+18 

298 B=1HT<RND(0>*8D+10 

388 C=INT<RHD<8:>*8i>+i0 

310 L=188-fl 

328 FOF: M=l TO 4 

338 Al<l'D=<5-M)*L/5+R 

348 next M 

358 J=l 

360 INFUT M: PR1NT864, CHRK31); 

378 ON 5GN01-AH2 GOTO 458,528,388 

388 FOF: K=l TO 4 

398 IF !f>RKK) THEN 418 

488 PRINT "CLICK" 

418 NEXT K 

428 IF J>=10 THEN 458 

438 J=J+i 

448 GO" 368 

458 PRINT "THE SENSOR HAS BEEN TRIGGERED!" 

468 PRINT "LEAVE HHILE VOU CAN BEFORE THE" 

478 PRINT "POLICE GET HERE. " 

488 PRINT: PRINT "HRNT TO TRV THE SRME SRFE"; 

498 INFUT R5 

508 IF LEFT$(A$,i>="Y" THEN 318 

518 GOTO 27B 

528 PRINT "** aiCK **": RR=M; FOR R=i TO 500: NEXT 

530 L='_*B 

540 FOR K=l TO 4 

550 Pd<IO=K*L/5+B 

560 NE»IT K 

578 CLS: PRINT "RND NOH TO THE LEFT. " 

588 J=i 

598 INPUT H: PRINTC64, CHRJGi); 

680 PRINT§S«e, "CORRECT NUMBERS :";(»: PR1NT864, ""; 

618 ON SGN(M-B)+2 GOTO 628,458,646 

628 ON SGMM-BH2 GOTO 638,720,458 

638 M=1IH86 

648 FOS K=l TO 4 

658 IF M<A1(K) THEN 688 

668 PFINT "aiCK" 

678 M(K>=280 

680 NEXT K 

698 IF J>=18 THEN 458 

768 J=J+1 

718 GOTO 598 

728 PRINT "** CLICK **": BB=M: FOR R=l TO 500: NEXT 

738 L=<188-C)+B 

748 F(« K=l TO 4 

758 Rt<K)=B+10B-K*L/5 

760 NT.XT K 

778 CIS: PRINT "RND NOH TO THE RIGHT AGAIN. " 

788 J==l 

798 INPUT 11: PRINT864, CHTttGi); 

800 PRINT8360, "CORRECT NUMBERS: ";RR; BE; : PR1NT864, ""; 

818 Oil S6N(M-B)+2 GOTO 830,450,820 

820 Oil SGWH-CH2 GOTO 450,920,840 

838 fMI-HB3 

848 FIR K=l TO 4 

858 IF M>fli<K) THEN 888 

860 PRINT "CLICK" 

870 RUK)=-200 

888 KEXT K 

898 IF JI>=10 THEN 458 

900 J-J+l 

918 G3T0 798 

928 P^INT: PRINT "«* aiCK **. . . YOU OPENED IT!" 

930 PSINT "BUT UH,OH, HE MUST HRVE MOVED IT. " 

948 INPUT "TRV THE ONE OVER THERE ";R$ 

358 IF LEFT*(R$,1)="V" THEN 270 ELSE END 



Scales 



SCfiLES 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 




DO VOU NEED INSTRUCTIONS? YES_ 



SCflLES 

ELEVEN SCALE TVPES — MAJOR, MINOR, MODAL, AND WHOLE TONE 

THIS PROGRAM PRINTS IN LETTER NAMES ONE OCTAVE UPWARD, THE MAJOR, 
THE NATURAL, HARMONIC, MELODIC, AND HUNGARIAN MINORS, THE 
DORIAN, PHRYGIAN, LVDIAN, MIXOLVDIAN, AND LOCRIAN MODES, AND 
THE WHOLE TONE SCALES. 

USE A 3- OR 4-CHflRACTER INPUT THE FIRST 2 CHAR'S ARE THE SCALE 
TVPE, AND THE 3RD CHAR'R IS THE SINGLE LETTER TONIC, OR THE 
LAST TWO CHAR'S ARE THE TONIC DEGREE OR THE KEY SIGNATURE. 
SCALE TYPES— MA Nfi HA ME DO PH LY MI LO HU AND WH 
INPUT EITHER A TONIC OR A SIGNATURE. 

PRESS ANY KEY TO CONTINUE 
els 



SCALES 
EXAMPLES. MACB LYDB MIEB WHGB NAF# HAG# MEA# LOC# DOC PHD HUE 

WHICH TYPE OF SCALE IS WANTED' WHF#. 
els 



SCALE ASKED WHOLE TONE SCALE ON F# 

ANSWER <IN LETTER NAMES) 



This program tests your knowledge of 
different types of musical scales. It 
generates 11 types of scales: major, 
natural minor, harmonic minor, 
Hungarian minor, dorian, phygian, 
lydian, mixolydian, locrian, and whole 
tone. 

Prior to running the program, test 
yourself off line on a sheet of paper by 
writing down several types of scales 
and 8 notes starting at a note chosen by 
you. Then run the program to check 
your answers. 

When you run this program, you will 
be asked, "Which type of scale is 
wanted?" Respond by typing the first 
two letters of the name of the desired 
scale followed immediately by the 
desired key. Use a B for the flat and 
use '#' for the sharp. Sample inputs 
would be PHE for Phrygian starting 
on E, MAF# for major on F-sharp, 
and WHG for whole tone on G. 

The author, Marvin S. Thostenson, is 
at the School of Music, University of 
Iowa. Scales first appeared in Creative 
Computing, Mar/Apr 1977. 



F# G# Aft B# D E F# 

WHICH TYPE OF SCALE IS WANTED? NAE_ 

els 



SCALE ASKED NAT'L MINOR SCALE ON E 

ANSWER (IN LETTER NAMES) 



E F# A 



C D E 



WHICH TYPE OF SCALE IS WANTED' WHC. 
els 



SCALE ASKED 
ANSWER (IN LETTER NAMES) 



-WHOLE TONE SCALE ON C 



C D E F# AB BB C 

WHICH TYPE OF SCALE IS WANTED? HU2#_ 



• els ■ 



SCALE ASKED 
ANSWER (IN LETTER NAMES) 



-HUNG'N MINOR SCALE ON B 



B C# D Et FS fi# B 

WHICH TYPE OF SCALE IS WANTED? STOP. 
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18 CLEAR 50B: CLS: PRINT841 
28 PRINT PRINT TAB<7> "COF 
20 PRINT0960, ""; INPUT "[ 
40 A=0: B=0: C=0: D=6: E=0: 
58 W=4 

60 IF LEFT*<I*,1)="N" THEN 
78 CLS. PRINT TAB<29> "SCflt 
80 PRINT "ELEVEN SCALE TYP! 
98 PRINT 

180 PRINT "THIS PROGRAM PR! 
110 PRINT "THE MAJOR, "• 
120 PRINT "THE NATURAL, HAI 
130 PRINT "DORIAN, PHRYGIAI 
140 PRINT "THE WHOLE TONE ' 
150 PRINT "USE A 2- OR 4-0 
160 PRINT "TYPE, AND THE 31 
170 PRINT "LAST TWO CHAR'S 
180 PRINT "SCALE TVPES-- Ml 
190 PRINT "INPUT EITHER A ' 
206 PRINT§979, "PRESS ANV I 
218 IF INKEY*="" THEN 210 ; 
220 PRINT "EXAMPLES: MACB 

238 B$="SCALE ASKED 

240 CM-ANSWER (IN LETTER I 

258 Of="STRUCTURE " 

260 K*=" TETRACHORDS" 

270 U=l 

280 PRINT PRINT PRINT TA 

290 INPUT A*- CLS 

380 N=LEN(R« 

318 IF A$="STOP" THEN 1298 

320 E*="MANAHAHEDOPHLYMILOI 

338 FOR X=l TO 22 STEP 2 

340 IF LEFT$(A*, 2>=MID*(E* 

359 NEXT X 

360 0=<X+1V2 
370 A0*=A$ 

380 K=RSC<LEFT*<AB*, l»-32 

390 RB*=CHR«X>+MID*<fl0*, 2 

460 READ D* 

410 A8*=A* 

420 X=ASC<LEFT*(A8*,1>> 

438 AB*=CHR«X>+HID«A8*, 2 

440 IF LEFT*<D$, 2>=LEFT«f 

450 QOTO 400 

460 J$=D* 

470 RESTORE 

4S8 IF N<>3 THEN 588 

498 A*=LEFT*(A*, 3>+" " 

500 IF 0=1 OR (3=7 OR 0=11 

518 IF Q>=2 AND G<=6 OR 0= 

520 V=l 

530 GOTO 550 

540 Y=2 

550 F*="BXEXAXDXGXCXFXB«E4 

560 F$=F$+"BBEBABDBGBCBFBI 

570 G$="BXEXAXDXGXCXFXB#Ei 

58B G*=G*+"BBEBABDBGBCBFBS 

590 ON V GOTO 688, 630 

600 H*="5T4T3T2T1T7X6X5X4: 

618 H$=H*+"5D6D?D" 

620 GOTO 650 

638 H$="2TlT7X6X5X4X3X2Xi; 

640 H$=H$+"5D6D7D8D9D " 

650 FOR y=l TO 68 STEP 2 



3, "SCALES" 

BRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 
3 VOU NEED INSTRUCTIONS"; I* CLS 
H=6: K=8: L=8: M=8: N=8: 0=0 

238 

ES": PRINT 

S — MAJOR, MINOR, MODAL, AND WHOLE TONE" 

NTS IN LETTER NAMES ONE OCTAVE UPWARD, "; 

MONIC, MELODIC, AND HUNGARIAN MINORS, THE" 

, LVDIAN, MIXOLVDIAN, AND LOCRIAN MODES, AND" 

CALES. ": PRINT 

ARACTER INPUT THE FIRST 2 CHAR'S ARE THE SCALE" 

D CHAR'R IS THE SINGLE LETTER TONIC, OR THE" 

ARE THE TONIC DEGREE OR THE KEY SIGNATURE. " 

i.Nfl Hfl ME DO PH LY MI LO HU AND WH" 

ONIC OR A SIGNATURE. " 

EY TO CONTINUE"; 

1SE PRINT@128, CHR*<31>; 

YDB MIEB WHGB NAF# HAG# MER» LOC# DOC PHD HUE" 



iAMES) 



K8); "WHICH TYPE OF SCALE IS WANTED"; 

UWH" 

X,2) THEN 360 



N) 



N) 
3*, 2) THEN 460 



THEN 520 

3 OR 9=10 THEN 540 



A#D»G#CttF»B E A D G C F " 

DEDADDDGDCD" 

A#D#G#C#F#B E A D G C F " 

DEDADDDGDCD" 

3X2XlX7#6tt5»4#3#2ilUf8itlB2B3B4B5B6B7BlD2D3D4B" 
7#6#5#4tt3#2#l#0#lB2B3B4B5B6B7BlD2D3D4D" 
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668 IF MID* CA$, 3, 2>=MID*<F$, V, 2) THEN 690 

670 IF MID4 (A*, 3, 2>=MID*(H*, V, 2> THEN 690 

680 NEXT V 

698 C1$=MID«G*,V,2> 

700 T=T+1 

710 IF T=9 THEN 1178 

728 ON T GOTO 730, 750, 800, 850, 900, 950, 1000, 1850 

730 R=0 

748 GOTO 1063 

758 IF 8=6 OR Q=9 THEN 780 

760 R=-4 

770 GOTO 1058 

788 R=18 

790 GOTO 1850 

868 IF 0=1 OR 0=7 OR Q=8 OR S=U THEN 830 

810 R=6 

820 GOTO 18S0 

830 R=-8 

840 GOTO 1058 

858 IF 0=7 OR 0=18 OR 0=11 THEN 880 

866 R=2 

870 GOTO 18SB 

880 R=-12 

890 GOTO 10S0 

900 IF 0=9 OR 6=11 THEN 930 

910 R=-2 

920 GOTO 1868 

930 R=12 

940 GOTO I860 

950 IF 0=1 OR Q=4 OR 0=5 OR Q=7 OR 0=8 THEN 988 

960 R=8 

970 GOTO 1060 

980 R=-6 

990 GOTO 1060 

1000 IF 8=1 OR 0=3 OR 8=4 OR 0=7 OR 8=18 THEN 1038 

1618 R=4 

1820 GOTO I860 

1838 R=-18 

1848 GOTO 1868 

1859 R=8 

1068 IF 8=11 AND T=5 THEN 1100 

1078 IF U=i THEN I*=MID$(G*, V+R, 2) : GOTO 1118 

1880 I*=LE, r T«I$, U-1)+MID*(G$, V+R, 2) 
1090 GOTO 1118 
1100 GOTO 700 

1118 I*=LE,T*<I*,U+1>+" " 

1120 IF MID«I*,U+1,1>="D" THEN 1140 
1138 GOTO 1158 

1148 I*=LEFT*(I*,U)+"BB" 
1156 U=U+4 
1168 GOTO 788 

1170 PRINT PRINT TAB(3),B*; J$;C1*:PRINT 

1188 PRINT TAB<3);C$: PRINT 

1198 PRINT PRINT TAB(8); U 

1288 Cl*= 1*=""' G$=" 

1218 0=8: T=B: R=0 
1228 PRINT 
1230 GOTO 270 

1246 DATA 'MAJOR SCALE ON ", "NAT'L MINOR SCALE ON " 

1258 DATA "HARM'C MINOR SCALE ON ", "MEL'C MINOR SCALE ON " 

1268 DATA 'DORIAN MODE ON ", "PHRYGIAN MODE ON " 

1278 DATA "LYDIAN MODE ON ", "MIXOLYDIAN MODE ON ", "LOCRIAN MODE ON 

1288 DATA "HUNG'N MINOR SCALE ON ", "WHOLE TONE SCALE ON " 

1298 END 



Schmoo 



Schmoos are imaginary creatures 
who love being splattered with juicy 
mudballs. You, being a schmoo lover, 
try to make schmoos happy by tossing 
mudballs at them. It will help you in 
playing this game to know a little bit 
about grids and angles like in the X,Y 
coordinate system 2,-3 means right 2 
and down 3. If degrees is the angle 
coinciding with the positive X axis, then 
2,-3 would be in the fourth quadrant 
and would correspond to angles 
between 270 and 360 degrees. 

If you're pretty good, you can "splat 
the schmoo" in about eight tries; but 
don't cheat and use the formula. And 
don't expect me to tell you where it's 
hidden in the program! 

If you want to extend the Schmoo 
game, you might want to add a third 
dimension with flying schmoos. The 
program shouldn't be too hard and it 
would be a really neat game. If you 
want to try something easier, fix 
Schmoo so that it requires initial 
velocities as well as angles. You could 
even makea low-gravity (lunarversion) 
of Schmoo. 

Schmoo was conceived and written 
by Frederick H. Bell at the University of 
Pittsburgh. It first appeared in Creative 
Computing, Sep/Oct 1975. 



SCHHOO 

COPYRIGHT 1379 CREATIVE COMPUTING HORRISTOW, HJ 
DO VOU ICED INSTRUCTIONS? YES 

SCKHOO 

THIS IS a NEH SCHHOO GAME. SCHMOOS ARE 1KRGINRRV CREATURES 
WO LOVE BEING SPLRTTED KITH JUICY HUD BROS. YOU, BEING fl 
SCHHOO LOVER, TRY TO HAKE SCKHOOS HAPPY BY TOSSING HUD BALLS 
AT THEH. YOU HAVE A MECHANICAL HUD SLINGER THAT HILL SLING 
HUD TO A HRXIHUH DISTANCE OF 46,566 INCHES. YOUR JOB IS TO 
SET THE HUD SLINGER AT THE CORRECT ELEVATION C8-96) AND THE 
CORRECT DIRECTIONAL ANGLE (8-368) TO SPLAT THE SCHKOO fl HIT 
HITHIN 168 INCHES OF THE SCHHOO HILL SPLATTER Hill 
PRESS ANY KEY TO CONTINUE 

els 

SCH100 
COORDINATES OF THE SCUM) ARE (-29184 ,-14571 ). 

HUD SLINGER ELEVATION? 28 
DIRECTIONRL ANGLE Of HUD SLINGER? 34. 

els 



YOU HISSED THE SCHHOO AT (-25184 ,-14571 ). 
YOUR HUD HIT ( 24773 , 16713 ). 

HUD SLINGER ELEVATION? 26 
DIRECTIONAL ANGLE OF HUD SLINGER? 276. 

els 



YOU HISSED THE SCHHOO AT (-23184 ,-14571 ) 
YOUR HUD HIT ( 3124 ,-23726 ). 

HUD SLINGER aEVRTION? 15 
DIRECTIONAL ANGLE OF HUD aiNGER? 295. 
- els 



YOU HISSED THE SCHHOO AT (-23184 ,-14571 ) 
YOUR HUD HIT ( 9825 ,-21672 ). 

HUD SLINGER ELEVATION? 276 
DIRECTIONAL ANGLE OF HUD SLINGER? 276. 

- — els 



THE ELEVATION BUST BE BETWEEN 1 AND 98. 
HUD SLINGER ELEVATION? 98 
DIRECTIONAL ANGLE OF HUD SLINGER? 366. 

els 

YOU DOPE! YOU SPLRTTED YOURSELF. 
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COORDINATES OF THE SCTOO RRE ( 18597 , 5696 : 

HUD aiNGER ELEVATION? 24 
DIRECTIONAL ANGLE OF HUD SLINGER? 45. 

• els 

VOU HISSED THE SCHHOO AT ( 18537 , 5636 >. 
YOUR HUD HIT ( 24434 , 24434 ). 

HUD SLINGER aEYATION? 38 
DIRECTIONRL ANGLE OF HUD SLINGER? 45. 

— _ els 

YOU HISSED THE SCHHOO RT ( 18597 , 5696 ) 
YOUR HUD HIT ( 28475 , 28475 ). 

HUD SLINGER aEVRTION? 27 
DIRECTIONAL ANGLE OF HUD SLINGER? 17. 

_ els 

YOU HISSED THE SCHHOO AT ( 18597 , 5696 ) 
YOUR HUD HIT ( 35975 , 16998 ). 



HUD SLINGER ELEVATION? 13 
DIRECTIONRL ANGLE OF HUD SLINGER? 13. 

Cl8 

VOU HISSED THE SCHHOO RT ( 18597 - 
YOUR HUD HIT ( 19861 , 4585 ). 



5696 ). 



HUD aiNGER ELEVATION? 13 
DIRECTIONAL ANGLE OF HUD aiNGER? 12. 

els 

YOU HISSED THE SCHHOO AT ( 18597 , 5636 ). 
YOUR HUD HIT ( 19938 , 4238 ). 

HUD aiNGER ELEVATION? 11 
DIRECTIONAL ANGLE OF HUD aiNGER? 15. 

Cl8 

YOU HISSED THE SCHHOO RT ( 18537 , 5696 ) 
YOUR HUD HIT ( 16825 , 4568 ). 

HUD aiNGER ELEVATION? 12 
DIRECTIONRL ANGLE OF HUD aiNGER? 14. 

els 

YOU HISSED THE SCHHOO AT ( 18597 , 
YOUR HUD HIT ( 18351 , 4575 >. 



5696 ). 



HUD aiNGER ELEVATION? 12. 5 
DIRECTIONAL RNGLE OF HUD aiNGER? 14. 5. 

els 

. YOU HISSED THE SCHHOO AT ( 18597 - 5696 ). 
YOUR HUD HIT ( 19825 , 4328 ). 

HUD aiNGER ELEVATION? 12 

DIRECTIONAL ANGLE OF HUD aiNGER? 14.67. 

els 



YOU HISSED THE SCHHOO AT ( 18537 . 5636 ). 
YOUR HUD HIT ( 18296 , 4789 ). 

HUD aiNGER ELEVATION? 12.23 
DIRECTIONAL ANGLE OF HUD aiNGER? 14. 89. 

els 



YOU HISSED THE SCHHOO AT ( 18537 , 5636 >. 
YOUR HUD HIT ( 18686 , 4547 ). 

HUD aiNGER aEVATION? 12.2 
DIRECTIONAL ANGLE OF HUD aiNGER? 14.99. 

— els 



YOU HISSED THE SCHHOO AT ( 1859? , 5656 ). 
YOUR HUD HIT ( 18555 , 4368 ). 

HUD aiNGER ELEVATION? 12 2 
DIRECTIONAL RNGLE OF HUD aiNGER? 15. 19. 

— — els 



YOU HISSED THE SCHHOO AT ( 18597 , 5696 ). 
YOUR HUD HIT ( 18537 , 5833 ). 

HUD aiNGER ELEVATION? 12 24 
DIRECTIONAL ANGLE OF HUD aiNGER? 15.27. 
els 



YOU HISSED THE SCHHOO RT ( 18537 , 5636 >. 
YOUR HUD HIT ( 18587 , 5874 ). 

HUD aiNGER ELEVATION? 12 24 
DIRECTIONRL ANGLE OF HUD aiNGER? 15.7. 



- Cl3 



YOU HISSED T>€ SCHHOO ,T ( 18597 , 5696 ). 
YOUR KUD HIT < 18549 , 5213 ). 

HUD SLINGER ELEVATION? 12.26 
DIRECTIONAL flHGLE OF H D SLIHGER? 16.2- 



■ Cl8 • 



YOU HISSED THE SCHROO IT ( 15597 - 5696 ). 
YOUR KUD HIT ( 18538 . 5383 ). 

HUD SLIHGER ELEVATION? 12.28 
DIRECTIONAL RNGLE OF f » SLINGER? 16.67- 



■ ola • 



YOU HISSED THE SCKHOO TT ( 18597 . 5696 ). 
YOUR MJD HIT < 18514 . 5544 ). 

HUD &INGER ELEVATION - ! 12.3 
DIRECTIONAL flWOJE OF 1 JD SLINGER? 16. 79. 



• els • 



YOU HISSED THE SCKHOO BT ( 18597 , 
YOUR HUD HIT ( 18531 . 5591 ). 



5696 ). 



HUD SLINGER ELEVATION 12. 43 
DIRECTIONS ANGLE OF UD aiNGER? 16. 84. 



■ cla ■ 



YOU HISSED THE SCKHOO AT ( 18597 , 5696 ). 
YOUR HUD HIT ( 18789 5663 ). 

HUD SLINGER aEYATION 12 4 
DIRECTIONft ANGLE OF ! UD SLINGER? 16. 85. 



■ els ■ 



*SCKWO SPLATTED* IS UD BALLS TOSSED. 

I SEE ANOTHER SCKHOO. TO SPLfiT 
HIH, TYPE HUD. TO QU T, TYPE QUIT. 

? QUIT- 



els • 



lecLS 

2BPRINT8 412,"SCI«J" 

38 PRINT 

48 PRINT TAB(7)-OTV1 IGHT 1979 CREATIVE COHPUT1NG HORRISTOffl, NJ" 

58 PRINT 8 960, "; 

68 IliPUTTK) YOU NEED INSTRUCTIONS'; 1$ 

78 IF LEFT«<R, 1>="I " TON CLS: GOTO 228 

88 OS 

98PRINTTflBOB>;"SOHOO* 

168 PRINT 

118 PRINT" THIS IS A NEH SCHHOO GAME. SCHHOOS ARE IHRGIKARY CREATURES" 

128 PRINT'ttHO LOVE B IRQ SPLATTED HITH JUICY KUD BALLS. YOU, BEING A" 



138 PRINTSCKHOO LOVER, TRY TO HAKE SCHHOOS HAPPY BY TOSSING HUD BALLS" 

148 PRINT'BT THEL YOU HAVE A HECHANICAL HUD SLINGER THAT HILL SLING" 

158 PRINT'HUD TO A HAXIHUH DISTaNCE OF 46,588 INCHES. YOUR JOB IS TO" 

168 PRINT"SET TO HUD SLIHGER AT THE CORRECT ELEVATION CB-98) AM) TIE" 

178 PRINT-CORRECT DIRECTIONAL RNGLE (8-368) TO SPLAT THE SCKHOO. A HIT" 

188 PR1HTMTHIN 183 INCHES OF THE SCHHOO MILL SPLATTER HIH. ■ 

198G0SUB948 

288 PRINT 

218 PRINT 

226K1=8 

238 Z=INT(l+RND<a)*4-lE-88) 

248 OH Z GOTO 259, 288, 318, 348 

250 P=-l 

268Q=-1 

278 GOTO 368 

288P=-1 

298 0=1 

388 GOTO 368 

318 P=i 

320G=-i 

338 GOTO 368 

348 P=l 

358 0=1 

368 X=< IHT<26663*RND(8)+5888»*P 

378 V=( lNT(268ls3*RHD<8)+588e»«8 

388 S=8 

398K1=K1+1 

488 IF Ki<2 TKEI! 628 

416R=INT<?«RND:8H5) 

428 GOTO 628 

438 PRINT'THE B.EVBTION HUST BE BETKEEN 1 AND 98. " 

448 GOTO 698 

458 PR1HT"DIRECTI0NRL ANGLE HUST BE FROH 8 TO 368. " 

468 GOTO 698 

478 PRIHT"*SCHH)0 SPLATTED*"; Si "KUD BRLLS TOSSED. " 

488 PRINT 

493 PRINT'I SEE ANOTHER SCHHCO. TO SPLAT" 

588 PRINPHIH, TYPE HUD. TO QUIT. TYPE QUIT. " 

518 PRINT 

528 INPUT a 

538 IF C$="HUD" THEN 238 

548 END 

558 PRINT'YOU HISSED TO SCKHOO AT C;Xi",";Vi"). " 

568 PRINTYOUR ;IU0 HIT <■; IKT(X1>j *- *i IHTtVDi "). " 

578 PRINT 

588 IF Kl<2 THEN 690 

598 IF S>=R THEH 918 

688 PRINTSCHHOQ HUD HIT"; R2) "INCHES FROH YOU. " 

618 GOTO 698 

628 PRINT 

638 PRINT-COORDINATES OF THE SCHHOO ARE C;X;",";Y;">. " 

648 IF Kl<2 THEH 688 

658 PRINT'THE SCHHOO IS HAPPY TO BE SPLATTED. ■ 

668 PRINT'TO Hf ICE YOU HAPPY TOO, ■ 

678 PRINT-HE HILL TOON HUD BT YOU. ■ 

688 PRINT 

698 PRINT'HUD SLINGER ELEVATION-; 

763 INPUT B 

718 PRINT-DIRECTIONAL RNGLE OF HUD SLINGER"; 

728 INPUT C 

738 CLS 

748 IF B=98 THEM 898 

758 IF B>98 THEN 438 

768 IF BC1 THEH 438 

778 IF C<8 THE!! 458 

788 IF CX368-'lE-88» THEN 458 

798 5=5+1 

888 IF Ki<2 THEN 828 

818 R2=INT<RBS:388*RND<B)*(li-2*S)H98> 

828 J=3. 1415926535t/188 

838 D=fiBS(INTe30B8!*SIN(E*J)*COS(E*J)» 

848 fl=D*COS(C U. 14159265351/189) 

858 V1=D*SIN(CH141592653W188) 

868 Di=S8R«X-;<t)E2+<Y-Yi)[2) 

878 IF 188>=D1 THEN 478 

638 GOTO 558 

898 PRINT-YOU DOPE! YOU SPLATTED YOURSELF. ' 
988 END 

910 PRINT-THE SCKHOO HAS SPLATTED YOU!" 

928 PRINFCLEA! UP PHD GOODBYE!" 

938 EHD 

348 PRINT 8 973, "PRESS AMY KEY TO CONTINUE"; 

958 IF INKEYS =" TIEN 556 

968 PRINT 6 123, OTSGi); 

978 RETURN 
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Seabattie 



The object of the game of SEA 
BATTLE is quite simple. You are a 
submarine with a mission to seek out 
and destroy all of the enemy ships in 
your area, using whatever means are 
available. This includes torpedoes, 
Polaris missiles, sabotage, and suicide. 
The enemy, in turn, throws-out depth 
charges in an attempt to destroy you. 
There are also some underwater mines 
which have a nasty habit of blowing 
you up when you run into them. Other 
hazards are some very hungry sea 
monsters lurking about who have a 
taste for submarine sandwiches. 

I started writing this program two 
years ago. and just finished my last 
modifications just recently. Of course, 
this doesn't mean I worked on it 
continuously for two years. There were 
some long 4-6 month stretches when I 
didn't do anything to it. It started out as 
a very simple program, and I just kept 
thinking of things to add to it. 

I am currently a senior in Simley 
Senior High School in Inver Grove 



Heights, Minnesota, and am 18 years 
old. I have been working with com- 
puters since the ninth grade, and have 
written many programs, including this 
one. 

This program always draws a crowd 
in our school computer room, even 
from kids who don't even know which 
end of a teletype to type on. I built every 
possible inconvenience into it, to keep 
people from winning too easily. I am 
happy to say that when a person wins 
now, it's headline news. There are 
always muttered oaths to beat the 
computer next time, and this alone 
brings me more enjoyment than play- 
ing the program. 



Note: Program and writeup are by 
Vincent Erickson. The original ver- 
sion of Sea Battle was written in HP 
Basic converted to microsoft basic 
by Steve North. 
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SEA BATTLE 
COPYRIGHT 1973 SERTIVE CWUTING HORRISTOm, HJ 



NHAT ARE YOUR ORDERS, CfiPTfllN DERRIER? 1 

OPTION S? 1 

DIRECTION i OF SHIPS DISTANCES 



2 


1 


5 


6 


1 


3 


7 


1 


7 



WHAT IS YOUR NAtE? DERI IER. 



• CIS • 



SETTIHG UP BOB®. . . 

VOU NUST DESTROY 21 EM HV SHIPS TO H1N, CAPTAIN DERRIER. 

HKAT ARE VOUR ORDERS, I BPTAIN DERRIER? 1 
OPTION I? 8. 



■ els ■ 



PRESS ANY KEY TO CONTINUE 
els 



WHAT m VOUR ORDERS, CAPTAIN DERRIER? 2. 

els 





<S> - 


$ . !H! 


t 


<s> 


<S> $ 






. HKS> 


<S> -- 


$ 








<S> 


<s> . 




twtm 




-8- . 


* 


*********** 






<S> 


****** 00 


-8-<S> <S> 




^S5****** ♦♦♦♦♦♦ 


$ 




<S> 


4t4Mt *** 




$ t 


<s> 


*** t 






<£> 


O <S> 


<S> <S> * 






PRE 5 ANY KEY TO CONTINUE 






els 







COURSE (1-8)? 2 

..!....!....!. ...1..0UCH!!! YOU GOT ONE, CAPTAIN DERRIER! ! 
DEPTH CHARGES OFF PORT SIDE, CAPTAIN DERRIER!!! 
HEAVY DAMAGE!! REPAIRS MEDIATE, CAPTAIN DERRIER!!! 



PRESS ANY KEY TO CONTINUE 

ols 



— *** RESULTS OF LAST ENEHY HANUEVER ***- 
HHAT ARE YOUR ORDERS, CAPTAIN DERRIER? 4_ 



- cis - 



HEH DEPTI? 25e« 

HANUEVER CttfLETE POHER L0SS= 1199 

DEPTH CF3GES OFF PORT SIDE, CAPTAIN DERRIER!!! 

HEAVY DASME!! REPAIRS MEDIATE, CAPTAIN DERRIER!!! 



WAT m VOUR ORDERS, SPTAIN DERRIER? 8 
COURSE (1-8)? 3 

POSER AYAILABLE= 5956. POHER TO USE? 188 
NAVIGATION CCM1ETE. I MR LEFT= 5858. 
DEPTH CHARGES OFF POR1 SIDE, CAPTAIN DERRIER! ! 
HODERRTE DAKSSE REPB] S NEEDED. 



PRESS ANY KEY TO CONTINUE 
ols 



— *** RESITS OF LAST ENEKY HANUEVER ***— 
WflT ARE VO-JR ORDERS, CAPTAIN DERRIER? 5. 



PPJ 5S ANY KEY TO CONTINUE 

els 



— *« RESULTS OF LAS ENEMY (WHOEVER ***- 

HOT ARE YOUR ORDERS, CAPTAIN DERRIER? 1 
OPTION I? 8. 



■ els • 



« OF EHEHY SHIPS LEFT. 28 

I OF POWER UNITS LEFT 3,861 

» OF TORPEMS LEFT. 9 

I OF MISSILES LEFT. 3 

t OF CRBKN LEFT 38 

LBS. OF FUEL LEFT. 2,588 

KANT DAHRGE REPORT? Y. 



<S>. 
<S> 



<S> 



<S>#- 



i <s> <s> 

t -t- . 

****** ** 
$ *********** <s> 

<S> ********* ******-!- <S> <S> 

<S>****** (X) 

<S> ****** ****** $ 

****** *** * 

***3> . <S> <S> <S> - 

<S> * 

PF !SS ANY KEY TO CONTINUE 



ITEH 



DAHAGE (+ 6000, 8 NEUTRAL - ! 



ENGINES 4.1432 
50NBR-14.5373 
TORPEDOS 6.7823 
HISSILES 4.7619 
HftNEUVERlNIi 13122 
STATUS a '3888 
HEADQUARTERS 3.5847 
SABOTAGE 3.6646 
CONVERTER 3.5318 

YOU ARE AT LOCATION ( IB , 11 ). 
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HHflT ARE TOUR ORDERS, CAPTAIN DERR1ER? 1 
SONS! IS UNDER REPAIR, CAPTAIN DERRIER 

NHAT ARE VOUR ORDERS, CAPTAIN DERRIER? 8 
COURSE (i-8)? 5 

POSER AVAILABLE^ 3861 POKER TO US? 388 
NAVIGATION CCWLETE. POHER l£FT= 3561 
DEPTH CHARGES OFF PORT SIDE, CAPTAIN DERRIER! ! ! 
DAHAGE CRITICAL!!!! HE NEED HELP! ! ! 
SEND 'HELP' IN CODE HERE IS THE CODE:. . . . 
ENTER CODE? XCNV 

FAST HORK, CAPTAIN DERRIER!! KELP ARRIVES IN THE TO SAVE VOU! 

PRESS ANV KEV TO CONTINUE 

els 

— *** RESULTS OF LAST FJCHV HANUEVER ***— 
*** SHIP DE5TR0VED BV A HUE, CHPTAIN DERRIER!!! 

WHAT ARE VOUR ORDERS, CAPTAIN DERRIER? 5. 

els 

» OF ENEHV SHIPS LEFT IS 

I OF POHER UNITS LEFT. 3,332 

I OF TORPEDOS LEFT 9 

I OF MISSILES LEFT 3 

t OF CREKHEN LEFT 38 

LBS. OFFUELLEFT 2,588 

HRNT DAHAGE REPORT? V. 

els 

ITEM DAHAGE (+ GOOD, 8 NEUTRAL - BAD) 

ENGINES 4.1432 
SONAR-13.6429 
TORPEDOS 6.7823 
MISSILES 4.7619 
MANEUVERING 4.4177 
STATUS 8.8888 
HEADQUARTERS 3.5847 
SABOTAGE 18. 3188 
CONVERTER 5.S514 

VOU ARE AT LOCATION < 13 , 11 ). 

WAT ARE VOUR ORDERS, CAPTAIN DERRIER? 4. 



—*** RESULTS OF LAST ENEHV HANUEVER «*- 
HHAT ARE VOUR ORDERS, CAPTAIN DERRIER? 7. 

els - 

NO SHIPS IN RANGE, CAPTAIN DERRIER. 
HHAT ARE TOUR ORDERS, CAPTAIN DERRIER? 5. 



■ els • 



t OF EHEHV SHIPS LEFT 13 

t OF POHER UNITS LEFT 3,384 

I OF TORPEDOS LEFT. 9 

I OF MISSILES LEFT 3 

t OF CREWMEN LEFT 38 

LBS. OFFUELLEFT. 1,588 

RANT DAHAGE REPORT? V. 



ITEM 



DAHAGE « MOO, 8 NEUTRAL - BAD) 



ENGINES 4.1432 
SONAR 18. 7869 
TORPEDOS -9. 6615 
MISSILES 6.2204 
MANEUVERING 4.4177 
STATUS 8.8898 
HEADQUARTERS 3.5847 
SABOTAGE 18. 3188 
CONVERTER 2 8924 

VOU ARE AT LOCATION ( 13 , 11 ). 



kHAT ARE TOUR ORDERS, CAPTAIN DERRIER? . 

— cla • 



els ■ 



ENGINE 4.1432 
SONAR 18.7869 
TORPEDOS -8.8615 
MISSILES 6.2284 
MANEUVERING 4.4177 
STATUS 8. 8888 
HEADQUARTERS 3.5847 
SABOTAGE 18. 3188 
CONVERTER 2 8924 



REM DEPTH? 2575 

HANUEVER COMPLETE. POHER LOSS= 37 

DEPTH CHARGES OF STARBOARD SIDE, CAPTAIN DERRIER! ! 

LIGHT, SUPERFICIAL DAMAGE, CAPTAIN DERRIER 



VOU ARE AT LOCATION C 13 , 11 ). 



WAT ARE VOUR ORDERS, CAPTAIN DERRIER? 1 



PRESS ANV KEV TO CONTINUE 

els 



— *** RESULTS OF LAST ENEHV HANUEVER **»— 
HHflT RRE VOUR ORDERS, CAPTAIN DERRIER? 8. 



■ els • 



OPTION? (1=FUEL TO POWER, 2=P0SER TO FUEL)? 1 
FUEL AVAILABL£= 2568. CONVERT? 1888 
CONVERSION COMPLETE POHER= 3578. FUEL= 1588. 
DEPTH CHARGES OFF PORT SIDE, CAPTAIN DERRIER!!! 
HEAW DAMAGE! ! REPAIRS IMMEDIATE, CAPTAIN DERRIER! ! 



PRESS ANV KEV TO CONTINUE 
els 



OPTION »? 8. 




els 




...... $ 


!H! . 




<S> 


<S> <S>. 




-1- -1- 


■+■ 


<s> $ 


<S> 


\Sxsy ********* 




♦<$♦♦♦ ♦♦♦{S^tttfrfrt 




<s> ****** 




****** ****** $ 




, {5}****** *** 


$ 


. <S>«* * (X) 






t <s 


PRESS RNV KEV TO CONTINUE 




els 
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WHAT ARE VOIR ORDERS, CA TRIH DERRIER? 8 
CORSE <i-8)? 3 

POWER AVMLABLE= 3254. P l£R TO USE? 368 
NAVIGATION COWLETE. PONS L£FT= 2954. 
HO SHIPS IN RfflGE TO DEF FH CHARGE VOU, CflPTRIN DERR1ER! ! 



PRESS UN KEV TO CONTINUE 

0l8 



-m RESULTS OF LAST E EHV IWIUEVER ***- 



HUT ARE VOIR ORDERS, Cf >TA1H DERRIER? 1 
OPTION 0? 1. 



• cla ■ 



— «* RESULTS Cf LAST E EHV HAHUEVER «**- 

HrtftT ARE VOUR ORDERS. Cf 'TAIN DERRIER? 1 

OPTION J? i 

DIRECTION » OF SHIPS DISTRNCES 



i 18 

1 6 

PRESS W KEV TO CONTINUE 

0l8 



WHAT RRE VOUR ORDERS, Cf THIN DERRIER? 2_ 

Cl8 



PRESSURE IMPLODES SUB UF W FIRING. . . VOU'RE CRUSHED! ! 

THERE RRE STILL 53 FJBfr SHIPS LETT, CftPTAIH DERRIER 

VOU HILL BE DEHOTED TO f m OF DECK SCRUBBER! ! ! 

HUNT ANOTHER GAKE? N 

RERDV 

>. 




18CLS 

28 PRINT I 411, "SER BATTLE" 

38 PRINT TAB(?)"C0 3 VRIGHT 1379 CREATIVE CCWUTING KORRISTOMI, NJ' 

48 PRINT 8 968, "i :IKPUT"HKAT IS YOUR NEW; Nf :H»="CflPTRIN "W 

58 IF N*="CAPTAIH 1K1S" THEN 6248 

68 DD$°'tt«' :DI(fi(15, 26), D(9):CLS 

78 PRINT "SETTING JPBOFRD..." 

88 F0RI=lTOi5:FORMTO28:AU,J)=3:IEXTJ,I 

98 REST0RE:F0RTK=ii025-.R£fCJKJ:NEXTJK 

188 E0RX=7T013:F0Rf=5T0i6:READA(X,V):KEXTV,X 

118 Sl=i8:52=ie:R<Si, S2>=2:S=lNT<RND<16»t7 

128 REST0RE:F0RJK-lT03:KER8JK$:KtXTJK 

138 F0RMT0(INT<R!©(e)«4)+l)*2-l 

148REH)D8,D9 

158 (EfTX 

168 FORfcdTOS 

178 Xi=INT(RHD<8M5>+i 

188 X2=INT<SHXB)»3»H 

1S8 IFAOa,X2)OflTHEN178 

288 fl<10.X2)=3 

218KEXTX 

228 PRINT'VOU HUST DESTROY"; S; 'ENEHV SHIPS TO HIN. MB;*. ' 

238 53=IHT<RM0<e»15)+l 

248 S4=IHT(RND(8)S23)+1 

258 IFA(S3,S4)O8TI!EH230 

268 R<53,S4)=4 

278 F0RX=1T0IKT<F*D<8>*(»*8 

288 Xi=ll{T<RWX3)«.5Hi 

298 X2=IHT<RH0<8H23H1 

388 IFfl(Xl,X2)OeiHEN288 

318A(XLX2)=5 

328KEXTX 

338 F0RX=iTO4 

348 X1=1HT<RND<BX14H2 

358 X2=IHT<RND(8><18>+2 

368 IFR0ttiX2)O911HB40 

378 R<Xi,X2)=6 

388 RESTORE 

398 F0RJK4T09 

488READJK* 

418HEXTJK 

428 F0RV=lT0INT(Ri5)(e)*3)+l 

438READH1,H2 

448KEXTY 

458KEXTX 

468 F0RI=iT09 

478 D(D=8 

488ffiXTI 

498C=33 

538P=6888 

518F=2588 

528T=18 

538 H=2 

548 0=188 

558 02=2 

568 PRINT 

578 PRINT-BAT ARK VOUR ORDERS, ";Nt; 

588 INPUT 

585 IF 0=1 OR 0=8 THEN 688 

538 OS 

688 ON INK0+DCO70 748,1358,1928,2238,3888,3153,3548,2718,4248,4478 

618 CLS 

628 PRINTTHE COMiiiNDS RRE:" 



638 PRINT" «8: 

648 PRIHT" II 

658 PRIHT" 52 

668 PRINT" t3 

678 PRINT" M 

688 PRINT" 15 

698 PRINT" K 

783 PRINT" 17: 

718 PRINT" 18: 

728 PRINT" 19. 

738G0T0568 

748 IFD(1»=8THEN7?8 

758 PRIHT'ENGIHES ARE UDDER REPAIR, 

768GOT0563 

778 IFD8THEN888 

788 PRIHTNOT ENOUGH CREH TO HAN THE ENGINES, ";N»; ". " 

738G0T056e 

888 Dl=i-«. 23+RUX8>/18)«<-<D<=58>» 

818G0SUe5998 

828 PRINT'POKER AV«ILR8LE=";P; CHR*<8>;". POSER TO USE"; 

838 INPUT PI 

848 IFFi<60RPDPTi;tN828 



NAVIGATION* 
S«KS- 

TORPEDO CONTROL" 
POLARIS HISSILE CONTROL" 
RRNEUVERING" 
STATUS/DAMAGE REPORT" 
HEADQUARTERS" 
SABOTAGE" 
P«CR CONVERSION- 
SURRENDER" 



MB;' 
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858 IFP1<=1888THEH988 


1758 F0RX=1T08 


868 IFRW><e>C43THEN388 


1768 READ XI, VI 


878 PRINT'ATOHIC PILE GOES SUPERCRITICAL, ";ttt;'!!i BEftDQUftSTERS" 


1778X3=8 


888 PRINPWLL HARH RLL SUBS TO STRV FROH RBDIORCTIVE RREA!!!" 


1788 F0RXMT028 


898G0T06ii8 


1798 IFSl+Xl*X4a0RSltXl*X4>150RS2*Vl«X4<10«S2m*X4>28THEH1848 


S88X=5i 


1888 IF A(S1+X1*X4, S2+Vi*X4>03 MN 1838 


318 V=S2 


1818 X3=X2+1 


928 01=1 


1828 B<X3)=X4 


928 F0RX2=H0INT<INT<Pi/188t.5)*Di+.5> 


1828NEXTX4 


948 ir*Xi)eRH0X+Xl<i6ANDVm>8fiNDVm<21THEN97e 


1848 IFX3=8TK9US88 


958 PRIHTVOU CAN'T LEAVE THE AREA, ";ftt;"!!" 


1858 PRINT" "iX, X3, 


969G0T01838 


1868 F0RX44T0X3 


978 ONA(X*Xi,Wi»lGOTO 988,1828,1388,1883,1138,1168,1188 


1878 PRIHTB<X4); 


388X=X+X1 


1886HEXTX4 


998V=V+V1 


1898PRIHT 


1888 P=P-188 


1SB8KEXTX 


1818 60101289 


1918 G0T01688 


1828 PRINT'VOU RLHOST RUN AGROUND, ";NJ;"!!« 


1928 IFDG»=8THEN1958 


1838A<X,V>=2 


1938 PRIHT'TORPEDO TUBES RXE USER REPAIR, ";ttt;" " 


1848 A(S1,S2>=8 


1348G0T0568 


1656 S1=X 


1958 IFCMeTHENlS88 


1868 S2=Y 


1368 PRIHT'KOT ENOUGH CREH TO FIRE TORPEDO, Mtt; ", " 


1878 G0T04498 


1378G0T0568 


1888 IFD>58TKEH388 


1388 IFTTHEN2818 


1898 PRIHT'VOU RflJKD A SHIP!!! VOU'RE BOTH SUNK, Mtt;'!!' 


1938 PRIHT'HO TORPEDOS LEFT, ";ltt;"." 


il88S=S-l 


2888G0T0568 


1118 IFS=8THEH618B 


2818 inX238BTHEH2858 


1128 G0T06118 


2828 IFRHD<8».5THEK2858 


1138 IFDJ5BTHEN988 


2638 PRIHT"PRESSURE IOT.0OES SUB UPON FIRM .. VOU'RE CRUSHED!!" 


1148 PRIHT'VOU RfitSCD VOUR HEADQUARTERS!! VOU'RE SUNK!!' 


2848 G0T06U8 


1158 G0T06118 


2858 (50SUB5998 


1168 PRIHT'YOU'VE BEEN BLWI UP BV R HIKE, ";ltt;'!!' 


2868 X=S1 


1178 G0T06118 


2878 V=S2 


1188 IFRHD<e>C21THEHi388 


2888 F0RX2=iTOIHT<7*5*(-<D>58»-RKD<8)*4+.5> 


11S8G0TO6U8 


2838 IR+XD8RHDX+Xia6RH)VtVl>8IW)V+Vl<21THEN2158 


1288 F0RX3=X-2T0X+2 


2168 PRIHT'TORPEDO OUT OF SONftR RANGE. . . . INEFFECTUAL Mtt;"," 


1218 F0RV3=V-2T0V+2 


2118 T=T-1 


1228 IFX3aORX3>15ORV3<10RV3>28THEN1288 


2128P=P-158 


1238 IFA<X,V>06THEN1288 


2138 IFP>8THEH4438 


1248 IFRHX6K25THEH1278 


2148S0TM338 


1258 IF0i=8TBEN1288 


2158 OWKX+Stt, V+VD+1G0T02168, 2288, 2368, 2238, 2276, 2328, 2348 


1268 PRINT'VOU JUST HAD A HARROH ESCflPE WITH R SER KONSTER, Mtt;'!!" 


2168 X=X+Xi 


1278 01=8 


2178 V=W1 


1288HEXTV3 


2186 PRINT"..!..'; 


1298NEXTX3 


2198 GOTO 2268 


1388NEXTX2 


2288 PRIHT'VOU TOOK OUT SOKE ISLAND, ";N*;"!' 


1318 PRIHTNAVIGATION COWLETE PO€R LEFT=";P;CHR$<8>;". ■ 


2218fl<X+Xi,Vm>=8 


1328 IFP>8THENie38 


2228G0T02116 


1338 PRINT"ATOMC PILE HAS GONE DEAD!!! SUB SIHKS, CREH SUFFOCRTES!" 


2238PRINT'0UCH!!! VOU GOT ONE, Mtt;"!!" 


1348G0T06118 


2248S=S-i 


1358 lFD(2)>=8THERi388 


2258 IFS08THEN2218 


1368 PRIHT'SONAR IS UNDER REPAIR, Mtt;" ■ 


2268 00T06188 


1378G0T0568 


2278 PRIHT'VOU BLEH UP VOUR HEADQUARTERS, Mtt;"!!!" 


1388 IFC>5THEH14ie 


2288 S3=8 


1338 PRINTNOT EHOUGH CREH TO HORK SONftR, Mtt; - " 


2236 54=8 


1488 G0T0568 


2388 D2=8 


1418 PRIHT'OPTION »"i 


2318 G0T02218 


1428 ItPUT 


2328 PRIHT'BLRH!! SHOT HASTED ON A HIKE, Mtt;'!!' 


1438 0NINT(0+l>G0TO1458,1668 


2339G0T02218 


1448 G0T01418 


2348 PRINT'A SEA ROHSTER HAD R TORPEDO FOR LUNCH, Mtt;'!!' 


1458 as 


2358G0T02118 


1466 F0RX=1T015 


2368NEXTX2 


1478 F0RMT028 


2378 PRINT"DU). " 


1488 (»«=■ «*<X)<S>!H! * -I-" 


2388G0T02118 


1498 IFfl<X,V)OeTHEHi538 


2338 IF D(4»=8 THEN 2428 


1588 lFX01ANDX015ANDY01AH>V028THENi538 


2488 PRINT'MSSILE SILOS ARE UNDER REPAIR, Mtt,-". " 


1518 PRINT" •; 


2418 G0T0566 


1528 G0T0157e 


2426 IFD23THEN2458 


1536 ftt=MDS<E&tt,A<X,V)*3+l,3> 


2438 PRIHT'NOT ENOUGH CREH TO LAUNCH A MISSILE, Mtt;", ' 


1546 IFiX58RH)RHD(l)C23flH)fl(X,V)OlflK0fl(X,V)O2TK£N1518 


2448G0T0568 


1558 IFR(8)(8)C15flN0fl(X,V»2THEN1518 


2458 IFH08TREN2488 


1568 PR1NTA*; 


2466 PRIHT'NO MISSILES LEFT, Mtt;", ' 


1578KEXTV 


2478 G0T0568 


1588PRIKT 


2488 IFD>58ANDD<2888THEK255e 


1598KEXTX 


2498 PRIHT'RECOHHEND THAT VOU DO NOT FIRE AT THIS DEPTH . . PROCEED"; 


1688P=P-58 


2588 INPUT At 


1618 PR1NT8973, "PRESS RNV KEV TO CONTINUE"; 


2518 IFLEFTJ<A$,1)='N"THEN566 


1628 IFIKKEV*="THEH1628 


2528 IFRNDC8K5THEN2558 


1638 as 


2538 PRINT'HISSILE EXPLODES UPON FIRING, MB;"!! VOU'RE DEAD!!' 


1648 IFPMTHEN566 


2548G0T06118 


1658G0TM338 


2558 G0SUB5998 


1668 F0RI=1T05 


2568 PRINT-FUEL (LBS. )"; 


1679 B(I)=8 


2579 INPUT Fl 


1688NEXTI 


2588 IFFDflfiKDFl<=FTKEH2618 


1698 PRINT'DIRECTION t OF SHIPS DISTANCES" 


2538 PRIHT'VOU HAVE"; F; 'LBS. LEFT, Mtt;'.' 


4"fm rpitrr" ■ 


2688G0T02568 


If TO rKlni 


1718 RESTORE 


2616 F2=INT(FV75*. 5) 


1728 F0RJMT09 


2628 IFSl+Xl«F2>8ftNDSl+Xl«F2a6RNDS2+Vl»F2>8AM)S2+Vl*F2<21THEN 2688 


1738READJK1 


2638 PRINT'HISSILE OUT OF SONAR TRACKING, Mtt;", HISSILE LOST.' 


1748 KEXTJK 


tnn 2648K=H-1 
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2658F=F-F1 
2668P=P-383 
2678 (HTO 2138 
2688 03=8 
2658 D4=8 
2788 D5=8 
2716 06=8 

2729 F0RX=S1+X1«F 2 
2738 F0RY=S2+Yi*F2 
2748 IFX<10JSO150R 
2759 D3=03-tfl<X,V)^ 
2768 D4=D4-(R(X,Y): 
2779D5=05-CRO!,Y> 
2708 D6=D6-(R(X,Y> 
2798 IFfl<X,Y)04TK 
2888 PRINT'YOU'VE I 
2818 03=8 
2828 S4=8 
2838 D2=8 

2848 mm® 

2858 IFA<X,Y)02TH 
2868 PRINTYOU JUS 
2878 G0T06119 
2888flOtiV)=8 
2899NEXTY 
2S36NEXTX 
2918 IFD6=8THEN233 
2328 PRINT'YOU BLE 
2938 1FD5=6THER295 
2948 PRIKT'VOJ DES 
2913 1FD4=8THEH29? 
2958 PRINTYOU GOT 
2978 PRINTYOU DES 
2938S=S-03 
2S38G0T02648 
3688 IFD<5)>=8THEN 
3818 PRINTBALLRST 
3e28G0T0568 
3838 IFD12TKEN386 
3848 PRINTTHERE « 
3638 G0T0568 
3868 PRINTNEH OEF 
3878IIPUTD1 
3688 IFM>8fi»0i< 
3698 PR1NTKUUL CO 
3183 G0T06116 
3118 P=P-IlfT(ABS« 
3128 PRINTHANUEVE 
3138 0=01 
3148 G0T04498 
3158 IFD<6»=8THB 

3158 printno repo 

3178 G0T0568 
3188 IFQ3THEN32ie 
3198 PRINTNO OtE 
3288 G0T0568 
3216 PRINT 
3228 PRINT 
3238 PRIHTO OF B 
3248 FRINTUSINGDDi 
3258 PRINTS OF PC 
3268 PRIHTUSING'H 
3278 PRINT't OF TC 
3288 PRINTUSING Dt 
3298 PRINTS OF HI 
3389 PRINTUSINGDDi 
3318 PRINT'S OF Cf 
3329 PR1NTUSINGDW 

3338 PR1NT"UBS. OF 
3348 PRIKTUSIHG'H 
3358 PRIKT 

3369 PRINT'NANT Df 

3379 inputs* 

3388 IFLEFT$(f»,U 

3339 OS 

3483 PRINT' ITB 
3418 PRIHT" — 
3428 DATR'ENGIHES' 
3438 DATR'STATUS", 
3449 RESTORE 
3458 F0RX=1T09 
3468R£RDft? 
3478 PRINTMi 
3488 PRINTUSING'tf 
3499HEXTX 
3588 PRINT 
3518 PRINTYOU FR£ 
3528 PRINT 
3S39G0T05S8 
3548 IFD<7»=9THB 



1T0S1+X1*F2+1 

1T0S2+YWF2+1 

a0RV>29rHEN2898 
= 3) 

6) 
= 5) 
i=l) 

N2858 

ESTROYED YOUR HERDQURRTERS, "i HS; * ! 



DESTROYED YOURSELF, MB; - !!! OUtW! 



I OUT SOSEISLM), ";HS;V 

I 

ROYED*; 05; "NINES, MB;". 



;D4;"SER MONSTERS, ";»;"!!! G00DK0RK!! 
TOYED"; D3; "ENEMY SHIPS, MB;"!!!" 



S38 

CONTROLS ARE BEING REPAIRED, ";N$;" ■ 

I 

£ NOT ENOUGH CREH TO HORK THE CONTROLS, MB; ", 

wmmm 

BCD BY PRESSURE, ■;«;"!!" 

(-0D/2+.5)) 

iCMPLETE. P0HERL0SS=";IHT(flBS«D-M)/2t.5)) 



ITS ARE ABLE TO GET THROUGH, MB; 



£FT TO GIVE THE REPORT, MB;'," 



W SHIPS LEFT "; 

;S 

m UNITS LOT. "; 

l,M8";P 

iPEDOSLEFT. ■=. 

f;T 

5ILESLEFT. "; 

iH 

HENLEFT. "; 

C 

FUEL LEFT. V 

mi'iF 

«GE REPORT"; 

="N"THEH3518 

DRHRGE (+ GOOD, 8 NEUIRRL. - BAD)" 

"SONAR", "TORPEDOS", "HISSILES", "KflNEUVERIHG" 
'HERDQURRTERS" , "SRBOTRGE", "CONVERTER" 



l.»«";D(X> 



AT LOCATION <";Sl;",";S2i"). 



3578 
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3558 PRINTHKfiDQURRTERS IS DRHAGED. UNRBLE TO HELP, MB; *. " 

3568 60T0568 

3578 IFD208ilBf3683 

3588 PRlHTIfcfDQURRTERS IS DESERTED, ";N$;". " 

3598G0T0568 

3688 IFSQR«31-S3)[2+<S2-S4)t2X=2flH)0<5iTREN3639 

3618 PRINTUBBLE TO COtRY WITH DOCKING ORDERS, MB;". " 

3628G0TO568 

3639 PRINTDIYERS FROH HEADQUARTERS BRING OUT SUPPLIES AND HER " 

3649P=4988 

3659 T=8 

3666 R=2 

3679F=1588 

3689 C=25 
3698 02=02-1 
3788 G0T04493 

3718 IFD(8»=8THEN3748 

3729 PRIHT"H : ITCHES INACCESSIBLE, MB; ". HO SABOTAGES POSSIBLE " 

3738G0T0568 

3748 IFD1BTBG778 

3759 PRINTN3T ENOUGH CREH TO GO ON A HISSION, ";H$;". * 

3768 GOT0568 

3778 03=8 

3788 04=8 

3738 F0RX=Sl-2T0Sl+2 

3889 FORY=S2-2TOS2+2 

3818 IFXa0RO150RV<10RV>29THEN3849 

3828 D3=D3-(H(X,V)=3) 

3838 D4=D4-(RCX,Y)=6) 

3848NEXTV 

3858 lEOX 

3868 1F03O8TKEN3898 

3878 PRINTNO SHIPS IN RANGE, ";N$; ". " 

3888G0T05K 

3898 PRIHTTIOE fRE";D3; "SHIPS IN RANGE, MB;"." 

3388 PRINTKM HFSW l€N ARE GOING, MB; 

3918 INPUT U 

3928 IFC-fiD=16THBG958 

3938 PR1HTVMJ BUST LEAVE AT LEAST 18 ItH ON BOARD, MB; ", " 

3948G0T039B 

3958D5=INT(03/01+.5) 

3969 06=9 

3978 FOR X=Si-2 TO Si+2 

3988 FOR Y=S2-2 TO S2+2 

3998 IFWSH)i-RH)(6)AND RHX8)+D3/81C 9TKEH4859 

4868 IFA<X,V>03TI£N4858 

4918 06=06+1 

4628 A(X,V)=3 

4938S=S-1 

4848 IF S=8 THEN GOTO 6188 

4B58HEXTY 

4868HEXTX 

4978 PRINTW; "SHIPS HERE DESTROYED, ";N$; " " 

4888 06=8 

4998 07=9 

4169 F0RX=iT0ai 

4118D7=D?-<31Xe».6) 

4128NESOX 

4138 F0RX=iT«H)7 
4148 06=06-1 RWK8K 15) 
4159 NEXTX 

4168 IFD4=81>EN42i» 

4178 PRINT'fl SEA KONSTER SRELLS THE (EN ON THE HAY BACK!!!" 

4188 PRINT [i?; "HE) HERE EATEN, ";tBi":!" 

4139 C=C-D7 

4269 PRINT IS; "(EN «RE LOST THROUGH ACCIDENTS, ";N$;". " 

4219 C=C-06 

4228 P=P-IKT(18t8WiHKB)*M) 

4238 G0T04499 

4248 IFD(3):=8TICN427e 

4259 PRINT"! ODER CONVERTER IS DAHRGED, ";IB;". • 

4268GOT0560 

4278 IFC>5TI,!3M3ffi 

4288 PRINT"I3T ENOUGH REN TO HORK THE CONVERTER, M»i ". " 

4298 G0T0560 

4389 PRIHT"(.?TION? <i=FUEL TO POCR, 2=P0HER TO FUEL)"; 

4318 INPUT I) 

4328 0N0GOTM348, 4488 

4338 G0T043C3 

4348PRINT"IUELRVRILABLE=";F; CHRK8);" CONVERT"; 

4353 INPUT CI 

4369 IF <OJF>0R<CK8)THEN4348 

4370 F=F-C1 

4389 P=P+INi(Ci/3) 

4398 G0T044!:9 

4498 PRIHH'OSeR RVRILflBLE=";P-l; CHRSC8);". CONVERT; 

4419 INPUT r.l 

4428 IFCDP-10RCK9THEN448B 

4438P=P-C1 

4448 F=F+IHi(Cl*3) 



4458 PRIHT'COWERSION CWUTE. P0HER=-;P; CH»(8)i", FUEL=";F; CHRK8);".- 


5356READH,V 


4468 GOTO 4458 


5368NEXTX8 


4478 PRINT'COHRRD!! YOU'RE NOT VERV PATRIOTIC, *;N$;"!!!" 


5378 IFX+H<10RX+H>150RY+VaORYtV>2eTBEN53e8 


4488G0T06U8 


5388G0T05268 


4498 8=8 


5398 in»58TBEH5388 


4583 F0RX=Sl-4T0Sl+4 


5488 PRINT**** YOU'VE BEEN RRNtD BV fl SHIP, 'iltti'!!!" 


4518 F0RY=S2-4TOS2+4 


5418 GOT0611B 


45^ irea0RX>150RYa0RY>28THEH45S8 


5428 IFRHD<8K 15THEK5388 


4538 IFA(X,Y>03TKFJM558 


5438 PRIHT - *** YOUR HEADQUARTERS HAS RftftHED, ■;(»;"!!!" 


4548 Q=8+(RND(8)/SQR«Si-X>[2«S2-Y>[2» 


5448 53=8 


455BNEXTY 


5458 54=8 


4568NEXTX 


5468 02=8 


4578 IFQTKEN4688 


5476 8<X+R,YtV)=8 


4588 PRINT'NO MPS IN RfiNGE TO DEPTH CHARGE YOU, M*"!'." 


5488 GOT05516 


4598 G0TO5846 


5498 IFRMWeX. 7THEN5388 


4688 PRINT-DEPTH CHARGES OFF "; 


5586 PRINT-*** SHIP DESTROYED BY A HIKE, ";N*;"!!!" 


4618 IFRHX8».5THEN4648 


5518S=S-1 


4628 PRINT-PORT SIDE -;N$; "'.!!■ 


5528 IFS06TKEH5288 


4638COT04658 


5538 G0T06188 


4648 PRINT'STARBORRD SIDE, ";!«;"!!!■ 


5548 IFRHK8X.8TKEN5388 


4658 IFa>.130RRHX8».92THEH4688 


5558 PRINT-*** SHIP EATEN BY A SEA HONSTER, ";H*;"!!" 


4668 PRINT-NO REft DAHRGE SUSTAINED, ";«;". " 


5568S=S-1 


4678GOT05848 


5578G0T05528 


4688 IFQ>.360RR»<8».96THEN4736 


5588 IFR(X,Y)06THEN5928 


4698 PRINT-LIGHT, SUPERFICIAL DAHRGE, Mtt;V 


5598 IFX^<10RX*ttD150RY+H2a0RY+H2>28THEN5648 


4?68P=i>-58 


5688 ONACXtta, Y<fl2)+tG0T05618, 564a 5738, 5758, 5888, 5618, 5858 


4718 LETD(INT(RHX8)«3)tl)=-RMK8)*2 


5618 A(X*m,Y*«2)=6 


472BG0T05848 


5628R<X,Y)=8 


4738 IFQ>.60RRND(B».975TIEN48i8 


5638 00T05928 


4748 PRINT-HODERRTE DRKRGE REPAIRS (CEDED. • 


5648 RESTORE 


4758 P=P-75+IHT<RMXe>*38> 


5658 F0RJK=iT09 


4768 F0RY=1T02 


5668REA0JK$ 


4778 X=INT<RND<B>*9M 


5678NEXTJK 


4788 D<X)=0<X)-«HD<8>*8 


5688 F0RX8=1T0INT<RHX8)*8>+1 


4798HEXTY 


5698 READ HLH2 


4888G0TO5B48 


5768NEXTX8 


4818 IFQ>.90RRND<8».983TKEN4898 


5718 IFX+ma0RX*«l>15ORYt«2a0RY+K2>28THEN5648 


4828 PRINTHERVY DflttAGE!! REPAIRS IKSEDIATE, ";H$i , !l!" 


5728G0T05668 


4838 P=P-<268+lNT(RM)<6)*76» 


5738 PRINT"*** YOU'VE BEEN EATEN BY R SEA HONSTER, ";W;"!!" 


4848 FtSX=iT04+INTCRHDC8)*2) 


5748 GOT06118 


4858 Y=1NT<RND<8>*9)+1 


5758 IFRND(8)>.2THEN5648 


4868 D<Y>=0<Y>-RND(8)*ii 


5766 PRINT-*** SHIP EATEN BY A SEA HONSTER, ";N»; "! !° 


4S7B lecrx 


5778 S=S-1 


4888G0T05848 


5788 IFS08THEN5618 


4858 PRINT-DflHfiGE CRITICS.!!!! k£ fEED HELP!!!" 


5798 G0T06188 


4988 f^-VRfMJI<XCNVPa?HR>RSfiX8URL9TRH^^ 


5888 PRINT"*** A SEA H0N5TER ATE YOUR HEADQUARTERS, ";!»;"■!■ 


4918 X=INT<RND<8)*i6Hl 


5810 S3=8 


4928 PRINT-SEND 'HELP' IN CODE HERE IS THE CODE:-;HID*<ftt, X, 4>i 


5828 54=8 


4938 REM 


5838 D2=8 


4948 FORI=1T01588 


5846 G0TO5616 


4958HEXTI 


5856 IFRMX8K75TKEH5648 


4968 PRINT5TRIHGK4,8>;STRIHG*<4,143> 


5868 PRINT"*** A SEA HONSTER FIGHT, ";ltt;"!!! '; 


4978 INPUT-ENTER C0DE-;B* 


5878 IFRND(8)C8THEN5988 


4988 PRINT 


5888 PRIHT-AND ONE DIES!! " 


4998 IF BJOHIDJCAt, X, 4)THEN 5828 


5898 G0T05618 


5888 PRINT-FPST HORK, MB; - !! HELP ARRIVES IN TIE TO SAVE YOU!!!" 


5988 PRINT-IT'S A TIE!!" 


5818 GOTO 4838 


5918 G0T05648 


5828 PRINT'lfSSAGE GARBLED, "; Ht; ". . . HO KELP ARRIVES!!!' 


5928NEXTV 


5838 GOTO 6118 


5936NEXTX 


5848 IF D<1»=8 OR D(3)>=8 OR D(4)>=8 OR D<5»=8 OR D<7»=8 THEN 5888 


5948 F0RWT09 


5858 IFD<8»=80RD(9»=8THEN5888 


5958 X=INT(RMX8>*9>+1 


5868 PRIHT-DRKAGE TOO HUCH, ■;»;"!!! YOU'RE SUNK!!" 


5968D(X)=D(X)4<RND(l)*<24RND<l)*2))*(l+(-(D<51)0R-(D>26e8»)*(-(D<X><3)) 


5878G0T06118 


5976 (BOY 


5888 PRINT8979, -PRESS ANY KEY TO CONTINUE'; 


5988G0T0568 


5B98 IF1NKEY*='"THEN5898 


5996 DATA-1, 8,-1, 1, 8, L i, i, i, 8, 1-i 6,-1,-1,-1 


5188 as 


6888 PRINT" COURSE (1-8)-; 


5118 PRIHT-— *** RESULTS OF LHST ENEHV HRNUEVER ***— " 


6818 INPUT CI 


5128 F0RX=1T015 


6828 IFCK10RCD8THEN6888 


5138 F0RMT028 


6836 RESTORE 


5148 IFB(X,Y>03THEN5588 


6848 F0RJMT09 


5158 H=D8 


665BRERDJKt 


5168 V=D9 


6868NEXTJK 


5178 IRHD6P»X+Ha6(Wi , +V>eP»V+V<21THEH5268 


6678F0RX9=lT0INT(Cl+.5) 


5188 F0RX8=19T01STEP-1 


6888RERDX1,Y1 


5198 IFR(X-H*X8*14/19,Y-V*X8>OeTKEH524e 


6898NEXTX9 


5288 LETA<X-H*X8*i4/i9,Y-V*X8>=3 


6188 RETURN 

6118 PRINT'MRE ARE STILL"; S; "ENEHV SHIPS LEFT, ";K$; ", ■ 




5228A(X,Y>=8 


6128 PRINT-YOU HILL BE DENOTED TO RANK OF DECK SCRUBBER! ! !' 


5238GOT05928 


6138 PRINT'HANT ANOTHER 6SKE"; 


5248NEXTXB 


6148 INPUT At 


5258 GOTO 578 


6158 IFLEFT$<A*,1)0'Y'TKEN6178 


5268 0Nfl<X+H, Y+VM1G0T05276, 5388, 5398, 5388, 5426, 5498, 5548 


6168 OS: GOTO 76 


5278 A<X+H,Y+Y)=3 


6178 END 


5288 R<X,Y>=8 


6188 PRINT'GOOD HORK, -;N$;"!!! YOU GOT TKEH ALL!!!" 


529BG0T0592B 


6198 PRINT-PROKOTION AND COBCHDATIONS HILL BE GIVEN IHREDIRTELV!!!" 


5388 RESTORE 


6288GOT06138 


5318 FORJK=iT09 


6218 DATA 6, 1, 1, 1, 8, 8, 8, i 1, i i 8, i i 1, 6, 1, i, 1, 1, 8, ! 


5328READJK* 


6228 DATA 1, i, 8, 6, 1, i, 8, i 1, 8, 1, 8, 6, 8, 1, 6, 8, 8 


5338NEXTJK 


6238 END 


5348 F0RX8=n0INT(RMK8)*8)+l 


r 6248 CLS:PRINT841i, "YOU LOSE" 



6, 8, 1 
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DO TO HEED INSTRUCTIONS? YES. 



• cis 



SEAHAR 

VOU TELL TOUR Oil CRENS TIE ELEVATION TO SET MIR GUNS. 
ELEVATION IS IN IEGREE5 FROM 8 TO 369. 

YOUR TASK FORCE CONSISTS Of 3 DESTROYERS, 2 CRUISERS, 
2 BATTLESHIPS, ftl.D 2 HEAVY AIRCRAFT CARRIERS. 
THE ENEMY HAS 9 SHIPS FOR HIS DEFENSE 

IF YOU SUCCEED II! SINKING ALL HIS SHIPS BEFORE HE SIMS 
YOURS, YOU HAVE IJON. HOWEVER, IF HE SINKS ALL YOUR SHIPS 
BEFORE TO HAVE DEFEATED HIH, YOU HOVE LOST!! 



PRESS ANY KEY TO CONTINUE 



LET US BEGIN! ! 



YOUR FLAGSHIP HAS DETECTED A U-BOAT APPROACHING AT 5 FATHOMS. 

YOUR SUBMARINE DETECTION EQUIPMENT READS THE RANGE TO THE TARGET 

AS 17226 ICTERS. 

THE U-BOAT HAS COMMENCED FIRING TORPEDOES AT YOUR SHIPS. 

HIS FIRST T0RPED3 EH100ED 139 METERS BEHIND YOUR SHIP. 

NHBT ELEVATION « » ■> 38. 
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FIRE! ! ! 

DEPTH CHARGE EXPLODED 27898 METERS AFT OF TARGET. 
THE ENEMY TORPEDO EXPLODED 56 METERS IN 
FRONT OF VOUR SHIP. 
HHAT &EVRTI0N**? 37.4. 



• els • 



FIRE!!! 

DEPTH CHARGE EXPLODED 27653 METERS AFT OF TARGET. 
THE ENEMY U-BOAT SANK ONE OF VOUR DESTROVERS!! 
WHAT ELEVATION « ? 29. 7. 



FIRE!!! 

DEPTH CHARGE EXPLODED 22893 HETERS AFT OF TARGET. 
THE ENEHV U-BOAT SANK VOLS HERW CRUISER! ! 

mm aEVRTiON ** •> 31. 



■ Cl3 ■ 



FIRE!!! 

DEPTH CHARGE EXPLODED 23836 METERS AFT OF TARGET. 
THE ENEHV TORPEDO EXPLODED 252 HETERS IN 
FRONT Of VOUR SHIP. 
HHAT aEVATION ** ■> 54. 



- els ■ 



FIRE!!! 

DEPTH CHARGE EXPLODED 27887 HETERS AFT OF TARGET. 
THE ENEHV TORPEDO EXPLODED 185 HETERS IN 
FRONT OF VOUR SHIP. 

BAD SHOT, THE TARGET HAS HOVED OUT OF 
RANGE!!! LET'S TRV IT AGAIN!!! 

VOUR FLAGSHIP HAS DETECTED A U-BOAT APPROACHING AT 5 FATHOHS. 

VOIR SUBHARIIE DETECTION EQUIPMENT READS THE RANGE TO THE TARGET 

AS 38661 HETERS. 

THE U-BOAT HAS COMMENCED FIRING TORPEDOES AT VOUR SHIPS. 

HIS FIRST TORPEDO EXPLODED 68 HETERS BEHIND VOUR SHIP. 

HHAT ELEVATION ** ■> . 

els 



16 OS. PRINT8412, "SEA HAR" 

28 PRINT: PRINT TAB(7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 

36 PRINT8968, "; ' INPUT 'DO VOU NEED INSTRUCTIONS"; I* 

46 IF LEFT$(»,1>="V THEN 59 ELSE GOTO 188 

50 OS: PRINT TA8<29>;"SEAHAR": PRINT 

66 PRINT "VOU TELL VOUR GUN CREHS THE ELEVATION TO SET THEIR GUNS. " 

76 PRINT "ELEVATION IS IN DEGREES FROM 8 TO 368. " 

88 PRINT 

96 PRINT "VOUR TASK FORCE CONSISTS OF 3 DESTROVERS, 2 CRUISERS, " 

183 PRINT "2 BATTLESHIPS, AND 2 HEAW AIRCRAFT CARRIERS. " 

116 PRINT "THE ENEHV HAS 9 SHIPS FOR HIS DEFENSE " 

128 PRINT 

138 PRINT 

148 PRINT 

158 PRINT 

166 PRINTS979, 

178 IF IKKEY*= 



'IF VOU SUCCEED IN SINKING ALL HIS SHIPS BEFORE HE SINKS" 
'YOURS, VOU HAVE HON. HOWEVER, IF HE SINKS AIL VOUR SHIPS" 
'BEFORE VOU HAVE DEFEATED HIH, VOU HAVE LOST!!" 

PRESS ANV KEV TO CONTINUE"; 

THEN 178 



188 OS: PRINT "LET US BEGIN!' 
198 PRINT " 
288 READ Z* 



aOPrfHl 

226 GOTO 388 

236 RESTORE 

248 IF 0=9 OR A=9 THEN 768 

258 FOR X=l TO A 

268 READ 2( 

278 NEXT X 

288 READ 2$ 

298 A=A+i 

388 IF Z$="AIRCRRFT CARRIER" THEN 358 

318 IF Z$="U-BOBT" THEN 1758 

328 IF Z$="TORPEDO BOAT" THEN 346 

338 P=i 

348 GOTO 368 

358 RESTORE 

366 PRINT: PRINT "VOUR FLAGSHIP REPORTS THE SIGHTING OF AN ENEHV ";Z$ 

378 T=43888-3e888*RM>(8H<RICi<8>*18>*. 937654+162 

388 IF TCie888 THEN 378 

398 5=8: P2=8 

468 T=INT(T) 

416 IF Z$="U-BOAT" THEN 1796 

428 PRINT "VOUR INSTRUMENTS READ THE RANGE TO THE TARGET RS";T; "HETERS. " 

438 IF P=i THEN 1298 

448 IF SM THEN 466 

456 GOTO 588 

468 PRINT "BAD SHOT, THE TARGET HRS HOVED OUT OF" 

478 PRINT "RANGE!!! LET'S TRV IT AGAIN!!!" 

488 5i=Sl+S 

498 GOTO 388 

588 PRINT "HHRT ELEVATION ** "i 

516 INPUT B: CLS 

528 PRINT 

538 PRINT '" 

548 PRINT " FIRE!!!" 

558 5=5+1 

568 IF B>368 THEN 1248 

578 IF B<8 THIN 698 

588 IF 8=8 THEN 718 

598 IF B=98 THEN 876 

688 IF B>338 THEN 716 

618 IF B>188 THEN 1188 

628 IF B>158 THEN 1116 

638 IF B>96 THEN 988 

648 Vl=675. 285 

658 E=INT<T-<ViC2/9. 88665*SIH<2*8/57. 3))) 

668 IF ABS<EX=iB8 THEN 928 

678 IF D188 THEN 1659 

688 IF E<=168 THEN 1886 

698 PRINT "GUN BACKFIRED, KILLING CREH!" 

766 GOTO 748 

716 PRINT "HHAT ARE VOU TRVING TO DO? KILL SOtE FISH? THE SHELL" 

726 PRINT "EXPLODED UNDER HATER FIFTV HETERS FROM VOUR SHIP!!!" 

738 GOTO 1383 

748 PRINT" ADMIRAL PLEASE !!!!" 

758 GOTO 1386 

766 FOR A=i TO 1688: NEXT: CLS: PRINT TAB03); "*****«* PEACE **«****" 

776 PRINT: PRINT: PRINT 

788 PRINT "VOU FIRED"; Sli "ROUNDS. THE ENEMV FIRED"; S2; "ROUNDS. " 

799 IF 0=9 THEN 816 

888 IF ft=9 THEN 848 

818 PRINT "ALL OF VOUR SHIPS HAVE BEEN SUNK. SO SORRV. " 

828 PRINT "THE BATTLE IS OVER THE ENEMY HINS!" 

838 GOTO 1968 

848 PRINT "VOU HAVE DECIHATED THE ENEHV. THAT'S NICE. " 

856 PRINT 'THE BATTLE IS OVER. VOU HIH!!!!!" 

868 GOTO 1968 

876 PRINT "VOU IDIOT!! VOU SHOT STRAIGHT UP, AND THE SHEU" 

888 PRINT "LANDED ON VOUR OHN GUN POSITION, DESTROYING IT!!!" 

896 GOTO 1388 

988 PRINT "HEV STUPID, YOU'RE FIRING ON VOUR OHN SHIPS!!!" 

918 GOTO 1388 

926 IF Z*='U-B0aT" THEN 948 

938 GOTO 968 

948 PRINT "DEPTH CHARGE EXPLODED RIGHT ON TOP OF THAT BABY!!!" 

958 GOTO 978 

968 PRINT " » BOOM **" 

978 PRINT " 

988 H*="TARGET DESTROYED! ! ! **" 

998 N»=" ** ROUNDS EXPENDED. " 

1688 PRINT IK; Si Itt 

1918 PRINT "VOU HAVE LOST"; 0; "SHIPS, AND THE ENEMV HAS L0ST",fl;CHR$<8);*. 

1928 S1=S1+S 

1938 PI=8 

1646 GOTO 238 

1658 IF Z*="U-BOAT' THEN 1898 

1866 PRINT "SHOT FELL"; ABS(E); 'METERS SHORT OF TARGET. ' 

1876 GOTO 1388 

1686 IF Z*='U-BOAT" THEN 1916 

1898 PRINT 'SHELL OVERSHOT TARGET BY"; ABS(E); "METERS. * 

1188 GOTO 1388 
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1118 REH 

1129 PRINT " TO SHOT A PROJE' TILE INTO THE AIR, " 

1138 PRINT ' IT FELL TO THE H TER, VOU KNON NOT NHERE. . . ■ 

1148 PRINT "BUT I DO, VOU IDIO , VOU JUST SUNK VOUR OWN FLEET TANKER!!" 

1158 S1=S1+1 

1168 IF P=l THEN 1388 

1176 SOTO 448 

1188 PRINT "WHRT ARE VOU TRVIN ; TO DO?? DRILL R NEH HATCH?? THE SHELL" 

1198 PRINT "EXPLODED IN VOUR SUP, DESTR0VIN6 IT!!!' 

1288 0=0+1 

1218 IF 0=9 THEN 768 

1228 IF P=l THEN 1388 

1238 SOTO 748 

1248 PRINT "WHERE DID VOU LEAR I TO TVPE? "iB; "DEGREES EXCEEDS 368 BV 

1258 PRINT 8-368; 'DEGREES. " 

1268 S1=S1+1 

1278 IF P=l THEN 1388 

1288 GOTO 448 

1298 PRINT "THE ENEMV ";Z$; " I ; FIRING ON VOUR SHIPS!" 

1388 P4=1234*RND(RND(0»+(RMK ))*18) 

1318 IF P4>588 THEN 1388 

1328 IF P2=l THEN 1398 

1338 IF INKP4X188 THEN 1568 

1348 IF Z*="U-BORT" THEN 1866 

1358 PRINT "HIS FIRST ROUND FE 1"; INKP4); "HETERS SHORT. " 

1366 S2=S2+1 

1378 GOTO 446 

1388 IF P2=l THEN 1388 

1398 Pl=i258*RND(RMK8»+<RND< l>*18> 

1488 IF P0P4 THEN 1338 

1418 IF Pl«P4-468> THEN 1398 

1428 IF Pi<188 THEN 1488 

1438 P4=P1 

1448 S2=S2+1 

1458 IF Z*="U-BOAT" THEN 1938 

1468 PRINT "THE ENENV ROUND FE V; IHT(Fl); "METERS SHORT. ■ 

1478 GOTO 448 

1488 S2=S2+i 

1498 PM 

1589 GOSUB 1616 

1518 PRINT "THE ENEHV ";Z*;" SWK ";M 

1528 0=0+1 

1538 IF 0=3 THEN 768 



1548 IF Di="V0UR LAS 
1558 GOTO 448 
1568 R2=i 
1578 GOSUB 1618 
1588 PRINT "IN FACT, 
1598 0=0+1 
1688 GOTO 1538 
1616 RESTORE 
1628 FOR C=i TO (9+0. 
1636 READ D$ 
1648 NEXT C 
1658 READ D$ 
1668 DATA "U-BOAT", ": 
1678 DATA "BATTLESHl 
1688 DATA "E-TVPE DE 
1698 DATA "ONE OF VO. 
1788 DATA "ANOTHER : 
1718 DATA "VOUR LAST 
1728 DATA "VOUR LIGH 
1738 DATA "VOUR LAST 
1748 RETURN 
1758 PRINT: PRINT "V: 
1766 PRINT "FATHOHS. l 
1778 P=l 
1788 GOTO 378 
1798 PRINT "VOUR SUB 
1888 PRINT " TARGET"; 
1816 T=INT(T-1588) 
1826 IF T<6 THEN 378 
1838 PRINT "RS";T;"H 
1848 PRINT "THE U-BO : 
1856 SOTO 1368 
1868 PRINT "HIS FIRS 
1878 PRINT " VOUR SH 
1888 GOTO 1368 
1898 PRINT "DEPTH CH 
1988 GOTO 1388 
1918 PRINT "DEPTH CH 
1928 GOTO 1388 
1938 PRINT "THE ENEH- 
1948 PRINT "FRONT OF 
1958 GOTO 448 
1968 END 



T BATTLESHIP!!" THEN 766 



HE JUST SANK ";D$ 



16 M SHORE GUN", "78,888 TON CRUISER" 
"', "TORPEDO BOAT", "HEAW FRIGATE" 
;TROVER"."GUIDED-NISSLE SHIP", "AIRCRAFT CRRRIER" 
!R DESTROVERS! !", "VOUR HEAW CRUISER! !" 
; VOUR DESTROVERS! !", "ONE OF VOUR BATTLESHIPS!!" 
DESTROVER!!","VOUR AIRCRAFT CARRIER!!" 
i CRUISER! !". 'VOUR LflST AIRCRAFT CARRIER! !" 
BATTLESHIP!!" 

iUR FLAGSHIP HAS DETECTED A U-BOAT APPROACHING AT 5 ' 



iftRINE DETECTION EQUIPMENT READS THE RANGE TO THE".: 

ETERS." 

IT HAS. COfflENCED FIRING TORPEDOES AT VOUR SHIPS. " 

I TORPEDO EXPLODED"; UNT(P4)-58); "METERS BEHIND"; 

D " 

iRGE EXPLODED"; ABSCE); "HETERS SHORT OF TARGET. " 

;RGE EXPLODED"; ABS(E); "HETERS AH OF TARGET. ■ 

1 TORPEDO EXPLODED"; CINKPD-50); "HETERS IN" 
VOUR SHIP. " 
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The scene is some time in the near 
future. You and another individual on 
the other side of the planet are the only 
survivors of a total atomic war, (Yes, I 
know it's corny.) This war was fought 
totally with ground based atomic 
missiles. Both you and the surviving 
enemy have found the last missile 
bases left from each side. Fortunately 
(for me anyway), these missile grids 
are made and operated identically. 

Each player moves on and is 
restricted to a 10 by 10 missile matrix. 
Every co-ordinate on the grid cor- 
responds to a mini-missile base. At 
every base, there is a terminal tied into 
the main scanner computer, located 
safely many miles away. From each 
terminal, the player obtains informa- 
tion relevant to the current situation. 
Because of the way the missiles are 
constructed, the area left after lift-off 
is exposed to high doses of raw 
radiation and may not be occupied by 
life. The same is true of an area that has 
been struck by a missile, it is extremely 
lethal and would kill anything entering 
the vicinity. 

Due to the fact that everyone else is 
dead, all machinery must be operated 
manually. This means that the players 
must set the target co-ordinates and 
latch the fuse for the missile to be shot 
off. After that, the players must flee the 
area. This is done in a small shuttle car, 
equipped with sensor devices to avoid 
dangerous areas. But due to its limited 
power reserves, it can go only two units 
in any direction, up, down, ordiagonal- 
ly, and no more or less. The danger 
involved is that while in flight, the 
player is away from a scanner com- 
puter terminal and will not know where 
the enemy missile is aimed to land. 

In the time it takes to move to the new 
base, the missiles will be at the apex of 
their flight above the earth. There the 
computer will give out tracking infor- 
mation as to whether you hit the 
enemy, or he hit you, or both. If the 
missile is coming down to, hit the 
player, there is no escape. The time 
required to recharge the shuttle car is 



longer than the time it takes for the 
missile to hit the ground. If either 
player is unfortunate enough to get 
trapped into a corner, the seeping 
radiation will eventually kill him. 

So it is plainly a game of kill or be 
killed. However, don't be misled into 
thinking that it issimplyagame of luck, 
several different strategies may be 
applied to destroy the enemy. 

Line by line explanation. 

Lines 440-490. I assemble three 
commonly used print strings. S$ 
becomes a string of fourteen spaces. 

Lines 500-530. Here is the dimen- 
sioning of the four matrices, and the 
start-up and circle check data. The 
matrices "I" and "H" stand for player 
and enemy playing fields (I and HE), 
the "T" matrix is a temporary list for use 
by the enemy, and is part of the "smart" 
algorithm. It is loaded up during each 
pass with the possible places he could 
move to, or looking at the possible 
places where the player could move. 
The "P" matrix is filled with the eight 
possible co-ordinates that one may 
move to. I might say here that the 
program may be modified for a longer 
and more challenging game by chang- 
ing the data in line 530. Change all the 
twos to ones and the two players may 
move only one unit away from their 
previous position, instead of the two 
used now. 

Lines 540-730. I set up a random 
number to decide which pair of corner 
co-ordinates the enemy will be started 
in. I then proceed to set the pair from 
550 to 570. I then digress to zero my 
matrices. Picking up where I left off, 
lines 640 to 680 peei away any unused, 
but unwanted data, keying on the 
unique first number of the last pair. 
From there the remaining data is 
dumped into "P." 

Lines 740-820. Make the report that 
the enemy has been "fooling around." 
The starting co-ordinates for the player 
are then obtained and checked. From 
there the valid loop switch is set, a map 
is printed, and the program is thrust 
headlong into the main routine. 



Lines 830-920. Here the co-ordinates 
for the missile and the new spot to sit 
on are obtained and verified of their 
validity. 

Lines 930-1080. "Enemy" decides 
where player might be going from last 
position, and aims his missile in that 
direction. 

Lines 1090-1280. The "enemy" looks 
for place to go. If he has cornered 
himself, say so, prepare him for his 
execution, and make it look like he 
hasn't fired a missile. Otherwise, he 
chooses a new co-ordinate to rest 
upon. 

Lines 1290-1480. Now we move 
everyone around (where we can), and 
start to find out who got who, if anyone 
at all. Then from 1430-1480 there is a 
check to discover whether the player 
has a place to go or not. If not, another 
message is printed and player will die 
quietly after output. 

Lines 1490-1780. Here the printing of 
the two matrices is done. A value of one 
or zero is tested for making the proper 
symbol. After the output is complete 
"Z" is checked to see if anyone died on 
the way. If no one had, return for 
another pass, else terminate the 
program. 

I spent a lot of time debugging this 
program. After I finally got it to work, I 
found that it became somewhat addic- 
tive. The tension does seem to build 
when the game reaches the final 
possible moves. I found there are two 
different useful strategies that may be 
applied. 

My favorite is building a fence around 
the enemy with missile shots. The idea 
is to cut off his movements while trying 
to keep out of his way. The other 
method is the one the enemy uses. 
Here the player shoots at where he 
thinks the opponent may be each time. 
Quite often the game is ended early, 
the odds of being hit become too great. 

Any method you use, or another you 
may think of, will lend long hours of 
enjoyment. Have fun! 

The program and description were 
written by David Spencer. 
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SHOOT 
COPYRIGH ' 1979 CREATIVE COMPUTING MORRISTOWN, NJ 

ola 



DO YOU ED INSTI UCTIONS? VE5. 

_ ola ■ 



SHOOT 

IT IS THE FINRL HOUR OF HUH YOU AND A MARRING NATION 
HAVE ENTERED INT t fl LOST CONTEST. RtL THE LIFE NOW LEFT ON 
EARTH ARE YOU AN > YOUR ENEMY. BOTH HE AND YOU HAVE FOUND THE 
LAST REMAINING ft'ONIC MISSILE SILO MATRICES ESTABLISHED BY 
THE NOH-DEAD SUP [RPOWERS. HE, LIKE YOU, WISHES NOT TO DIE 
BUT TO LIVE IN F MCE. 

HOWEVER IT HAS KOBE APPARENT THAT HE FEELS HIS PEACE 
THREATENED AND I i PREPARING AN ATTACK. BOTH YOU AND HE HAVE 
SCflHWERS THAT HI 1 WARN YOU OF HIS MOVEMENTS AND TRACK THE 
aiGHT OF HIS AT MIC MISSILES, THUS HE IS WORKING SLOWLY. 
THE ENEMY, LIKE TOJRSELF, HAS A MISSILE GRID NEARLY 
IDENTICAL IN STF JCTURE AND OPERATION TO VOURS. 
PRESS ANY KEY TO CONTINUE 



• els ■ 



YOU ARE THE ONU 
ISSILES HANURLU 
AREA AND GET TWi 
THIS SPOT, OR A 
RADIRTIOH IS INT 
DEATH. 

SO THE STAGE HI 
SIGN THAT THE B 
FIRE EVERY TIME 
DESTROYED. 



ONE LEFT, IT HILL BE NECESSARY TO FIRE ALL YOURM 
ONCE THE FUSE IS SET, YOU MUST FLEE THE 

GRID UNITS AWAY. YOU MAY (EVER RETURN TO 
SPOT HHERE A MISSILE HAS LANDED; THE 
ENSE AND WOULD MEAN AN INSTANT, PAINFUL 

5 BEEN SET. THERE IS PEACE UNTIL THE 

EHY HAS MOVED TO HIS MISSILE RANGE. HE WILL 

YOU WILL AND DO SO UNTIL ONE OF YOU IS 

PRESS ANY KEY TO CONTINUE 



cla ■ 



EACH TIME A RO ND OF MISSILES HAS BEEN FIRED, THE 
SCANNERS HILL Rl PORT THE STATUS OF BOTH YOUR'S AND THE ENEMY'S 
GRID TERRITORY. IT WILL SHOW ALL AREAS THAT HAVE HAD EITHER 
A MISSILE HIT : A MISSILE FIRED FROM IT. WITH THIS 
CONTINUALLY UPD .TED MAP, YOU MAY BE ABLE TO INDUCTIVELY 
DISCOVER OR TRA ' YOUR OPPONENT. BEWARE, HE HILL BE TRYING TO 
DO THE SAKE TO WJ. 

PRESS ANY KEY TO CONTINUE 
cla 



YOUR TERRITORY 
12345678918 
i :::::::::: 
2 :::::::::: 



ENEMY TERRITORY 
12345678916 

1 :::::::::: 

2 :::::::::: 



9 :::::::::: 9:::::::::: 
16 :::::::::: 18 :::::::::: 
SCANNER COMPUTE :: ENEMY ACTIVITY ON GRID AT 1 , 10 
YOUR STARTING C KJRDINATES? 3,3. 

C(8 

YOUR TERRITOR 1 ENEMY TERRITORY 
12345678918 12345678918 

1 :::::::::: 1 :::::::::* 



9 :::::::::: 9 ::: 

18 :::::::::: 18 ::: 

MISSILE CO-ORD: NATES? 18,4. 
YOUR STARTING I O-ORDINATES? 3,3 

cla • 



YOUR TERRITOR 
12345678918 
1 :::::::::: 



ENEMY TERRITORY 

12345678918 
1 :::::::::* 



9:::::::::: 9 

10 :::::::::: 18 

MISSILE CO-ORDINATES? 10,4 

WERE TO HOVE '0? 2,5. 



YOUR TERRITORY 


ENEMY TERRITORY 


12345673918 
1 :::::::::: 


12345678910 
1 :::::::::* 



9 :::::::::: 9 

18::::::::: 18 
MISSILE CO-ORDINATES? 18,4 
WHERE TO (OVE TO? 2,5 
WHERE TO MVE TO? 4,1 
WHERE TO MOVE TO? 3,5. 



YOUR TERRITORY 
12345676918 

1 :::::: ::: 

2 :::::: ::: 

3 ::*::: ::: 



ENEMY TERRITORY 
12345678910 

1 :::::::::* 

2 :::::::::: 

3 :::::::::: 

4 :::::::::: 

5 :::::::::: 

6 :::::::::: 

7 :::::::::: 



9 :::::: ::: 
10 ::::::::: 

MISSILE CO-ORDINATES? 6.9- 
HHERET0 1";0VET0?4,1 
KRE TO «ET0?3,5 


9 :::::::::: 
10 :::*:::::: 

- cla 


YOUR TERRITORY 
12345673310 
1 ::::*::::: 


ENEMY TERRITORY 

12345678910 
1 :::::::::* 



3 ::*■*: 

4 :::::: 

5 ::::*: 

6 :::::: 

7 :::::: 



9::::;::::: 9 ::: 
18 ::::::.::: 18 ::: 
MISSILE CO-ORDINATES? 7,4. 
WHERE TO HOVE TO? 5, 7 
cla • 



YOUR TERRITORY 
1234S73918 

1 ::::*::::: 

2 :::::::::: 



ENEMY TERRITORY 
12345678918 



9 :::::::::: 9 

18:::::::::: 19 
MISSILE (O-ORDINATES? 7,4 
WHERE TO ROVE TO? 1,4. 



160 



10 OH ER'OR GOTO 1740: CLS. PRINT9414, 'SHOOT' 

20 PRINT PRINT TABC7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, HJ* 

30 PRINT3960, ""; - INPUT "DO YOU NEED INSTRUCTIONS'; I* 

40 as 

58 IF LEFTKK.DOT GOTO 438 

60 PRINT TAB(29) 'SHOOT"' PRINT 

70 PRINT " IT IS THE FINAL HOUR OF MAN. YOU AND A WARRING NATION" 

88 PRINT "HAVE ENTERED INTO A LAST CONTEST. ALL THE LIFE NOH LEFT ON" 

90 PRINT "EARTH ARE YOU AND YOUR ENEMY. BOTH HE AND YOU HAVE FOUND THE" 

180 PRIKT "LAST REMAINING ATOMIC MISSILE SILO MATRICES ESTABLISHED BY" 

110 PRIHT "THE HOH-OEflD SUPERPOWERS. HE, LIKE YOU, WISHES HOT TO DIE" 

128 PRIHT "BUT TO LIVE IN PEACE ' 



139 PRINT 

140 PRINT " HOWEVER IT HRS BECOME APPARENT THAT HE FEELS HIS PERCE" 
158 PRINT "THREATENED BID IS PREPARING AN ATTACK. BOTH VOU AND HE HAVE' 
160 PRINT "SCANNERS THAT HILL WARN YOU OF HIS MOVEMENTS AND TRACK THE" 
178 PRINT "FLIGHT OF HIS ATOMIC MISSILES, THUS HE IS WORKING SLOHLY. " 
188 PRINT "THE ENEMY, LIKE YOURSELF, HAS A MISSILE GRID NEARLY" 

1S« PRINT "IDENTICAL IN STRUCTURE AND OPERATION TO YOURS. " 

288 PRINT6979, "PRESS ANY KEY TO CONTINUE"! 

216 IF IHKEY$=" THEN 218 ELSE PRINT8128, CHR$<31>; 

228 PRINT "YOU ARE THE ONLY ONE LEFT, IT HILL BE NECESSARY TO FIRE ALL YOUR"; 

238 PRINT "MISSILES MANUALLY. ONCE THE FUSE IS SET, YOU MUST FLEE THE" 

248 PRINT "AREA AND GET TWO GRID UNITS AHAY. YOU MAY NEVER RETURN TO" 

258 PRINT "THIS SPOT, OR A SPOT WHERE A MISSILE HAS LANDED; THE" 

268 PRINT "RADIATION IS INTENSE AND WOULD MEAN RN INSTANT, PAINFUL" 

278 PRINT "DEATH. " 

288 PRINT " SO THE STAGE HAS BEEN SET. THERE IS PEACE UNTIL THE" 

298 PRINT "SIGN THAT THE ENEMY HAS MOVED TO HIS MISSILE RANGE HE WILL" 

308 PRINT "FIRE EVERY TIME YOU HILL, AND DO SO UNTIL ONE OF YOU IS" 

310 PRINT "DESTROYED. " 

320 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

338 IF INKEY*=" THEN 338 ELSE PRINTei28, CHR*(31>; 

346 PRINT " EACH TIME A ROUND OF MISSILES HAS BEEN FIRED, THE" 

358 PRINT "SCANNERS HILL REPORT THE STATUS OF BOTH YOUR'S AND THE ENEMY'S" 

366 PRINT "GRID TERRITORY. IT WILL SHOW ALL AREAS THAT HAVE HAD EITHER" 

378 PRINT "A MISSILE HIT OR A MISSILE FIRED FROM IT. WITH THIS" 

388 PRINT "CONTINUALLY UPDATED HAP, YOU MAY BE ABLE TO INDUCTIVELY" 

398 PRINT "DISCOVER OR TRAP YOUR OPPONENT. BEHARE, HE HILL BE TRYING TO" 

480 PRINT "DO THE SAME TO YOU. " 

418 PRINT8979, "PRESS ANY KEY TO CONTINUE": 

428 IF 1HKEY*="" THEN 426 ELSE CLS 

438 6*=" 12345678916" 

448 M="SCANNER COMPUTER: " 

456 S*=" 

468 FOR X=l TO 14 

478 St=S*+" " 

488 NEXT X 

498 DIM Kie,18),Ha0,18),T(8,2),P(8,2): GOSUB 1478 

588 DATA 18,18 , 1,1 , 18,1 , 1,10 , 18,9 , 9,18 , 1,2 , 2,1 

510 DATA -2,-2 , 0,-2, 2,-2, 2,8 , 2,2 . 8,2 ,-2,2 ,-2,8 

526 R=INT(RND<6)*8+i) 

538 FOR X=l TO R 

540 READ A, B 

558 NEXT X 

560 FOR X=l TO 18 

578 FOR Y=i TO 10 

588 KX,Y)=8 

598H(X,Y>=8 

680 NEXT Y 

618 NEXT X 

628 IF A=2 GOTO 678 

636 FOR X=l TO 8 

640 READ CD 

650 IF C=2 GOTO 678 

668 NEXT X 

678 FOR X=l TO 8 

686 FOR Y=l TO 2 

698 READ P(X,Y) 

788 NEXT Y 

718 NEXT X 

728 PRINT «; "ENEMY ACTIVITY ON GRID AT";A;",";B 

738 INPUT "YOUR STARTING CO-ORDINATES"; E,F 

740 IF E<1 OR D18 OR F<1 OR F>18 GOTO 738 

758 Z=i 

768 KE,F>=1 

778 H<B,8)=i 

788 GOSUB 1478 

798 INPUT "MISSILE CO-ORDINATES"; M, N 

888 IF Ma OR IT>18 OR N<1 OR N>18 GOTO 790 

810 INPUT "WHERE TO MOYE TO";S,T 

328 IF S<1 OR S>18 OR T<1 OR D18 GOTO 818 

838 IF I<S,TM GOTO 818 

840 FOR X=i TO 8 

858 IF P(X,1)+E=S AND P(X,2HF=T GOTO 888 

868NEXTX 

876 GOTO 816 

888 REM 

898 L=l 

988 FOR X=l TO 8 

918 IF P(X,i)+D18 OR P<X,1)+E<1 OR P(X,2)+T018 OR P(X,2MF<1 GOTO 968 

928 IF KP(X,1)+E,P<X,2)+F}=1 GOTO 960 

936 T(L,1)=P(X,1)€ 



940T(L2)=P(X,2)+F 

958 L=L+1 

968 NEXT X 

976 L=L-1 

988 IF LOl GOTO 1626 

998 C=T(L,1) 

1866D=T<L,2> 

1018 GOTO 1856 

1026 G=INT(RND(8)*L+1) 

1030 C=KG,1> 

1848 D=KG,2> 

1058 L=i 

1060 FOR X=i TO 8 

1670 IF P(X,1>+A>10ORP(X,1)+R<1 OR PCX, 2MB>10ORP(X, 2>*B<1 GOTO 1126 

1688 IF H<P<X,l)+H,P<X,2)tB)=i GOTO 1128 

1098 T<Ll)=P<X,i)+A 

1180 T(L,2)=P<X, 2MB 

1118 L=L+1 

1128 NEXT X 

1138 L=L-i 

1148 IF L08 GOTO 1206 

1158 PRINT Cfc'THE ENEMY HAS CORNERED HIMSELF IN!!» 

1160 Z=6 

1170 C=E 

1180 D=F 

1190 GOTO 1278 

1200 IF LOl GOTO 1240 

1218 J=Ttt,l) 

1228K=Ttt,2> 

1230 GOTO 1270 

1240 G=INT(RND(0)«L+1) 

1250 J=T(G,1) 

1266 K=T(G,2) 

1270 KE,F)=i 

1288 H<A,B)=i 

1298 KC,D>=1 

1388 H(M,NM 

1318 IF HOJ OR DOT GOTO 1378 
1320 PRINT W; "HEY! YOU GOT HIM! !" 

1330 2=8 

1346 IF COS OR DOT GOTO 1376 

1358 PRINT C$; "YOU MOVED RIGHT UNDER HIS MISSILE! !" 
1368 Z=8 

1378 E=S 

1388 F=T 

1398 ft=J 

1408 B=K 

1418 FOR X=i TO 8 

1428 IF P(X,i)O160RP<X,l)+E<l OR P<X, 2)+R160RP(X, 2MF<1 GOTO 1446 

1438 IF KP<X,1)+E,P<X,2)+F)=6 GOSUB 1470: GOTO 798 

1448 NEXT X 

1450 PRINT »; "FOOL! YOU HAVE BOXED YOURSELF INTO A CORNER! !" 

1468 2=8 

1478 PRINT88, " YOUR TERRITORY ", STRIN6»(3, 8); "ENEMY TERRITORY" 

I486 PRINT Gf; St; G$ 

1490 FOR X=i TO 16 

1566 IF X=16 GOTO 1538 

1516 PRINT X; 

1556 GOTO 1546 

1538 PRINT "16 "; 

1548 FOR Y=i TO 16 

1556 IF KX,Y)=1 GOTO 1588 

1568 PRINT «••; 

1578 GOTO 1596 

1580 PRINT ■*■; 

1590 NEXT Y 

1666 PRINT " ";»; 

1618 IF X=18 GOTO 1648 

1626 PRINT & 

1638 GOTO 1658 

1648 PRINT "18 "; 

1658 FOR Y=l TO 18 

1660 IF H(X,Y>=1 GOTO 1696 

1678 PRINT "•"; 

1688 GOTO 1786 

1698 PRINT "*'; 

1768 NEXT Y 

1716 PRINT 

1728 NEXT X 

1738 RETURN 

1748 END 
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This game is a one-lap jalopy race. 
There is on ; big problem: you don't 
know the srape of the course or the 
safe speed with which you can go 
around the corners. Consequently 
you're likelv to smash up fairly fre- 
quently or else go so. slowly that you 
don't earn e good placing among the 
winners. However, after four or five 
plays of the ( jame you'll begin to get the 
hang of it end you'll be able to whip 
around the course in grand fashion. 
The instructions in the program are 
quite detailed. Have fun! 

SMASH 
COPVRIGHT 19; 3 CRERTIVE COMPUTING HORRISTOUH, NJ 

0l3 : 



00 YOU NEED INSTRUC IONS? YES. 
els • 



SMASH 
THIS IS SMASH - THI GAME THHT SIMULATES R CAR RflCE. 

VOU HILL RESPOND HI' H ONE OF THE FOLLOWING MANEUVERS 
HHBI fl ">' IS TYPED. THE POSITION NUMBERS REFER TO THE 
POINT AT WHICH VOU I RE OH THE TRACK - THEV GO AS FOLLOWS: 



1 - THE START LIN 

2 - HID STRAIGHT- NAY 

3 - COMING UP ON LEFT TURN 

4 - HID LEFT TURN 

5 - COMING LP ON i RIGHT TURN 

6 - MID-RIGHT TUR I 

7 - THE FINISH LI £ 

RESS RNV KEY TO CONTINUE 
. els 



MANEUVERS 

i - FLOOR IT 

2 - ACCELERATE <f 1DERATE) 

3 - BRAKE SLIGHT 

4 - JAM Oil THE BF MS 

5 - SHARP RIGHT 

6 - MODERATE RIG! I 

7 - SHARP LEFT 

6 - MODERATE LEF 

PRESS ANY KEY TO CONTINUE 
els 



THE 



36 

60 

90 

120 

158 



MILES ' D GO 

12 
1177:5 

It 35' 5 
11 81i 1 
18. 74' 8 
3.688 1 



POSITION 



27.2 
49.9 
48.9625 
32 4422 
126. 827 
SHHSH - YOU WENT I IGHT INTO THE HALL! 



MOVE 

'1 
'2 

?3 
">i 
-, 2 



DO VOU HHNT TO PUT AGAIN? YES. 

els — 

TIME MILES GO HPH POSITION 

8 11 8 1 

30 18.77 7 27.4 5 

60 9. 989 .7 103. 5 6 

SPflSH - YOU WENT IIGHT INTO THE HALL! 

00 YOU WANT TO PLA ' AGAIN? YES. 

Cl3 



HOVE 

■>1 
•>1 

■> 1 



TIME 


MILES TO GO 


MPH 
8 


POSITION 


MOVE 


8 


12 


1 


?1 


36 


11.7675 


27.9 


6 


, 2 


68 


113163 


54.15 


5 


■>2 


98 


18.5719 


89.325 


6 


■>6 


128 


9.75155 


98.4389 


5 


?6 


156 


8.88295 


184.232 


6 


•>% 


188 


7. 49986 


167.147 


5 


?3 


218 


6.38128 


142 654 


6 


'8 


BAD MOVE' 











SMASH - VOU HENT RIGHT INTO THE HALL! 



DO YOU HUNT TO PLAY AGAIN? NO. 



'YOU HILL RESPOND KITH ONE OF THE FOLLOWING MANEUVERS" 
"WHEN A ">' IS TYPED. THE POSITION NUMBERS REFER TO THE" 
"POINT AT HHICH YOU ARE ON THE TRACK - THEV GO AS FOLLOWS:' 



18CLS 

28 PRINT 8 413, "SMASH- 
IS PRINT 

48 PRINT TBB(7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 
58 PRINT ? 966, "; 

68 INPUT "DO YOU NEED INSTRUCTIONS"; » 
76 DIM H(7), J(6) 
86 FOR *,< TO 7 
96 READ AOO 
186 NEXT X 
118 FOR X=l TO 6 
128 READ J(X) 
138 NEXT X 

146 IF LEFTKW, 1)="N" THEN CLS. GOTO 476 
158 CIS 

166 PRII.T TAB<29); "SMASH" 
176 PRINT 

186 PRIM "THIS IS SMASH - THE GAME THAT SIMULATES A CAR RACE * 
198 PRIM 
288 PRIM 
218 PRIKT 
226 PRIM 
238 PRIM 
248 PRIM 
256 PRIM 
268 PRIM 
278 PRIM 
288 PRINT 
296 PRINT * S - 
388 PRIM ■ 7 - 
316 PRIM t 979, 
328 IF :NKEW =* 
338 PRINT 
348 PRIM 
356 PRIM 
368 PRIM 
376 PRINT 
386 PRINT 
396 PRINT 
468 PRMT 
416 PRINT 
426 PRINT 
438 PRINT " 8 - 
446 PRINT 6 979, 
458 IF INKEY* =" 
468 CLS 

476 as 

488 PRITF 6 128, 

498 G0SJ8 516 

568 GOT] 616 

516 LB=PEEK(16416) 

526 HB=?EEK<1G417> 

538 PRINT CHMC28); 

546 PRINT "TIME";TABa2); "BILES TO GO" 

558 PRINT "POSITION"; TA6<55); "MOVE" 



THE START LINE" 
MID STRAIGHT-AHAV" 
COMING UP ON A LEFT TURN" 
MID LEFT TURN* 
COMING UP ON A RIGHT TURN" 
MID-RIGHT TURN" 
THE FINISH LINE" 
■PRESS ANY KEY TO CONTINUE"; 
" THEN 326 
S 128, CHJ»<3i) 
MANEUVERS" 



1 - FLOOR IT" 

2 - ACCELERATE (MODERATE)" 

3 - BRAKE SLIGHT" 

4 - JAM ON THE BRAKES" 

5 - SHARP RIGHT" 

6 - MODERATE RIGHT" 

7 -SHARP LEFT" 

8 - MODERATE LEFT- 
PRESS ANY KEY TO CONTINUE"; 
THEN 458 



CHR$(31); 



TA8<38);"HPH";TAB(48>; 



568 PRINT " ";TAB(i2>;" — 

578 PRINT " ";TAB(55); 

588 P»E 16416, LB 

598 PC*E 16417, HB 

688 RETURN 

616 LET A=INT<18+RND(6>«5) 

628 V=fi 

639 LFJ 8=8 



■";TAB<38>;"— ";TAB<48>; 
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649 T=8 

658LETC=1 

668 GOTO 688 

670 LET C=< INT(2+RND<e)*5)) 

680 PRINT T; TRB<12); Rj TRB(38)i Bi TR8<42); C, TRB(55)i 

638 INPUT D 

700 GOSUB 518 

710 IF DOINT(D) THEN 740 

728 IF D>8 THEN 748 

738 IF DM THEN 760 

740 PRINT "ONE THRU EIGHT ONLY. " 

759 GOTO 688 

768 IF DOi THEN 788 

778 LET B=3*8+20+INT<18+RHD(0)*Sl>/ie 

780 IF D02 THEN 800 

799 LET B=3*B/2+7+INT(10tRND<0)*61)/16 

888 IF D03 THEN 828 

818 LET E=7*B/8-6+INT<10+RND<0)*41)/10 

828 IF D04 THEN 840 

838 LET B=4*B/7-26+INT(10+RNt)(8)*8i)/ie 

848 IF D=7 THEN 868 

858 IF DOS THEN 870 

860 LET 8=3*B/19»<. 7+RNK9)* 6) 

870 IF D=8 THEN 890 

888 IF 0O6 THEN 980 

899 LET B=13*B/14*(. 7+RHDffl)*. 6) 

988 IF B>8 THEN 928 

918 LET E=8 

920 IF fl-B/120>0 THEN 1818 

338 LET T=T+R*3609/B 

940 PRINT CHR$<27>; T; TflB(12); 8; TRB(30)i B; TRBC42); 7 

958 PRINT 

968 PRINPTHHT ENDS THE RACE YOU PLRCED »" 1NT(T/<20*YR 5) 

970 PRINT "YOUR flYERRGE SPEED MRS" Y*3600/T«ll P. H. " 



980 IF INT<TA20*Y)+.5)O1 THEN 1268 

990 PRINT'THHT MRS fl PERFECT RACE, CHUMP'" 

1808 GOTO 1268 

1810 IF C<>2 THEN 1040 

1820 IF 0=7 THEN 1240 

1838 IF D=5 THEN 1240 

1048 IF C=3 THEN I860 

1850 IF CC4 THEN 1888 

1868 IF D=5 THEN 1248 

1878 IF D=6 THEN 1248 

1888 IF C=6 THEN 1190 

1699 IF COS THEN 1120 

1108 IF D=7 THEN 1246 

U18 IF D=8 THEN 1240 

1128 IF BXKC) THEN 1258 

1138 IF INT(1+RND(0)*77)O46 THEN 1168 

1140 PRINT "SHRSH - YOU HAVE BEEN HIT BY RNQTHER CfiR! !" 

1150 GOTO 1268 

1160 LET M+38 

1178 LET ft=fl-B/128 

1189 IF C=i THEN 678 

1190 IF C=4 THEN 670 
1288 IF C=2 THEN 678 
1210 IF C=6 THEN 678 
1228 LET C=C+1 

1238 GOTO 680 

1248 PRINT-BUD HOVE!" 

1250 PRINT "SHUSH - YOU WENT RIGHT INTO THE Ml!" 

1260 PRINT 

1270 PRINT'DO YOU HUNT TO PLflY RGRIH"; 

1288 GOSUB 510 

1238 INPUT 2* 

1300 IF LEFWZt, i)="Y" THEN 478 

1318 DRTfl 2, 3, 5, 2, 3, 5, 2, 288, 246, 180, 178, 188, 170 

1320 END 
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y&m. 



This is 
the numbe 
of dice. F 
random nu 
you must ' 
total of yo 
win you i 
board nurr 
must remo 
roll from tr 

One si 
largest nu 
roll, or yo 
numbers i 
the roll is 
remove th< 
the 1 and £ 

You m 
lion and [ 
rolls. The 
remove all 
loses. 

Strike 
Grembows 
Creative C 

Becaus 
graphics i 
printer, th( 
a little coi 
(.) you see 
1-9 repres 
or pixels, 
number, i 
screen. 



a simple game based on 
rs 1 through 9, and a pair 
rst, the computer rolls a 
Tiber for your "dice." Then 
ake that number from the 
jr board numbers 1-9. To 
nust remove all of your 
bers. With each roll you 
/e the total number of that 
e board or you lose, 
rategy is to remove the 
nbers possible with each 
j can try to get the most 
emoved. For example, if 
10, you might want to 
j 1, 2, 3 and 4 instead of 

jy want to have competi- 
ilayers can alternate with 
n the player who can't 
numbers from his/her roll 

) was conceived by Bruce 
ki and first appeared in 
imputing, Jan/Feb 1977. 
e of the way TRS-80 
ire represented on a line 
) sample run shown here is 
ifusing. All those periods 
are actually the numbers 
anted by graphics blocks, 
Every time you remove a 
: will be erased from the 



STRIKE S 



VOJR ROLL IS 7. 

8 OF IWIBERS TO REMOVE? 2 

HHTT ARE THE NUMBERS 



■ CIS • 



STOKE ! 



I'M ROLL IS ?. 

* OF NUMBERS TO RENOVE? 2 

HOT RRE TIC NUMBERS 



STRIKES 
COPYRIGHT 1973 REHTIVE COMPUTING NORRISTOHN, NJ 



STRIKE ! 



I YOU NEED INST iUCTIOHS? YES. 



YOUR ROLL IS 6. 
\ OF NUMBERS TO REMOVE? i 
IIHflT IS THE NUMBER 
" 6. 



STRIKES 



STRIKE NINE IS PLRYEB WITH A FAIR OF DICE AND ft 
BOARD WITH NINE NUMBERS. 12 3 4 5 6 7 8 9. YOU 
RRE GIVEN ft ROU AND CRN KNOCK OFF UP TO 4 NUMBERS. 

NEXT YOU II PUT HON MANY NUMBERS YOU HUNT 
TO REHOVE, AND HEN INPUT THE NUMBERS YOU WANT TO 
TAKE OFF, ONE R A TIME. THE NUMBERS YOU TAKE OFF 
MUST HDD UP TO " HE ROLL YOU KIN BY REMOVING EVERY 
NUMBER FROM THE BOARD. YOU LOSE IF YOU CANNOT 
REMOVE RLL NUMB RS HITH THE ROLL YOU HAVE 



STRIKE 9 



PRESS ANY KEY TO CONTINUE 
CIS 



'■'OUR ROLL IS 4. 

SORRV, YOU LOST THIS TIME 

THERE ARE 6 NUMBERS LEFT ON THE BOARD: 

■TRHT TO TRY BOTH <YES OR NO)? NO. 



12 5 7 
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18 as 

28 ttERR 1888 

38 PRINT 8 412, "STRIKE 9" 

46 PRINT 

50 PRINT TAB(7)"C0PVRIGHT 1379 CREATIVE COMPUTING MORRISTOUH NJ" 

68 prints gee,""; 

78 INPUT"00 VOU HEED INSTRUCTIONS"; IJ 

88 DM R<12), 0(4) 

98 IF LEFWIJ, 1)="N" THEN 248 

163 CLS 

110 PRINT TBB(28) "STRIKE 9" 

128 PRINT 

138 PRINT" STRIKE NINE IS PLRVED WITH A PfllR OF DICE RND A" 

148 PRIHT-BORRD WITH NINE NUMBERS: 12 3 4 5 6 7 8 9. VOU" 

158 PRINTRRE GIVBI ft ROLL BND CAN KNOCK OFF UP TO 4 NUMBERS. " 

168 PRINT" NEXT VOU INPUT MM MAHV NUMBERS VOU NANT" 

178 PRINPTO REMOVE, AND THEN INPUT THE NUMBERS VOU HUNT TO " 

188 PRINT'TAKE OFF, ONE AT A TIME. THE NUMBERS VOU TAKE OFF" 

198 PRINT'KUST ADO UP TO THE ROLL VOU HIN BV REMOVING EVERV" 

288 PRINTHUMBER FROM THE BOARD. VOU LOSE IF VOU CANNOT" 

218 PRINTRENOVE ALL HUHBERS WITH THE ROLL VOU HAVE " 

228 PRINT 8 979, "PRESS ANV KEV TO CONTINUE"; 

238 IF IHKEV* =" THEN 238 

248 CLS 

258 FOR A=l TO 9 

268 A(A)=fl 

278 NEXT fl 

288 FOR A=i TO 67 

298 READ V 

388 PRINT CHR«168+V); 

318 NEXT A 

328 PRINT 

336 FOR A=l TO 57 

348 READ V 

358 PRINT CHR«188+V); 

368 NEXT 

378 PRINT 8 256, "STRIKE 9"; 

388 PRINT 8 384, STRING$(64, 143) 

398 FOR R=i TO 5 

488 READ Q(A) 

416 NEXT A 



428C=INT(RND<8)*6+i)+INT(RND(8)*6+i) 

438 PRINT 8 512, "VGUR ROLL IS";C, CHR«8); " " CHR*(3i) 

448 T=8 

458 n=e 

468 FOR X=i TO 9 

478 T=T+R(X) 

480 TT=n-(A(X)O0) 

498 NEXT X 

588 IF OT THEN 1818 

518 IF C=T THEN 1188 

528 IF A(C)=C THEN 636 

538 IF CG OR TT=4 THEN 1618 

548 FOR R=i TO C-l 

556 IF fi(ft>=6 OR A(C-A(A))=8 OR 0=2*A THEN NEXT A ELSE 638 

568 IF TT=2 OR C<6 THEN 1618 

578 FOR A=l TO C-5 

588 FOR B=fl+i TO C-4 

598 IF fi(A)=8 OR A(B>=8 THEN 628 

688 X=C-fl-B 

618 IF X=ft OR X=B OR B<X)=8 THEN 626 ELSE 638 

620 NEXT B, A 

638 FOR X=l TO 4 

646 D(X)=6 

656 HEXTX 

668 PRINT"* OF NUMBERS TO REMOVE"! 

678 INPUT E 

688 IF INT(E)OE THEN 728 

698 IF E<1 THEN 728 

788 IF D4 THEN 668 

718 GOTO 748 

726 PRINT'ANSNER 1 2, 3 OR 4 <5 FOR THE BOARD). * 

736 GOTO 666 

746 IF E=i THEN PRIHTMHAT IS THE NUMBER" : ELSE PRINTHHAT ARE THE NUMBERS"; 

758 FOR F=i TO E 

768 PRINT 8 784, CHRtGi); 

778 INPUT 0(F) 

786 IF fl(0(F))O8 THEN 816 

798 PRIHT"VOU REMOVED IT BEFORE TRV AGAIN. " 

888 GOTO 660 

818 IF D(F)>5 THEN 00=3 ELSE 00=8 
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\jD»liJldQl!JtiJ<S) 



Tennis is, as 
tennis match. I 
several options 
position on the 
play from, the p 
that you're tryin 
type of shot. As 
don't always ma 
for. The prograr 
less, at the inte 
think that it alio 
or too poorly, yc 
some of the 
determine how 

Tennis was 
Nahigian and D 



its name implies, a 
i this game you have 
available to you as the 
;ourt that you wish to 
lacement of your shot 
g for, and the speed or 

in normal tennis, you 
<e the shot that you try 
1 lets you play, more or 
rmediate level. If you 
vs you to play too well 
u could always change 
random factors that 
Dften a shot is missed, 
written by Victor 
avid Ahl. 

TENNIS HATCH 



COPYRIGHT : 973 CREATIVE CONFUTING MORRISTOHft NJ 
DO YOU l£ED INSTRUCTIONS YES. 

Cl8 

THERE HE SEVERAL OPT 96 RVBILflBLE TO YOU fiS TO POSITION, 
PLACEMENT OF SHOT, AM) S EED (TYPE) OF SHOT. THE KEY THAT 
YOU MILL USE IS... 

POSITION (PLACEMENT, TOO): LBACKCOURT (1); RBACK- 
COURT (2); L FORECI URT <3>; R. FORECOURT (4). 

, , cl3 

SPEED (TYPE) OF SHO : FHST-SLAH <S>; aOH-408 (L). 



BACKHRNDS M) FOREMAN 
SHOOT FROH R CERTAIN SEC 

ON SERYES, TO CANNOT 

HILL BE ABLE TO ALTER TH 

NILL BE ALLOWED TO SERVE 

PRESS i 

HERE HE GO 

SERVE IS BAD. 
SERVE AGAIN! TYPE ?S 
SERVE HAS BEEN RETURNED. 
KHHT IS YOUR P 
HHAT TYPE OF S 
mm PART Of T 
YOURRETU 
HIT INTO 
SCORE: 
PRESS 



S HILL SERELY BE ASSUte AS YOU 
ION OF THE COURT. 
HAVE PLACEMENT OPTIONS, BUT YOU 
SPEED OF IT. BY THE HAY, YOU 
FIRST IN ALL GAMES. 
NY KEY TO CONTINUE 
els 



HERE HE GO 

SERVE HAS BEEN RETURNED. 

WAT IS YOURPE 

NICE TRY - YOU MERE UK* 

SCORE: I 

PRESS 



SITION ? 1 

BT ARE YOU HAKING ?S 

E COURT ARE YOU AIMING FOR ? 3 

II IS BAD... 

ET. 

LOVE -15 

ANY KEY TO CONTINUE 

— els 



moN •> i 

£ TO REACH THAT SHOT - 

3YE-38 

ANY KEY TO CONTINUE 

— els 



COURT J4 



HERE HEM 

SERVE IS BAD. 

SERVE AGAIN! TYPE ?S 

SERVE IS BAD. . . DOUBLE F IULT! 

SCORE: LOVE - 49 

PRES: ANY KEY TO CONTINUE 
els 



SERVE HAS BEEN RETURNED. 

HHAT IS YOUR POSITION ? 2 

IMAT TYPE OF SHOT ARE YC J HAKING ?1 

WAT PART OF THE COURT f « YOU AIMING FOR ' 2 

VOLS RETURN IS GOOt ! 

COIfUTER'S RETURN : 5 GOOD! 

PRES! ANY KEY TO CONTINUE 
els 



SERVE HAS BEEN RETURNED. . . 
HHAT IS YOUR POSITION ' 3 
KHAT TYPE OF SHOT ARE Y U HAKING U 
WAT PART OF THE COURT RE YOU AIHING FOR ? 2 
YOUR RETURN IS GOO >' 



NICE SHOT- THE COMPUTER COULDN'T REACH IT. 
SCORE: 15 - 15 

PRESS ANY KEY TO CONTINUE 
els 



SERVE HAS 
HHAT IS ' 
HHATTYPi: 
HHAT PAR' 
YOUf 
COff 



KEN RETURNED... 
OUR POSITION ? 3 

OF SHOT ARE YOU MAKING 71 

OF TSE COURT ARE YOU DIKING FOR ? 3 
: RETURN IS GOOD! 
(ITER'S RETURN IS GOOD! 

PRESS ANY KEY TO CONTINUE 
els 



SERVE HAS BEEN RETURNED... 
HOT IS YOUR POSITION ? 2 
HHAT TYPE. OF SHOT ARE YOU MAKING ?i 
WHAT PART OF THE COURT ARE YOU AIHING FOR ? 3 
YOU!: RETIRN IS GOOD! 
CCffiUTER'S RETURN IS GOOD! 

PRESS ANY KEY TO CONTINUE 
els 



SERVE HA!; BEEN RETURNED. . . 

iHAT IS YOUR POSITION ? 2 
NICE TRY - YOU HERE UNABLE TO RERCH THAT SHOT - COURT i 3 
SCORE: io-38 

PRESS ANY KEY TO CONTINUE 
els 



SERVE IS GOOD. . . ACE! ! 
SCOlt: DEUCE 

PRESS ANY KEY TO CONTINUE 

els 



SERVE IS 3AD. 

SERVE ROBIN! TYPE ?L 

SERVE IS BAD... DOUBLE FAULT! 

SCORE: ADD OUT 

PRESS ANY KEY TO CONTINUE 



SERVE IS GOOD... CAN'' 
SCORE: 



RETURN IT! 
DEUCE 



PRESS ANY KEY TO CONTINUE 
els 



SEKYE IS IM). 

SERVE AGfllH! TYPE ?S 

SERYE IS BAD... DOUBLE FAULT! 

SCORE: RDDOUT 

PRESS ANY KEY TO CONTINUE 
els 



SERVE IS BAD. 
SERVE AGlIN! TYPE 7L 
SERVE 15 GOOD... CAN'T RETURN IT!! 
SCORE: DEUCE 

PRESS AW KEY TO CONTINUE 
els 



SERVE IS BAD. 
SERVE AGMN! TYPE ?L 
SERVE IS GOOD... CAN'T RETURN IT!! 
SCORE: ADD IN 

PRESS BHY KEY TO CONTINUE 
, els 



SERVE HFS BEEN RETURNED. . 



HHAT IS YOUR POSITION "> 2 
HHAT TYPE OF SHOT ARE YOU HAKING 7i 
IKflT PART OF THE COURT ARE YOU AIHING FOR ' 1 
YOUR RETURN IS HMD! 
COMPUTER'S RETURN IS GOOD! 

PRESS ANY KEY TO CONTINUE 
els 



SERVE HAS BEEN RETURNED. . 



HfflT IS YOUR POSITION ? 3 
NICE TRY - YOU ICRE UNABLE TO REACH TWIT SHOT ■ 
SCORE: DEUCE 

PRESS ANY KEY TO CONTINUE 

_ els 



COURT # 2 



leas 

28PRINI 8 410, "TENNIS MATCH- 
SO PRINT 
48 PRINT TR8(?)'C0PYRIGHT 1379 CREATIVE CONFUTING MORRISTCWt, NJ" 

58 PRIH1 8 968, "i 
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68 INPUT'DO VOU NEED INSTRUCTIONS"; It 

78 IF LEFTtUt, 1)="N" THEN 268 

88 OS 

98 PRINT TflBO); "THERE ARE SEVERAL OPTIONS AVAILABLE TO VOU RS TO POSITION, ■ 

188 PRINTPLRCEHEHT OF SHOT, flO SPEED (TYPE) OF SHOT. THE KEV THAT" 

116 PRINT "VOU HILL USE IS..." 

128 PRINT 

138 PRINT TRB(5)"P0SITI0N (PLACEfENT, TOO): LBfiCKCOURT (1); R.BRCK-" 

148 PRINT TABC5); "COURT (2); L FORECOURT (3); R FORECOURT (4). " 

158 PRINT 

168 PRINT TAB(5)"5PEED (TYPE) OF SHOT: FAST-SLflfl (S)i SLOH-LOB (L). " 

178 PRINT 

188 PRINT TflBO>"BflCKHflHDS RW> FOREHANDS HILL KERELY BE ASSUtQ AS YOU ■ 

1S6 PRINT "SHOOT FROH R CERTAIN SECTION OF THE COURT. " 

288 PRINT TABC3) "ON SERVES, VOU CANNOT HRVE PLflCEMENT OPTIONS, BUT VOU" 

218 PRINT "HILL BE ABLE TO ALTER THE SPEED OF IT. BV THE HRY, YOU" 

228 PRINT "HILL BE AUOHED TO SERVE FIRST IN ALL GAHES. " 

238 PRINT 

248 PRINT 8 979, "PRESS ANV KEV TO CONTINUE"; 

258 IF IfKEYt =■■ THEN 258 

268 CLS 

278 PRIHT'HERE HE GO " 

288 Y=8 

298 Z=8 

388 PRINT 8 64," SERVE! TYPE ?";CHRt<95>; CHRtGi); 

318 Rt=IRKEV* 

328At=IKKEYt 

338 IF «=" THEN 328 

348 PRINT CKRt<8>; M; 

358 IF MOV AND ISO'S" THEN PRINT: PRINT'L' OR 'S' ■• GOTO 1488 

268 A=168*RND(8) 

378 PRINT 8 128, CKRtGl); 

388 PRINT 8 64, ""; 

398 IF f»="L" THEN 588 

488 C=6 

416D=5i 

428 IF A<C THEN 468 

438 IF RXD THEN 728 

448 PRINT-SERVE IS BAD. ";CHRt<31> 

458 GOTO 538 

468 PRINT-LET SERVE.. TAKE Z 

478 FOR 19=4 TO 588 

483 NEXT 

498 GOTO 388 

588 C=4 

51BD=56 

528 GOTO 428 

538 PRINT 8 128, "SERVE AGAIN! TYPE '"iCHRJ(95)Ctf»(31)i 

548Bt=INKEY$ 

558 Bt=IKKEYt 

568 IF Bt=" THEN 558 

578 PRINT CBRt(8); Bt 

588 IF BtO'L" MB BtO'S" THEN PRINT" 'L' OR '%'. ": GOTO 538 

598 E=168*RND(8> 

688 IF Bt=V THEN 698 

616 G=5 

626H=41 

638 IF E<G THEN 678 

648 IF E<H THEN 726 

658 PR1NTSERYE IS BAD... DOUBLE FAULT!" 

668 GOTO 1438 

678 PRINT'LET SERVE... TAKE 1 ■ 

688 l»T0 538 

698 G=3 

788H=76 

718 GOTO 638 

728 M88 * mm 

738 IF I>6 THEN 768 

748 PRINT TR8(18)i "SERVE IS GOOD... ACE!!" 

758 GOTO 1418 

768 K=188*RND (6) 

778 IF At=V THEN 838 

788 IF Bt="L" THEN 838 

798N=Si 

688 IF KOI THEN 858 

818 PRINT" SERVE IS GOOD... CAN'T RETURN IT!!" 

828 GOTO 1418 

838N=76 

848 GOTO 888 

858 PRINT'SERYE HAS BEEN RETURNED. .. ■ 

868 0=IHT <4*RND<e»+l 

878 PRINT 8 256, CHRK31); 

886 PRINT TR3<16>;"HHAT IS YOUR POSITION ?";CHRt<95); 

898 8t=IKKEYt 

968 8$=IK<EY$ 

918 IF 0*=" THEN 968 

928Q=VAL<St> 

938 IF 0=8 THEN 988 

948 PRINT CKRt(B); Q 

958 IF 0*5 THEN 1388 

968 PRINT 8 338, CKRtGD'HHAT TVPE OF SHOT ARE VOU HfflCING " ORt<95); 

970 C*=INKEW 

988Ct=IRKEYt 

998 IF Ct=" THEN 988 
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1888 PRINT CH»<8)Ct 

1818 PRINT 8 394, CH»G1)"RHAT PART OF THE COURT RRE VOU AIHING FOR '" CKRt<95>; 

1828 Rt=IKKEY$ 

1838 Rt=INKEYt 

1848 IF Rt=" THEN 1838 

1858 R=YRL<Rt) 

1968 PRINT CKRt(8)R 

1878 S=1W*RND(8) 

1888 IF OV THEN 1118 

1898 IF S<81 THEN 1198 

1188 GOTO 1128 

1118 IF SOI THEN 1198 

1128 IH*RND<8> 

1138 PRINT TRB(15)i "YOUR RETURN IS BAD. . . " 

1148 IF 1X2 THEN 1178 

1158 PRINT TRB(15);"HIT OUT-OF-BOUKDS. " 

1168 GOTO 1438 

1178 PRINT Tft3(15)i"HIT INTO MET. " 

1188 GOTO 1438 

1138 PRINT TBB<15);"V0UR RETURN IS GOOD!" 

1288 A1=IHT(4*RHX8» 

1218 IF R+M=5 THEN 1488 

1228 H=i8B«RND<e> 

1238 IF C*=V THEN 1248 

1248 IF IK84 THEN 1348 

1258 GOTO 1278 

1268 IF HC84 THEN 1348 

1278 Ci=4*RHXB) 

1288 PRINT TAB<15);"C0HPUTER'S RETURN IS BAD. " 

1298 IF B<2 THEN 1326 

1388 PRINT TAB(15);"HIT OUT-OF-BOUKDS. " 

1318 GOTO 1416 

1328 PRINT TAB(15)i"HIT INTO NET. " 

1336 GOTO 1418 

1348 PRINT TAB(15)i"CCtffUTER'S RETURN IS GOOD!" 

1358 PRINT 

1368 PRINT TR8<19>"PRES5 ANY KEY TO CONTINUE"; 

1378 IF IKKEYJ =" THEN 1378 ELSE 868 

1388 PRINT" NICE TRY - VOU HERE UNABLE TO RERCH TKRT SHOT - COURT «" 

1398 GOTO 1438 

1488 PRINT" NICE SHOT- THE COMPUTER COULDN'T RERCH IT. " 

1416 Y=Y+1 

1428 GOTO 1448 

1438 Z=2+l 

1448 GOSUB 1778 

1458 PRINT TAB(15>; "SCORE: "St 

1468 IF V>=4 AND Y>Z+i THEN 1516 

1478 IF Z>=4 AND Z>Y+1 THEN 1538 

1488 PRINT 

1498 PRINT TRB(13)"PRE5S ANV KEY TO CONTINUE"; 

1588 IF IHKEYt ="" THEN 1588 ELSE 388 

1518 Yl=Yi+l 

1528 GOTO 1548 

1538 Zi=Zl+l 

1548 PRINT 

1558 PRINT" GABE OVER " 

1568 PRINT 

1578 Y=6 

1588 2=8 

1598 PRINT TABU5); "SCORE-fiftJE: VOU. . . HE" 

1688 PRINT TAB(32); VI; ■ ";21 

1618 FOR R=l TO 1883 

1628 NEXT 

1636 as 

1648 IF VD=6 Ml Yl>21+1 THEN 1678 

1658 IF Zl>=6 AND ZOVl+i THEN 1788 

1668 GOTO 1488 

1676 PRINT 

1688 PRINT "***** CONGRATULATIONS. . . VOU HON *****" 

1698 SOTO 1726 

1768 PRINT 

1716 PRINT "***** RS PREDICTED, THE COPUTER IS AGAIN TRIUKPKANT! «***" 

1728 PRINT 

1736 PRINT" I'D LIKE TO PLAY VOU AGAIN SOKETIKE, BUT RIGHT NOH, I" 

1748 PRINT "HAVE TO REST BYE!!!" 

1758 PRINT 

1768 END 

1776 IF Y>=2 AM) Z>=2 THEN 1896 

1788 IF Y=4 OR Z=4 THEN St="GRJ£": GOTO 1938 

1798 IF V=8 THEN Yt=10VE - " 

1888 IF Y=i THEN Yt="15 - ■ 

1816 IF V=2 THEN Yt="38 - " 

1826 IF Y=3 THEN Vt="46 - " 

1838 IF 2=6 THEN Zt="LOVE" 

1848 IF Z=l THEN Zt="15" 

1858 IF Z=2 THEN Zt="38" 

1868 IF Z=3 THEN Zt="46" 

1878 St=Vt+Zt 

1888 GOTO 1938 

1896 IF V=Z THEN St="DEUCE": GOTO 1938 

1988 IF Y=Z+1 THEN St="RDD IN ■• GOTO 1938 

1916 IF Y=Z-1 THEN St="ADD OUT"' GOTO 1938 

1928 IF V=Z+2 OR Z=Y+2 THEN St="GAK" 

1938 RETURN 
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fldfertiape 




The operation of tr 
fairly straightforward, 
character is converted 
equivalent to its place i 
(A = 1, B = 2, Z = 26, I 
simple table look-up is 
find the correct numb 
onto the tape. These 
stored in the DATA stal 

Written by Bill Gai 
Larus, Tickertape first 
Creative Computing, M 

This program uses 
ics which do not reproi 
line printer. Therefore t 
does not give a true rep 
the program. The 01 
program can be truly i 
to run it. 



is program is 
After each 
to a number 
i the alphabet 
Space = 27), a 
performed to 
ers to punch 
numbers are 
sments. 
dner and Jim 
appeared in 
ay/June 1977. 
fRS-80 graph- 
luce well on a 
le sample run 
resentation of 
ily way this 
ippreciated is 
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le as 

20 PRINT 410, "TICKERTAPE" 

20 PRINT 

40 PRINT TRB<7)"C0PVRIGHT 1979 CREATIVE COfPUTING HORRISTCm NJ" 

50 PRINT 8 968,""; 

60 INPUT-PRESS ENTER TO START"; 1$ 

70 OS 

80 CLEAR 1000 

98 MV*=STRING*<26, 32) 

100 FOR R=l TO 26 

110 RERD y 

120 HID*<MV$, a 1)=CHR$(Y) 

130 NEXT fl 

140 POKE 16526, PEEK<VARPTR<HV$>+1) 

150 POKE 16527, PEEK(VflRPTR<HY*)+2) 

168 IF PEEK<16548>=186 THEN DEF USR 8=PEEK(16526)+PEEK<16527)*256+2[16*< PEEK < 16527 »127> 

170 DM LT<27, 3, 5) 

180 FOR R=d TO 27 

190 FOR B=l TO 3 

200 FOR C=l TO 5 

210 RERD V 

220 LT<fl, B, C)=Y+188 

230 NEXT C, B, R 

248 GOTO 788 

250 DRTA33, 193, 61, 17, 192, 61, 1, 63, 0, 237, 176, 35, 19 

260 DHTRi, 63, 0, 237, 176, 35, 19, 1, 63, 8, 237, 176, 281 

278 DRTR88, 31, 31, 31, 88, 91, 48, 40, 48, 91, 91, 28, 28, 28, 91 

288 DATA91, 31, 31, 31, 88, 91, 48, 48, 48, 79, 91, 76, 76, 76, 43 

298 DRTR88, 31, 31, 31, 48, 91, 28, 28, 28, 28, 43, 76, 76, 76, 48 

300 DATA91, 31, 31, 31, 88, 91, 28, 28, 28, 91, 91, 76, 76, 76, 43 

310 DRTR91, 31, 31, 31, 31, 91, 40, 40, 28, 28, 91, 76, 76, 76, 76 

320 DRTR91, 31, 31, 31, 31, 91, 48, 40, 28, 28, 91, 28, 28, 28, 28 

338 DRTR88, 31, 31, 31, 48, 91, 28, 28, 48, 88, 43, 76, 76, 76, 43 

348 DATA91, 28, 28, 28, 91, 91, 40, 40, 48, 91, 91, 28, 28, 28, 91 

350 DATR31, 31, 91, 31, 31, 28, 28, 91, 28, 28, 76, 76, 91, 76, 76 

368 DRTR28, 28, 31, 91, 31, 28, 28, 28, 91, 28, 43, 76, 76, 43, 28 

370 DRTR91, 28, 76, 40, 31, 91, 43, 76, 28, 28, 91, 28, 28, 31, 88 

388 DATA91, 28, 28, 28, 28, 91, 28, 28, 28, 28, 91, 76, 76, 76, 76 

398 DATR91, 48, 76, 48, 91, 91, 28, 31, 28, 91, 91, 28, 28, 28, 91 

488 DATA9L 48, 76, 28, 91, 91, 28, 91, 28, 91, 91, 28, 31, 40, 91 

410 DHTR88, 31, 31, 31, 88, 91, 28, 28, 28, 91, 43, 76, 76, 76, 43 

420 DATRSi, 31, 31, 31, 88, 91, 40, 48, 40, 31, 91, 28, 28, 28, 28 

430 DRTR88, 31, 31, 31, 88, 91, 28, 28, 28, 91, 43, 76, 79, 40, 79 

440 DATR91, 31, 31, 31, 88, 91, 88, 48, 40, 31, 91, 28, 31, 40, 76 

458 DATB88, 31, 21, 31, 31, 31, 40, 40, 48, 76, 76, 76, 76, 76, 43 

460 DfiTfi-31, 31, 91, 31, 31, 28, 28, 91, 28, 28, 28, 28, 91, 28, 28 

470 DflTRSi, 28, 28, 28, 91, 91, 28, 28, 28, 91, 43, 76, 76, 76, 43 

488 DflTRSi, 28, 28, 28, 91, 91, 28, 28, 28, 91, 31, 43, 88, 43, 31 

498 DATR91, 28, 28, 28, 91, 91, 28, 28, 28, 91, 43, 76, 43, 76, 43 

580 DATA91, 28, 28, 28, 91, 28, 79, 40, 79, 28, 91, 28, 28, 28, 91 

510 DATA91, 28, 28, 28, 91, 28, 31, 88, 31, 28, 28, 28, 91, 28, 28 

520 DRTA31, 31, 31, 31, 91, 28, 76, 40, 31, 28, 91, 76, 76, 76, 76 

538 DATR28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28 

548 FOR A=l TO LEN(TXJ) 

558 X=ASC<MD$aX$, A, i»-64 

560 IF X=-32 THEN X=27 

578 FOR C=l TO 5 

580 FOR B=l TO 3 

598 POKE 15887+64*B, LT<X, B, C) 

608 NEXT B 

618 XX=USR<8) 

620 NEXT C 

630 FOR B=l TO 3 

640 POKE 15887+64*B, 32 

650 NEXT B 

660 XX=USR<0) 

670 NEXT A 

688 IF 1NKEY$ ="" THEN TXt=LEFT*<T», LEN<TX$>-5)- RETURN 

698 END 

708 PRINT 8 968,""; 

710 FOR R=l TO 7 

728 PRINT 

730 FOR B=l TO 20 

740 NEXT B, A 

758 PRINT 384, STRING*<64, 148) 

768 PRINT 648, STRINGK64, 140) 

770 PRINT CKR*<14>°MESSRGE-" 

780 TX*=" 

790 A*=INKEY$ 

888 IF A$>="A" AND AK="Z n OR R*=" " THEN TX$=TX*+ft»: PRINT A$; : GOTO 798 

810 IF A$=" THEN 790 

820 IF ASC(A$)Oi3 THEN 840 

830 GOTO 868 

848 IF fiSCCA$)=8 THEN PRINT 8 768, "MESSAGE-" CHR$<31): TX$=" 

858 GOTO 790 

868 PRINT 8 768, STRING*<63, " ">; 

878 PRINT 6 832, STRING$<63, " "); 

880 TX$=TX*+" ": GOSUB 548: GOTO 818 
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COPVR :QHT 1979 



TV PLOT 
CREATIVE COMPUTING 



MORRISTOWN, NJ 



• els ■ 



DO VOU NEED 



NSTRUCTIONS? VES. 
els 



THIS PROGRAM AUTOMATICALLY COMES UP WITH TELEVISION 
SHOWS GUARAN' EED TO APPEAL TO THE MASSES AND WIN 
HIGH NEILSEN RATINGS. 

PRESS ANV KEY TO CONTINUE 

els 

THE REPORT I! ABOUT A DEDICATED LITTLE BOV WHO IS A DISASTER 
AT WINNING Rf CES AND WHO DESTROYS THE CITV. 

RNOTHER (V OF N) 

THE SERIES I: ABOUT A HENPECKED JUNGLE MAN WHO IS ft FLOP 

AT COOKING HE RLTH FOOD AND WHO DESTROYS THE CITY. 

ANOTHER (Y Of N) 

THE STORY IS ABOUT A DEDICATED SECRET AGENT WHO IS A FLOP 

AT PITCHING 1. 00D AND WHO RECOVERS THE JEWELS. 

ANOTHER CY 0[ N> 

THE SPECIAL IS ABOUT A SWINGING SCIENTEST WHO. IS A WHIZ 

AT WINNING Rf :ES AND WHO MAKES THE SACRIFICE. 

ANOTHER <Y Of N) 

THE SPECIAL S ABOUT A DEDICATED SECRET AGENT WHO IS A FLOP 

AT PROTECTINC ECOLOGY AND WHO FINDS LOVE. 

RNOTHER <Y Of N) 

THE PROGRAM S ABOUT' A HILARIOUS JUNGLE MAN WHO IS A FLOP 

AT PITCHING i 00D AND WHO CONFESSES. 

ANOTHER (Y 01 N) 

THE REPORT I: I ABOUT A SENSITIVE LAWYER WHO IS A WHIZ 

AT HELPING CI ILDREN AND WHO HELPS THE DOG. 

ANOTHER (Y Of N) 

THE REPORT I: ABOUT A HEAVY SCIENTEST WHO IS A WHIZ 

AT FIGHTING ! IRES AND WHO STOPS THE FLOOD. 

ANOTHER <Y 01 N) 



THE STORY IS ABOUT A HENPECKED JUNGLE MAN WHO IS A FLOP 
AT WINNING RF;ES AND WHO HELPS THE DOG. 

ANOTHER <Y OF N> 

THE STORY IS RBOUT A BRILLIANT JUNGLE MAN WHO IS A DISASTER 

AT HaPING Cf ILDREN AND WHO STOPS THE FLOOD. 

ANOTHER <Y Of N> 

THE REPORT V. ABOUT A SENSITIVE GIRL COWHAND WHO IS A WHIZ 

AT TWO-FISTEI DRINKING AND WHO DESTROYS THE CITY. 

ANOTHER <Y 0! : N) 

THE STORY IS RBOUT A THOUGHTFUL TOWN MARSHALL WHO IS A WHIZ 

AT PROTECTIN1 ECOLOGY AND WHO MAKES THE SACRIFICE. 



ANOTHER <Y : N) 
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10 CLS: PRINT8413, "TV PLOT" 

20 PRINT; PRINT THBC7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINT@960, ""; INPUT "DO YOU NEED INSTRUCTIONS"! I* 

48 IF LEFT*<I*,1)="N" THEN 110 ELSE CLS: PRINT TAB<27)"TV PLOT" 

50 PRINT 

68 PRINT "THIS PROGRAM AUTOMATICALLY COMES UP WITH TELEVISION" 

70 PRINT "SHOWS GUARANTEED TO APPEAL TO THE MASSES AND WIN" 

80 PRINT "HIGH NEILSEN RATINGS. ":PRINT 

90 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

100 IF INKEV*= n " THEN 100 ELSE CLS: N=0 

110 CLS 

120 GOSUB 819 

136 ON X GOTO 140,150,160,170,180,148,150,168,170,180 

140 A*="PR0GRRM" • GOTO 190 

150 A$="REP()RT" : GOTO 190 

160 A$="SPECIAL": GOTO 190 

178 A*="SERIES"- GOTO 190 

180 A$="ST0F:Y« 

138 GOSUB 810 

200 ON X GOTO 210,220,230,240,250,260,270,280,290,300 

210 B$="SWINGING" : GOTO 310 

220 B$="BRILLIRNT»- GOTO 310 

230 B$="SALTY": GOTO 310 

240 B$="HILhRIOUS" • GOTO 310 

250 »="SENSITIVE": GOTO 310 

260 B*="DODDERING" ■ GOTO 310 

278 B*="HENPECKED" : GOTO 310 

280 B$="DED1CATED": GOTO 310 

290 8*="TH0UGHTFUL" ■ GOTO 310 

386 B*="HEHVV" 

310 GOSUB 8:,6 

320 ON X GOTO 330, 340, 350, 360, 370, 380, 390, 400, 410, 420 

330 C$="GIR_ COWHAND" ; GOTO 430 

340 C*="LITTLE BOY" : GOTO 430 

350 C$="SCIENTEST": GOTO 430 

360 C4="LAWi'ER"- GOTO 438 

378 C*="TOW'l MARSHALL": GOTO 430 

380 C$="DENTIST": GOTO 430 

398 C*="BU5 DRIVER" • GOTO 430 

460 C*="JUNGLE NAN"- GOTO 430 

410 C$="SECRET AGENT" : GOTO 430 

420 C*="COLLIE" 

430 GOSUB 8:18 

440 ON X GOTO 450,460,470,480,490,450,460,470,488,490 

450 D$="A WIIZ": GOTO 500 

4S0 D*="A FLOP" : GOTO 580 

470 D*="MEDIOCRE": GOTO 460 

488 D$="A SJCCESS": GOTO 460 

490 D*="R DISASTER" 

500 GOSUB 810 

518 ON X GOTO 520,530,540,550,568,578,588,598,600,610 

520 E*="SOLVING CRIMES"- GOTO 628 

530 E$="ROPING COWS"- GOTO 620 

540 E$="COCKING HEALTH FOOD": GOTO 620 

558 E*="PITCHING MOOD": GOTO 628 

568 E*="PROTECTING ECOLOGY"- GOTO 620 

570 E$="HELPING CHILDREN" • GOTO 628 

588 E*="TWC -FISTED DRINKING"- GOTO 628 

598 E*="FIGHTING FIRES"- GOTO 628 

608 E*="HERDING ELEPHANTS" : GOTO 628 

618 E*="WIMIING RACES"- GOTO 620 

620 GOSUB 818 

630 ON X GOTO 640, 650, 660, 670, 680, 690, 788, 718, 720, 730 

648 F$="RECOVERS THE JEWELS"- GOTO 748 

658 F*="FOILS THE SPIES"- GOTO 740 

660 F*="DESTROYS THE CITY" ■ GOTO 740 

678 F$="FINDS LOVE" : GOTO 740 

680 F*="SRVES THE ANIMALS" ■ GOTO 740 

698 F$="CONFESSES" : GOTO 740 

708 F*="DISCOVERS THE SECRET": GOTO 748 

710 F*="STfJPS THE FLOOD" • GOTO 748 

728 F*="HELPS THE DOG"- GOTO 748 

738 F$="M«ES THE SACRIFICE" 

748 PRINT 'THE "i AS; " IS ABOUT A "; B$; " "; C*; " WHO IS "; D* 

758 PRINT 'AT "; E$j " AND WHO "j F$; " ": PRINT: N=N+1 

768 PRINT "RNOTHER (Y OR N)"; 

778 A*=INKEY*: IF A$="" THEN 770 

780 IF LEFT$(A*,1)="N" THEN 828 

790 IF N=4 THEN CLS: N=0 ELSE PRINT 

see goto 120 

818 X=INK:-0*RND<0)+1):RETURN 

828 CLS. PRINT "0. K. HOPE YOU HAVE A SUCCESSFUL TV SHOW! "' 

830 END 



TWONKV 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



The computer will set up a 15x15 playing field in which 
you are randomly located. Also inside the field is an 
objective square, 30 blocked squares (walls), 22 relocation 
squares, and 1 super special new maze square, and, of 
course, the Twonky {which is no relation to a creme-filled 
cupcake). 

To win the game, you must reach the objective square 
before the Twonky gets you, by moving one square at a time, 
forward, backward, right or left. Unfortunately, you are 
hindered by several things: 

RELOCATION squares, when moved on. cause you to be 
randomly transported to another position in the maze. 

WALLS; you can't move into these squares, and lose your 
turn when you hit one. 

SUPER-MAZE-SQUARE; essentially an instant loss, 
since when you move here a completely new maze is set up. 

TWONKY; after every move, the Twonky moves toward 
you. (He is impervious to all traps, even walls). When he 
gets too close to you (2 or fewer squares), you lose. 
However, you are equipped with a de-materializing ray gun. 
You have the option of using this on your turn. If you hit the 
Twonky he de-materializes and then re-materializes on a 
different square of the maze to resume his quest after you. 
(CAUTION: he could be dropped into your lap!). 

After each move pair (you and Twonky), your distance 
from both the Twonky and the objective square are printed. 
There is no board printout — you play blind. However, using 
the distances, you can home in to the approximate position 
of both Twonky and objective. 

When shooting at the Twonky, you do not have a shot if 
the distance he is from you is not an integer. For example: If 
the Twonky is 2.23606 units away, you don't have a direct 
shot. If he is 4 units away, you do have a shot. Exceptions to 
this rule are distances of 5, 10, 13, and 17. (A review of the 
Pythagorean Theorem will show why this is true.) Hence, if 
the distance is 5, 1 0, or 1 3 (but not 1 7), you may or may not 
have a direct shot. Likewise, this set of rules applies to the 
direction of the objective. 

If you watch your distances before and after moving, you 
should be able to tell where the Twonky is in relation to you, 
e.g., forward and to the right, or backward and to the left. 
Take the distance you are from the Twonky, square it, say 
2.23606 2 = 4.999998 approx. = 5. Then find two integers 
that when squared and added together equal this (2 and 1 ). 
If the Twonky is forward and to the right, you now know that 
he is either up 2, over 1 , or up 1 , over 2. 

The thing that makes Twonky unique, is that it can be 
played on two levels, one in which you play for fun, moving 
haphazardly; or you can play while figuring out exact 
positions, and calculating moves in advance for a challeng- 
ing (as well as fun) game. 

Twonky was written by Mark Capella and first appeared in 
Creative Computing, May/Jun 1977. 



DO VOU NEED INSTRUCTIONS? V_ 



• cla ■ 



TWONKV 

THIS IS THE GAME OF TWONKV. 

VOU HAVE LANDED ON THE PLANET OF TMINKV AND 
ITS KING (KONG; THEIR KING IS KING KONG) HAS 
CAPTURED VOU. HE HAS PUT VOU IN A MAZE THAT IS 
15 * 15 UNITS LONG. VOU ARE IN THE DARK AND CANNOT 
SEE. . VOU MUST GET TO THE OBJECTIVE SQUARE AND 
BE SET FREE 

HAZARDS INCLUDE: 

SQUARES THAT VOU CANNOT GO INTO (30). 
SQUARES THAT RRNDOMLV THROW VOU AROUND THE MAZE (22). 
SQUARE THAT SETS UP A NEW MAZE AND ALL THAT'S IN IT (1) 
PRESS RNV KEV TO CONTINUE 



TWONKV 



THERE IS MONSTER CALLED TWONKV THAT CHASES VOU AND WILL 
ABSORB VOU IF THE DISTANCE IT IS FROM VOU FALLS 
BELOW 2 UNITS. 

TWONKV IS ALSO IMMUNE TO ALL TRAPS INCLUDING WALLS. 



HIT RNV KEV TO CONTINUE 
els 



TWONKV 



VOU CAN: 



MOVE ONE SQUARE AT A TIME TO FIND THE OBJECTIVE 
OR ESCAPE FROM THE TWONKV. 

SHOOT AT THE TWONKV ONE DIRECTION AT A TIME. 

IF THE TWONKV IS HIT, HE WILL BE REPLACED IN THE 
MAZE RRNDOMLV. 

IF THE TWONKV ABSORBS VOU. . VOU LOSE. 

IF VOU LAND ON THE OBJECTIVE SQUARE VOU WIN. 



GOOD LUCK! 



HIT ANV KEV TO CONTINUE 
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THE TWONKV IS 3. 60555 UNITS AWAY. 
THE OBJECTIVE IS 4. 12311 UNITS AWAV. 



HOVE OR SHOOT <M/S)? M 
WHICH WAV (F/B/R/D? B. 



■ els • 



YOU'VE BEEN RELOCATED ! ! ! 



THE TWONKV IS 7. 81025 UNITS flWfiV. 
THE OBJECTIVE IS 7. 28811 UNITS RWRV. 



TWONKV MOVES. . 



THE TWONKV IS 7. 2111 UNITS AWAY. 
THE OBJECTIVE IS 7. 28011 UNITS RWflV. 



HOVE OR SHOOT WS>? M 
WHICH WAV <F/B/R/D? R_ 



MOVE ALLOWED. 



THE TWONKV IS 7. 81825 UNITS AWAY. 
THE OBJECTIVE IS 7 UNITS AWAV. 



TWONKV MOVES. . . 



THE TWONKV IS 7. 2111 UNITS AWAY. 
THE OBJECTIVE IS 7 UNITS AWAY. 



HOVE OR SHOOT <M/S>? M 
WHICH WAV (F/B/R/D? R_ 



• els ■ 



THE TWONKV IS 8. 86226 UNITS AWAV. 
THE OBJECTIVE IS 2. 23687 UNITS AWAV. 

HOVE OR SHOOT <M/S>? M 
W-IICH WAY (F/B/TVD? R_ 



YOU'VE BEEN RELOCATED ! ! ! 

THE TWONKY IS 2. 23687 UNITS AWAY. 
THE OBJECTIVE IS 8. 86226 UNITS AWAV. 

TWONKV MOVES. . . 

THE TWONKY IS 1. 41421 UNITS AWAY. 
THE OBJECTIVE IS 8. 86226 UNITS AWAY. 



> > > SCHLOORP ! ! ! C C < 

THE TWONKY JUST ABSORBED YOU! ' YOU LOSE. 

TRY AGAIN <Y/N>? (L 



18 OS. PRINT9413, "THONKV" 

2e PRINT: PRIHT TRB<7> "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOKN, HJ" 

38 PR1NTB68, "; ■ INPUT "DO YOU REED INSTRUCTIONS"; It 

46G0SUB2168 

59 DIH R<15,t5) 

60LETR9=0 

78 GOSUB 1718 

88G0SUB1338 

98 REM 

108 PRINT "HOVE OR SHOOT WS>"i 

118 INPUT 08$ 

128 IF LEFT«Q8S,1)="H" THEN 150 

130 IF LEFT$<Q8*,1>= U 5" THEN 830 

148 GOTO 98 

150 PRINT "(MICH HflY (F/B/R/D"; 

160 INPUT a* 

170 OS 

188 IF LEFT«Q$,1)="F" THEN 238 

198 IF LEFT$<(B,1>='B" THEN 268 

280 IF LEFT$(Q*,i)="L" THEN 298 

210 IF LEFT*<Q*,i)="R" THEN 320 

228 GOTO 98 

238 LET X5=X 

240 LET V5=V-1 

250 GOTO 350 

268LETX5=X 

270 LET Y5=Y+1 

288 GOTO 358 

290 LET X5=X-i 

380 LET Y5=Y 

310 GOTO 358 

320 LET X5=X+1 

330 LET Y5=Y 

348 GOTO 358 

359 IF X5a THEN 400 

368 IF X5>15 THEN 480 

370 IF V5a THEN 488 

388 IF Y5>15 THEN 400 

398 GOTO 438 

480 CIS: PRINT "THAT HOVE TAKES YOU OUT OF THE HAZE " 

410 PRINT "HOVE NOT ALLOWED. ' 

420 GOTO 1310 

430 ON <A(X5,Y5>+1) GOTO 440,510,520,558,650,698,800 

440 REH *** EHPTY SPACE 

458 LET flaV)=8 

460 LET A<X5,Y5)=i 

478 LET X=X5 

488 LET Y=Y5 

490 OS: PRIHT "HOVE ALLOWED. • 

508 GOTO 1310 

510 REH *** IMPOSSIBLE TO GET HERE 

520 REH *** BLOCKED SPACE ROUTINE 

530 OS: PRINT "THAT SPACE IS BLOCKED. ■ 

540 GOTO 1310 

550 REH «** RELOCATION ROUTINE 

560 PRINT "YOU'VE BEEN RELOCATED!!!' 

570 GOSUB 2550 

580 IF A(Z,H»2 THEN 438 

590 IF A(Z,N)O0 THEN 570 

680LETA&HM 

618 LET A(X,Y)=0 

620LETX=Z 

638 LET Y=H 

648 GOTO 1310 

650 REH «* CHANGE ALL, SUPER TRAP. 

660 PRINT " YOU HIT THE SUPER TRAP!! YOU GET A NEW HATE ■ 

670 GOSUB 1710 

688 GOTO 1310 

690 REH «** HE HON! 

788 PRINT 

718 PRINT "I DON'T BELIEVE IT BUT YOU HON THE GAME!" 

720 PRINT 'YOU GOT TO THE OBJECTIVE BEFORE' 

738 PRINT" THE THONKV GOT YOU!!" 

748 REH 

758 PRINT 'TRY AGAIN (Y/N)"; 

768 INPUT » 

778 IF LEFT*(Q*,1)='Y" THEN OS: GOTO 60 

788 IF LEFT*«B,i>= - N" THEN 2680 

790 GOTO 750 

880 REH *** HE LANDED ON THONKV! 

818 PRINT "YOU STEPPED ON THE THONKV!" 

820 GOTO 1670 
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838 REM *** SHOOT ROUTINE 

846 PRINT "KHICH WAV (F/B/R/L)": 

858 INPUT G* 

868 OS 

876 IF LEFT*(Q»,1)="F" THEM S29 

886 IF LEFT«G«,i)="B u THEN 958 

898 IF LEFT*(Q*,i)='R" THEN 1816 

988 IF LEFT*(9*,i)="L" THEN 988 

918 50T0 98 

928 LET Sl=8 

928 LET S2=-l 

948 GOTO 1626 

958 LET 51=6 

966LETSM 

976 GOTO 1828 

988 LET Sl=-1 

998LETS2=8 

1688 GOTO 1628 
1616 LET Sl=i 
1628 LET S2=8 

1628 LET Ri=X 
1848 LET R2=V 
1858 LET Ri=Pd+Sl 

1668 LET R2=R2*S2 
1876 PRINT "Z R P -•; 
1886 IF Ria THEN 1136 
1898 IF R015 THEN 1126 
1168 IF R2a THEN 1128 
1118 IF R2515 THEN 1126 
1126 GOTO 1178 

1128 PRINT "FIZZLE . . " 

1148 PRINT "SHOT LEFT HAZE " 

1158 PRINT "SHOT HISSED. " 

1166 GOTO 1218 

1178 IF A(RLR2>02 THEN 1228 

1188 PRINT "BLRST!!!!" 

1196 PRINT "VOU HIT HULL " 

1288 PRINT "SHOT HISSED. " 

1216 GOTO 1316 

1228 IF R(RLR2)06 THEN 1858 

1226 PRINT "OUCH!!" 

1246 PRINT "THONKV RETREflTES. " 

1258 LET fl(RLR2)=R9 

1268 GOSUB 2568 

1278 IF R&HJ08 THEN 1268 

1288 LET A(Z,H>=6 

1296 LET X1=Z 

1399 LET ¥i=H 

1218 GOSUB 1338 

1328 GOTO 1458 

1328 REM *** PRINT THONKV RND OBJECTIVE DISTANCE 

1248 PRINT 

1258 PRINT "THE THONKV IS": 

1366 D=(SQR(ABS((X1-X)[2+(V1-V>[2») 

1276 PRINT 0; 

1288 PRINT "UNITS AHRV. " 

1398 PRINT "THE OBJECTIVE IS": 

1488 M=(SGR<ABS(X2-X)[2+(V2-V>[2» 

1418 PRINT M; 

1428 PRINT "UNITS AHRV. " 

1428 PRINT 

1446 RETURN 

1458 REN *** THONKVS LOGIC 

1468 IF 1X2 THEN 1676 

1478 LET Z2=V1 

1488 LET Z1=X1 

1498 IF KX1 THEN 1568 

1568 IF »X1 THEN 1588 

1518 IF V<V1 THEN 1548 

1526 LET ZM1+1 

1526 GOTO 1598 

1548 LET Z2=Vi-i 

1559 GOTO 1598 

1568 LET Z1=X1-1 

1578 GOTO 1598 

1588 LET Zi=Xl+l 

1598 LET A(X1,V1>=R9 

1689 LET R9=A(ZLZ2) 
1616 LET R(ZLZ2>=6 

1629 LET Xi=Zi 
1626 LET V1=Z2 

1648 PRINT 'THONKV HOVES...." 
1658 GOSUB 1226 

1669 IF D>=2 THEN 98 
1678 PRINT 

1689 PRINT "> > > SCHOOL !!! < < <" 

1698 PRINT "THE THONKV JUST ABSORBED VOU!! VOU LOSE " 

1788 GOTO 748 

1716 Pffl w* SET UP NEH HfiZE ROUTINE 



1726 
1728 
1748 
1758 
1768 
1776 
1788 
1798 
1898 
1816 
1829 
1826 
1848 
1858 
1869 
1879 



1989 
1919 
1928 
1926 
1949 
1959 
1968 
1976 
1988 
1998 
2888 
2618 



2858 
2868 
2878 



aee 

2116 
2128 
2128 
2148 
2158 
2168 
2176 
2188 
2198 
2288 
2216 
2229 
2238 
2249 
2258 
2269 
2279 
2288 
2298 
2398 
2218 
2328 
2228 
2346 
2358 
2268 
2279 
2289 
2298 
2488 
2416 
2428 
2428 
2446 
2459 
2469 
2479 
2488 
2499 
2588 
2516 
2528 
2539 
2546 
2556 
2568 
2578 
2588 
2598 



REM *** i=PLRVER, 2=8L0CKED SPRCES 
REM *** 3=REL0CATI0N5, 4=SUPER TRAP 
REH *** 5=08JECTIVE 6=TH0NKV 
RBI **» 8=EHPTV SPRCES 
RH *** CLERR HAZE 
FOR B8=i TO 15 
FOR 81=1 TO 15 
LET R(B8,Bi>=8 
NEXTB1 
KEXTB8 
FOR 1=1 TO 26 
GOSUB 2566 

IF fl(Z,H)08 THEN 1836 
LETA(Z,H>=2 
NEXT I 

REH *** PLRCE RELOCATIONS 
FOR 1=1 TO 22 
GOSUB 2566 

IF fl(Z,H)06 THEN 1898 
LETA(Z,H>=2 
NEXT I 

REH **» PLRCE THE SPECIRL TRRP 
GOSUB 2566 

IF A(Z,H)08 THEN 1948 
LETA(Z,H>=4 
REH *** PLRCE THE PLRVER 
GOSUB 2568 

IF A<Z,H)06 THEN 1988 
LET A&H)=1 
LETX=Z 
LET Y=H 

REH *** PLRCE THE OBJECTIVE 
G0SU8 2568 

IF A(Z,H>06 THEN 2648 
LET A(Z,H>=5 
LETX2=Z 
LET V2=H 

REH *** PLRCE THE THONKV 
GOSUB 2569 

IF A(Z,HK>8 THEN 2168 
LETA(Z,H)=6 
LETX1=Z 
LETV1=H 
RETURN 
REH 

IF LEFT*(I$,1)="N" THEN OS. GOTO 2558 
CLS: PRINT TRB(29)"TM0NKV - ' PRINT 
PRINT "THIS IS THE GfflE Of THONKV. " 
PRINT ' VOU HRVE LRNDED ON THE PLRNET OF THINKV RNO* 
PRINT "ITS KING (KONG: THEIR KING IS KING KONG) HRS " 
PRINT "CRPTURED VOU. HE HRS PUT VOU IN A HRZE THAT IS" 
PRINT "15 * 15 UNITS LONG VOU ARE IN THE DRRK RND CflHNOT" 
PRINT "SEE... VOU HUST GET TO THE OBJECTIVE SQUARE RND" 
PRINT "BE SET FREE • 
PRINT 

PRINT " HRZRRDS INCLUDE:": PRINT 
PRINT "SQURRES THAT VOU CANNOT GO INTO (38). " 
PRINT "SQUARES THAT RRNDOKLV THROH VOU AROUND THE MfiZE (22). ■ 
PRINT "SQUARE THAT SETS UP A KEH HAZE AND ALL THRT'S IN IT (1)"; 
PRINT8979, "PRESS ANV KEV TO CONTINUE"; 
IF INKEV$=" THEN 2228 ELSE PRINTM28, CHR$(21>; 
PRINT: PRINT: PRINT 

PRINT "THERE IS HONSTER CALLED THONKV TORT CHASES VOU AND HILL- 
PRINT " RBSORB VOU IF THE DISTANCE IT IS FROM VOU FALLS' 
PRINT " BELOH 2 UNITS. " 

PRINT: PRINT • THONKV IS ALSO MUNE TO RU TRRPS INaUDING HALLS. ' 
PRINT: PRINT 

PRINT6979, "HIT ANV KEV TO CONTINUE": 
IF IHKEW=" THEN 2468 ELSE PRIHTI128, CH»C3i>; 
PRINT " VOU CRN:": PRINT 

'HOVE ONE SQUARE RT R TIKE TO FIND THE OBJECTIVE" 

' OR ESCRPE FROM THE THONKV. » 



SHOOT RT THE THONKV ONE DIRECTION RT R TIHE " 
IF THE THONKV IS HIT, HE NRL BE REPLACED IN THE" 
HAZE RRNDOHLV. " 
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PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "IF THE THONKV ABSORBS VOU... VOU LOSE" 

PRINT "IF VOU LAND ON THE OBJECTIVE SQUARE VOU HIN. 

PRINT 

PRINT "GOOD LUCK!" 

PRINT6979, "HIT RNV KEV TO CONTINUE"; 

IF INKEV*=" THEN 2546 ELSE CLS 

RETURH 

REH *** SUBROUTINE TO GET 2 RRKDOH NUWERS 

LET Z=INT(RHD(8>*i5+l> 

LET K=INT(RND(6)*15tl> 

RETURN 

END 



l mm-i 



Two-to-T 
played with 
only thecai 
to blackjac 
cards and 
possible to 
random be 
going over 
certain nut 
number de 
card. Thee 
are not give 
number bu 
within 15% 

Can you 
to-Ten mon 
ing it aga 
opponent? 

Two-to-T 
Computing 



in is a game of chance 
a special deck of cards with 
ds 2-10. The game is similar 
k in that you are drawing 
:rying to come as close as 
a goal number (chosen at 
fore each round) without 
it. You must come within a 
nber of points of the goal 
:ermined by a "lucky-limit" 
atch to the game is that you 
n the exact value of the goal 
t rather a clue that is only 
of the goal. 

hink of a way to make Two- 
; interesting 9 Perhaps play- 
nst the computer as an 



;n appeared in 
Nov/Dec 1976. 

TWO TO TEN 



Creative 



COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 

DO YOU NEED IN! TRUCTIONS? YES. 

els 



TWO TO TEN 

ICLCOME TO THE GAME OF TWO TO TEN. THAT NAME COMES FROM THE 
SPECIAL 'DECK ( F CARDS' USED. THERE ARE NO FACE CARDS - ONLY 
THE CARDS 2-10. THIS GAME IS EASY AND FUN TO PLAY IF YOU 
UNDERSTAND WHA' YOU ARE DOING SO READ THE INSTRUCTIONS 
CAREFULLY. 

AT THE START 01 THE GAME, YOU BET ON WINNING. TYPE IN ANY 
NUMBER BETWEEN 3 AND 280. I THEN PICK A RANDOM NUMBER 
YOU ARE TO REAi H BY THE SUM TOTAL OF MORE CARDS CHOSEN. 
BECAUSE OF THE RARE CHANCE OF YOU GETTING TO THAT NUMBER 
EXACTLY, YOU Al E GIVEN AN ALLOWANCE CARD. THE OBJECT OF 
THE GAME OF TO GET THE TOTAL OF CARDS WITHIN THE MYSTERY 
NUMBER WITHOUT GOING OVER. 

PRESS ANY KEY TO CONTINUE 



• els ■ 



YOU ARE GIVEN I HINT AS TO WHAT THE NUMBER IS. THIS IS NOT 
THE EXACT NUMB! R ONLY ONE CLOSE. ALL YOU DO IN THIS GAME IS 
DECIDE WHEN TO STOP. AT THIS POINT YOUR TOTAL IS COMPARED 
HITH THE NUMBEf AND YOUR WINNINGS ARE DETERMINED. 



PLACE YOUR BET 



YOU HAVE * 



TO SPEND. ■> 108 



YOUR 'LUCKY LII IT' CARD IS A 5 

YOU MUST COME MITHIN 5 WITHOUT GOING OVER TO WIN. 



CARD * 1 IS A 7 
YOUR TOTAL IS 7 



YOU ARE TRYING TO COME NEAR 
DO YOU WANT TO CONTINUE? Y_ 



46 



■ els • 



PLACE YOUR BET 



YOU HAVE t 268 TO SPEND. ? 100 



YOUR 'LUCKY LI IIT' CARD IS A 5 

YOU MUST COME I 'ITHIN 5 WITHOUT GOING OVER TO WIN. 



HERE WE GO 



CARD * 2 IS A 5 . YOU ARE TRYING TO COME NEAR 46 
YOUR TOTAL IS 12 DO YOU WANT TO CONTINUE? Y. 



els ■ 
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PLACE YOUR BET 



YOU HAVE * 208 TO SPEND. ? 188 



YOUR 'LUCKY LIMIT' CARD IS A 5 

YOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 



HERE WE GO 



CARD * 3 IS A 10 . YOU ARE TRYING TO COME NEAR 46 
YOUR TOTAL IS 22 DO YOU WANT TO CONTINUE? V. 



els ■ 



PLACE YOUR BET 



YOU HAVE * 208 TO SPEND. ? 100 



YOUR 'LUCKY LIMIT' CARD IS A 5 

YOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD # 4 IS A 6 . YOU ARE TRYING TO COME NEAR 46 
YOU? TOTAL IS 28 DO YOU WANT TO CONTINUE? V_ 

ols 



PLACE YOUR BET 



YOU HAVE $ 288 TO SPEND. ' 160 



TOUR 'LUCKY LIMIT' CARD IS A 5 

YOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD # 5 IS A 7 YOU ARE TRYING TO COME NEAR 46 
YOUR TOTAL IS 35 DO YOU WANT TO CONTINUE? Y. 



■ els ■ 



PLACE YOUR BET 



YOU HAVE $ 208 TO SPEND. ? : 



YOUR 'LUCKY LIMIT' CARD IS A 5 

YOU MUST CONE WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD » 6 IS A 9 YOU ARE TRYING TO COME NEAR 46 
YOUR TOTAL IS 44 , DO YOU WANT TO CONTINUE? N. 



• els • 



PLACE YOUR BET 



YOU HAVE * 200 TO SPEND. ? 188 



YOUR 'LUCKY LIMIT' CARD IS A 5 

YOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD ft 6 IS A 9 . YOU ARE TRYING TO COME NEAR 46 
YOUR TOTAL IS 44 DO YOU WANT TO CONTINUE? N 

YOU WIN! THE CARD WAS 44 , YOUR GUESS TOTAL WAS 44 
HITHIN YOUR LIMIT CARD. 

YOU NOW HAVE * 388 IN CASH TO BET IN THE NEXT GAME! 
MOULD YOU LIKE TO PLAY THE NEXT GAME? N_ 



■ els ■ 



10 CLS: PRINT@411, "TWO TO TEN" 

20 PRINT: PRINT TAB<7> "COPVRIGHT 1979 CREATIVE COI1PUTINQ MORRISTOWN, 

38 PRINT8960. ""; : INPUT "DO VOU NEED INSTRUCTIONS"; I* 

48 IF LEFT*<I$,1)="N" THEN 278 

58 CLS: PRINT TAB<27>"TW0 TO TEN": PRINT 

68 PRINT "WELCOME TO THE GAME OF TWO TO TEN. THAT NAME COMES FROM THE" 

70 PRINT "SPECIRL 'DECK OF CARDS' USED. THERE ARE NO FACE CARDS - ONLV" 

80 PRINT "THE CARDS 2-18. THIS GAME IS EASV AND FUN TO PLAV IF YOU" 

98 PRINT "UNDERSTAND WHAT VOU ARE DOING SO READ THE INSTRUCTIONS" 

180 PRINT "CAREFULLY. " 

110 PRINT 

120 PRINT "AT THE START OF THE GAME, YOU BET ON WINNING. TYPE IN ANY" 

130 PRINT "NUMBER BETWEEN AND 200. I THEN PICK A RANDOM NUMBER" 

148 PRINT "YOU ARE TO REACH BY THE SUM TOTAL OF MORE CARDS CHOSEN. " 

159 PRINT "BECAUSE OF THE RARE CHANCE OF YOU GETTING TO THAT NUMBER" 

160 PRINT "EXACTLY, YOU ARE GIVEN AN ALLOWANCE CARD. THE OBJECT OF" 
170 PRINT "THE GAME OF TO GET THE TOTAL OF CARDS WITHIN THE MVSTERY" 
180 PRINT "NUMBER WITHOUT GOING OVER. " 

198 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

280 IF INKEY*="" THEN 288 ELSE CLS 

210 PRINT "YOU ARE GIVEN A HINT AS TO WHAT THE NUMBER IS. THIS IS NOT" 

220 PRINT "THE EXACT NUMBER ONLY ONE CLOSE. ALL YOU DO IN THIS GAME IS" 

230 PRINT "DECIDE WHEN TO STOP. AT THIS POINT YOUR TOTAL IS COMPARED" 

240 PRINT "WITH THE NUMBER AND YOUR WINNINGS ARE DETERMINED. " 

258 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

260 IF INKEY*="" THEN 260 

270 CLS. 11=200 

280 D=0 

290 T=8 

300 O=INT<18*RND<0»+25 

310 N=INT<O*RND<0»+O 

320 R=<INT(15*RND<0»+1V100 

330 S=INT<2*RND<0)+1) 

348 IF S O 1 THEN 370 

350 E=INT<N-<N*R» 

368 GOTO 380 

370 E=INT<N+<N*R» 

388 A=INT<9*RND<0>+2) 

390 CLS: PRINT 

400 PRINT "PLACE YOUR BET 

418 INPUT B 

428 PRINT 

430 IF B<0 THEN 470 



YOU HAVE *"; M; " TO SPEND. ' 



440 
NJ" 450 
450 
478 
488 
490 
588 
510 
520 
530 
546 
550 
560 
570 
580 
590 
680 
610 
620 
630 
640 
650 
660 
670 
680 
698 
700 
718 
728 
730 
740 
758 
768 
770 
780 
790 



828 
838 
848 



IF M>=B THEN 490 

CLS: PRINT "YOU CAN'T BET MORE THAN YOU'VE GOT!" 
GOTO 400 

CLS: PRINT "YOU MAY NOT BET AGAINST YOURSELF. " 
GOTO 400 

PRINT "YOUR 'LUCKY LIMIT' CARD IS A "; A 

PRINT "YOU MUST COME WITHIN "; A; " WITHOUT GOING OVER TO WIN. " 
PRINT 

PRINT "HERE WE GO" 
PRINT 
D=D+1 

C=INK9*RND(0H2> 

PRINT8512, "CARD »"; D; "IS A "; C; " YOU ARE TRYING TO COME NEAR 
T=T+C 

IF T<=N THEN 610 

PRINT "YOUR TOTAL IS OVER THE NUMBER "; N; " AN AUTOMATIC LOSS!" 
GOTO 730 

PRINT "YOUR TOTAL IS "; T; " DO YOU WANT TO CONTINUE"; 

INPUT 0* 

PRINT 

IF LEFT$<S$, 1)="Y" THEN 530 

IF KN-A OR T>N THEN 700 

PRINT "YOU WIN! THE CRRD WHS "; N; ".YOUR GUESS TOTAL WAS"; T 

PRINT "WITHIN YOUR LIMIT CARD. " 

M=M+B 

GOTO 740 

PRINT "YOU BLEW IT! THE NUMBER WAS"; N; ".OUTSIDE VOUR LIMIT BY ' 

PRINT <N-H)-T 
PRINT 
M=M-B 

PRINT "YOU NOW HAVE $"; M; " IN CASH TO BET IN THE NEXT GAME!" 

IF M<=0 THEN 828 

PRINT "WOULD YOU LIKE TO PLAY THE NEXT GAME"; 
INPUT Q* 

IF LEFT$<Q$,1)="Y" THEN 280 
PRINTHOPE YOU HAD FUN"; 
GOTO 840 
PRINT 

PRINT CHR$(7); 

PRINT "YOU ARE BROKE! ! YOU MAY NOT PLAY ANYMORE! '" 

FOR XX=1 TO 2000: NEXT XX: END 
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another pla 
the attack* 
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marksmen, 
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and will £ 
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think, whih 
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steady aim. 
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tion is desl 
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enemies an 
theless yoi 
destroyed, 
plained am 
command : 
not allow y 
This contrc 
shot to reac 
explosion r 
then gives £ 
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Written b 
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called Star 
1978. 



strategy game in which you 
t the computer in a life-and- 
gle for superiority of space, 
ce after a space war with 
net in which both earth and 
ir's planet are destroyed, 
ets— basically similar in 
■cial structure, and scientif- 
ess— realizing they are 
jnch a "lifeboat" into space, 
.ts are equally armed and 

the aliens are much better 

hitting once out of every 

(in lines 1230-1250, the 

odds are set). The reason is 

"heenemyship'sdecisionis 

e program; the enemy will 

if he feels you are ramming 
pproach only if you are 
j/or his fuel is running out 
aponry eats up less fuel). He 
se option 6 (no move but 

if his energy is below a 
it. In other words, you can 
s he cannot. You have the 
ifyourmind.sothealienhas 

the advantage of a good 

! is set in the future: civiliza- 
royed, 150 people are left, 
3 in command. The enemy 
truly been seen, as many 
mevertruly seen, but never- 
i must destroy him or be 
Your weapons are ex- 
I the game begins. In your 
ship is a control which will 
>u to make an illegal move. 
I waits after you fire for the 
h the other ship and for the 
sports to reach the ship. It 
full report of powerdrain of 
If your power is not nega- 
still in the game but once it 
v zero your crew dies (the 
I istheamountofenergyleft 
ot the attack. If moreenergy 
than was repulsed, theship 
i. If the amounts are equal 
lip had exactly the same 
energy as the attack 
in any game you can get 
ihtoyourenemytouseyour 
without frightening off the 
0-1 1000), the game will last 
Dng time. Theoretically this 
st forever if played logically. 
/ Raymond J. Kernay, UFO 
ed in Creative Computing 
1977. A modified version 
Wars appeared in Sep/Oct 



u. f o. 

COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 
DO V0U NEED INSTRUCTIONS? VES. 



CIS • 



U. F. 0. 

yOU ARE ABOUT TO RECEIVE HIGH SECURITY INFORMATION. 
PLEASE EAT THE COMPUTER READ OUT AFTER READING. 



THIS IS THE YEAR 2088. . CIVILIZATION AS YOU KNOW IT HAS 
BEEN DESTROYED . . NATIONS HAVE BEEN REDUCED TO RUBBLE 
IN A MASSIVE SPACE WAR. 

YOU ARE ONBOARD A SPACE SHIP WHOSE S&E PURPOSE 
IS TO SAFEGUARD THE 158 PEOPLE ON YOUR SHIP. . . THE 
SOLE SURVIVORS. . . YOUR MISSION: FIND A PLANET SUITABLE 

FOR YOUR COLONISTS PROBLEM: THE ENEMY OF EARTH STILL 

EXISTS. STRANGE CREATURES NEVER SEEN BY MAN. 
PRESS ANY KEY TO CONTINUE 



els - 



U. F. 0. 



BY THE TIME YCU READ THIS EARTH WILL NO LONGER EXIST. 
HERE IS YOUR VITAL DATUM: 

YOU ARE EQUIPPED WITH 18,888 UNITS OF ENERGY. 

WHEI! YOU RUN OUT, THE ALIENS WILL DESTROY YOU. 



TYPE DESCRIPTION 

1 HEAVY GUIS 

2 WARHEADS 
J LASER 



WEAPONRY 

CAPACITY 

8 - 11, 880 

10,888 - 180,088 

10,000 - 20,000 



FUEL DRAIN 
10 UNITS 
100 UNITS 
1888 UNITS 



PRESS ANY KEY TO CONTINUE 

els 



U. F. 0. 



OPTIONS 
—108 UNITS 
-188 UNITS 



4 APPROACH 

5 RETREAT 

6 BY TYPING 6 YOU CAN PASS AND GAIN 100 UNITS 



(LABORERS WORK TO PRODUCE POWER) 



ENEMY 



THE ENEMY HAS THE SAME CAPABILITIES THAT YOU HAVE. 
EACH TIME A SHIP IS HIT, ITS ENERGY DRAIN IS EQUAL TO 
THE AMOUNT OF ENERGY SPENM.0 (EXCEPT LASER WHICH EQUALS 
THE AMOUNT SPENT*3 UNITS). 
PRESS ANY KEY TO CONTINUE 



- ols 



U. F. 0. 

BOTH SHIPS ARE ON THE SAME MISSION AND DESTINATION AND BOTH 

ARE ON EQUAL TERMS. 

UNFORTUNBTLY, YOU MUST KILL EACH OTHER TO WIN. 

YOUR MAXIMUM SPEED IS A JUMP OF 50, 088 UNITS, HOWEVER, 

SPEEDS VARY BETWEEN 10, 000 - 58, 800. 

NARHEADS TRAVEL AT 25,800 FEET PER SEC. . . SHaLS 1,088 FEET 

PER SECOND. 

THIS MESSAGE HAS RECORDED. EARTH IS DEAD. . . GOOD LUCK. . 



THIS IS COMPUTER CONTROL. WHAT IS YOUR NAME? ABDULA. 

ols — — 
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:<- 



108,582 MI 



33, 246 MI 



STATUS OF SHIP 10, 000 ENEMV SHIP'S STATUS ... 10, 

»fflT ARE VOUR ORDERS, ABDULA? 2. 



■ els ■ 



STATUS OF SHIP 3, 880 ENEMV SHIP'S STRTUS ... 7, £ 

mm fiRE VOUR ORDERS, RBDULA? 2. 



■ els - 
<— 



100,582 MI 



STRTUS OF SHIP 10, 1 



LETS NOT CRACK UNDER PRESSURE. 



ENEMV SHIP'S STRTUS . . 10, i 



33,246 MI 



STATUS OF SHIP 3, 800 ENEMV SHIP'S STATUS ... ?, I 



WAT RRE VOUR ORDERS, RBDULA? 2 
WARHEAD LAUNCHED 



■ els • 



100,582 MI 



STATUS OF SHIP 16,088 

HHAT ARE VOUR ORDERS, RBDULA? 3 

LASER FIRED: MISSED. TOO B 

ENEMV FIRES LASERS. . . 



ENEMV SHIP'S STATUS ... 16, i 



■ els 



33,246 MI 



— >: 



STATUS OF SHIP 



380 ENEMV SHIP'S STATUS . . . 4,300 



HARKERD LAUNCHED DIRECT HIT ENEMV SHIP'S POWER DOWN. 

ENEHV WARHEAD FIRED. . . DIRECT HIT!. . . POWER DOWN. 



■ els • 



100,582 MI 






33, 246 MI 



STATUS OF SHIP 6, 808 ENEMV SHIP'S STATUS . 



LASER FIRED: MISSED. TOO BAD! 

ENEMV FIRES LASERS. . . . DIRECT HIT. . . . POWER DOWN 



■ els • 



STATUS OF SHIP . 



380 ENEMV SHIP'S STRTUS ... 4, 380 



mm ARE VOUR ORDERS, ABDULfl? 2 
HARHEAD LAUNCHED MISSED TOO 



• els ■ 



180, 582 MI 



33, 246 MI 



STATUS OF SHIP . 



5, 888 ENEMV SHIP'S STATUS . . 8, 1 



STATUS OF SHIP 



200 ENEMV SHIP'S STATUS .. . 4,200 



LASER FIRED: MISSED. TOO BAD! 

ENEMV FIRES LASERS. . . . MISSED. . . WHEW! ! 



■ els ■ 



WAT ARE VOUR ORDERS, ABDULA? 2 

HARHEAD LAUNCHED DIRECT HIT ENEMV SHIP'S POWER DOWN. 

ENEHV WARHEAD FIRED. . . DIRECT HIT!. . . POWER DOWN. 

ENEMV IS VICTOR. . . . LIFE SUPPORT FADINO. .... CREW DVINO. . 



PLAV AGAIN? NO. 
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10 CLERR 380: CIS: PRIN 
20 PRINT: PRINT Tf)B<7) 
38 PRINTS950, ""; : INPU 
48 DIM P(l) 

58 E*=STRINSS(6,176)+CH 
60 E*=E*+STRING*(3,140) 
70 Y$=STRING$(6, 17S)+CH 
80 Y$=Y*+STRINGS(7, 191) 
96 REM UFO 

100 IF LEFT*(I$, 1)="N" 
110 CLS: PRINT TRB(29); 
128 PRINT "YOU ARE ABOU 
130 PRINT "PLEASE EflT T 
140 PRINT: PRINT: PRINT 
150 PRINT "THIS IS THE 
160 PRINT "BEEN DESTROY 
170 PRINT "IN fl MASSIVE 
180 PRINT " YOU ARE 
190 PRINT "IS TO SflFEGU 
200 PRINT "SOLE SURVIVO 
210 PRINT "FOR YOUR COL 
220 PRINT "EXISTS. STRA 
230 PRINT8979, "PRESS A 
240 IF INKEY*="° THEN 2 
250 PRINT "BY THE TIME 
260 PRINT "HERE IS YOUR 
270 PRINT TAB(10); "YOU 
280 PRINT TABC10); "WHE 
290 PRINT- PRINT- PRINT 
300 PRINT "TYPE"; TRB<5 
310 PRINT "FUEL DRAIN" 
320 PRINT " 1"; TAB(5) 
330 PRINT "10 UNITS" 
340 PRINT " 2"; TAB(5) 
358 PRINT TAB(40); "100 
360 PRINT " 3".- TfiB(5) 
370 PRINT "1000 UNITS" 
380 PRINT6979, "PRESS Ai 
398 IF INKEY*="° THEN 3 
408 PRINT: PRINT TfiB(25 
410 PRINT " 4"; TRB(5) 
420 PRINT "100 UNITS" 
430 PRINT " 5"; TAB(5) 
440 PRINT "100 UNITS" 
450 PRINT " 6"; TAB(5) 
460 PRINT TAB(5); "(LAB 
478 PRINT: PRINT TRB(25 
480 PRINT- PRINT "THE E 
490 PRINT "ERCH TIME A 
500 PRINT "THE AMOUNT 
510 PRINT TABG8); "THE 
520 PRINTC979, "PRESS A 
530 IF INKEY$="" THEN 5 
540 PRINT "BOTH SHIPS A 
558 PRINT "ARE ON EQUAL 
560 PRINT "UNFORTUNATLY 
570 PRINT "YOUR MAXIMUM 
580 PRINT "SPEEDS VARY 
590 PRINT "WARHEADS TRA 
600 PRINT "PER SECOND. " 
610 PRINT "THIS MESSAGE 
620 PRINT§768, "THIS IS 
630 INPUT R$: P=10800: 
640 as. PRINTK76, STR 
650 FOR 1=1 TO 2: PRINT 
668 PRINTO460, ":".- 

670 PRINT USING "< 

680 PRINT§640, ""; PRI 
690 PRINTK74, ""; PRI 
700 FOR 1=1 TO 1038: NE 
710 GOSUB 660: PRINTO76 
720 INPUT C 
730 0=INT(RND(8)*2)+1 
748 ON C GOTO 760, 860, 9 
750 PRINT "LETS NOT CRfl 
768 IF AM1085 THEN 756 
776 P=P-10 

780 PRINT "GUNS FIRED:" 
790 «="*=- ": FOR 1=4 
800 PRINT6238-I, F*; : N 
810 PRINT0845, ""; 
820 IF 0=1 THEN 840 
838 PRINT "MISSED 



U412, "U. F 0. " 

COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

' "DO YOU NEED INSTRUCTIONS"; I* 

*(26)+STRIN6*(4, 24)+STRING$(7, 191) 
•CHR*(26)+STRIN6«12, 24>+STRING*(6, 131) 
:$(26)+STRING$(12, 24)+STRING$(3, 140) 
■STRING* (4, 24HCHR$(26)+STRING$(6, 131) 

HEN CLS. GOTO 620 
"U. F. 0. " : PRINT 

' TO RECEIVE HIGH SECURITY INFORMATION. " 
IE COMPUTER READ OUT AFTER READING. " 

EAR 2000. . . CIVILIZATION AS YOU KNOW IT HAS" 
B. . . NATIONS HAVE BEEN REDUCED TO RUBBLE" 
SPACE MAR. " 

ONBOARD A SPACE SHIP WHOSE SOLE PURPOSE" 
IRD THE 150 PEOPLE ON YOUR SHIP. . THE" 
S. . YOUR MISSION: FIND A PLANET SUITABLE" 

iNISTS PROBLEM: THE ENEMY OF EARTH STILL" 

IGE CREATURES NEVER SEEN BY MAN. " 

IY KEY TO CONTINUE"; 

■0 ELSE PRINT0128, CHR*(31); 

W READ THIS EARTH WILL NO LONGER EXIST " 

VITAL DATUM:" 

ARE EQUIPPED WITH 10, 008 UNITS OF ENERGY. " 

I YOU RUN OUT, THE ALIENS WILL DESTROY YOU. " 

PRINT TAB<25); "WEAPONRY" 
•; "DESCRIPTION"; TRBC25); "CAPACITY"; TABC40); 

"HEAVY GUNS"; TAB(24); "0 - 11,080"; TAB(48); 

"WARHEADS"; TAB<21); "10, 008 - 100, 008"; 
UNITS" 
"LASER"; TAB(22); "10,000 - 20,000"; TAB(40); 

IY KEY TO CONTINUE"; 
10 ELSE PRINT0128, CHR*<31); 
<; "OPTIONS" 
"APPROACH"; TABC17); " "; TABC26); 



"RETREAT"; TAB<17); "- 



-"; TAB(26); 



"BY TYPING 6 YOU CAN PASS AND GAIN 108 UNITS" 
1RERS WORK TO PRODUCE POWER)" 
>; "ENEMY" 

IEMY HAS THE SAME CAPABILITIES THAT YOU HAVE. " 
MP IS HIT, ITS ENERGY DRAIN IS EQUAL TO" 
: ENERGY SPENT*10 (EXCEPT LASER WHICH EQUALS" 
AMOUNT SPENT*3 UNITS). " 
IY KEY TO CONTINUE"; 
;0 ELSE PRINT0128, CHR*(3i); 
!E ON THE SAME MISSION AND DESTINATION AND BOTH" 
TERMS. " 

YOU MUST KILL EACH OTHER TO WIN. " 
SPEED IS A JUMP OF 50, 000 UNITS, HOWEVER, " 
ETWEEN 18, 880 - 50, 880. " 
€L AT 35, 000 FEET PER SEC. . . SHELLS 1, 080 FEET" 

WAS RECORDED. EARTH IS DEAD. . . GOOD LUCK. . " 
COMPUTER CONTROL. WHAT IS YOUR NAME"; 
'(1)=10008: A=RND(0)*200000 
NG$(64,140): PRINTS135, E*: PRINT0181, Y* 
TAB(12); ""; TAB(53); ":": NEXT: GOTO 710 



***. 8## MI 



IT USING "STATUS OF SHIP ##, »#"; 

IT USING "ENEMY SHIP'S STATUS ... »#, #«#"; 

iT- RETURN 

t, "WHAT ARE YOUR ORDERS, "; AS; CHR$(31); 



P 
P(i) 



'8, 1878, 1128, 1180 
:K UNDER PRESSURE. 



GOTO 718 



- 26 

:xt I 



FOR 11=1 TO 10: NEXT II 
PRINT0238-I, " 



PRINTC238-I, 
PRINT§238-I, 



GOTO 1190 



NEXT 
NEXT 



A; " WE CANNOT RUN. RANGE IS 



TOO BAD 1 ": GOTO 1190 



848 PRINT "DIRECT HIT ENEMY SHIP'S POWER DOWN. " 

850 P(1)=P(1)-100: GOTO 1190 

860 IF R>100800 THEN 758 

870 IF FK180O8 THEN 758 

880 P=P-i0B: PRINT "WARHEAD LAUNCHED": FOR X=l TO A*2 STEP 35888 

8S0 NEXT X 

980 F$="<— ": FOR 1=4 TO 26: FOR 11=1 TO 10: NEXT II 

910 PRINT9238-I, F$; : NEXT I : PRINT0238-I, " "; 

920 PRINTO850, ""; 

930 IF 0=1 THEN 940 ELSE PRINT "MISSED TOO BAD! " ■ GOTO 1190 

940 PRIf>T "DIRECT HIT ENEMY SHIP'S POWER DOWN " 

950 P(1)=P(1)-18B0 

960 GOTO 1190 

978 IF A<188880 THEN 750 

988 P=P-i008 

9S0 PRINr "LASER FIRED: "; 

1080 F$="": FOR 1=1 TO 26: F$=F*+"= 

1010 F$="": FOR 1=1 TO 26: F$=F$+" 

1820 PRIIITO845, ""; 

1030 IF 0=1 THEN 1850 

1040 PRINT "HISSED TOO BAD!" 

1050 PRINT "DIRECT HIT. .... ENEMY SHIP'S POWER DOWN. " 

1060 P(l)=P(l)-3000: GOTO 1190 

1070 B=F:ND(0)*48800+10000: A=A-B: P=P-100: IF A<1 THEN 1100 

1880 PRINT "SHIP APROACHING" 

1098 GOTO 1198 

1100 as. PRINT "*** COLLISION ***":PRINT "BOTH SHIPS DESTROYED!" 

1110 GOTO 1530 

1120 B=FND(0)*40000+10008: A=A+B: P=P-10B: IF A>20B850 THEN 1150 

1130 PRINT "SHIP RETREATING. " 

1140 GOTO 1190 

1158 PRINT AS; ", YOUR RANGE IS": 

1168 PRIUT"200800" 

1178 A=208000: GOTO1190 

U80 pr::nt "ship at rest. " • p=p+180 

1190 IF P(iXi THEN 1560 

1200 IF P(1)C500 THEN 1480 

1210 IF fl<5080 THEN 1510 

1220 R=::NT(RND(0)*3)+i. O=INT(RND(0)*2+1) 

1238 ON R GOTO 1480,1330 

1240 IF R=2 THEN 1338 

1250 IF BO.00000 THEN 1220 

1260 P(l)=P(i)-1080 

1278 PRINT "ENEMY FIRES LASERS... "; 

1280 F$-=»"- FOR 1=1 TO 26: F$=F$+"=": PRINT0211, F$; 

1290 F$==""- FOR 1=1 TO 26: F$=F$+" ": PRINT0211, F*; 

1308 PRINT8918, ""; 

1310 IF 0=1 THEN 1320 ELSE PRINT "MISSED. .. WHEW! '": GOTO 1470 

1320 PRINT "DIRECT HIT..... POWER DOWN": P=P-3088: GOTO 1478 

1338 IF AM00000 THEN 1220 ELSE IF fl<10000 THEN 1220 

1340 P(i)=P(l)-108: PRINT "ENEMY WARHEAD FIRED... " 

1358 F$=» -->"• FOR 1=1 TO 23: FOR 11=1 TO 18: NEXT II 

1368 PRINT821B+I, F$; NEXT I. PRINTS210+I, " 

1378 PRIHT0918, ""; 

1388 IF 0=1 THEN 1398 ELSE PRINT "MISSED. . WHEW!": GOTO 1470 

1390 P=P-1000: PRINT "DIRECT HIT!... POWER DOWN. ": GOTO 1470 

1400 IF A>11000 THEN 1220 ELSE P(1)=P(1)-10 

1410 PRINT "ENEMY FIRES SHELL. . . " 

1420 F$=" -=*": FOR I=1T0 23: FOR 11=1 TO 10: NEXT II 

1430 PRINT8210+I, F$; - NEXT I: PRINT0210+I, " "; 

1448 PRIHT@918, ""; 

1450 IF 0=1 THEN 1460 ELSEPRINT "MISSED. .. WHEW!": GOTO 1470 

1460 PRINT "DIRECT HIT POWER DOWN. " • P=P-100 

1470 IF P<1 THEN 1588 ELSE GOTO 718 

1480 P(i)=P(l)+100: PRINT "ENEMY SHIP RESTING. ": GOTO 1470 

1498 B=INT(RND(0)*40808+10000: A=fi-B: PRINT "ENEMY SHIP APPROACHING" 

1508 GOTO 1470 

1510 B=RND(0)*48880+10080: A=A+B: PRINT "ENEMY SHIP RETREATING. " 

1520 GOTO 1470 

1530 PRINT "THAT WAS A PRETTY DUMB THING TO DO, ";A*;B$;C$;" " 

1540 PRINT "YOUR MISSION IS TO PROTECT YOUR PASSENGERS, NOT DESTROY. 

1558 GO V 1598 

1568 PRINT "ENEMY SHIP'S POWER GONE .... NO LIFE PRESENT. " 

1570 PRINT "MISSION SUCCESSFUL!"; : GOTO 1590 

1588 PRINT "ENEMY IS VICTOR. ... LIFE SUPPORT FADING CREW DYING. . 

1598 FCR I=i TO 2000: NEXT: CLS 

1600 PRINT 

1618 PRINT 

1620 PRINT 

1620 PRINT "PLAY AGAIN"; 

1640 INPUT A* 

1650 IF LEFT$(A*, 1)="Y" THEN 90 

1660 EN) 



NEXT 
NEXT 
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ler & Over 





This is a funny little dice game in 
which you're betting on the outcome of 
rolling two dice. You may bet on any 
number from two to twelve. If your 
number is exactly the same as shown 
on the sum of the dice, you win at four 
to one odds. If your number is under 
seven and the roll of the dice is under 
seven, you win even money. If your 
number is over seven and the roll of the 
dice is over seven, you also win even 
money. Only a bet on seven itself can 
win at four to one. The program goes 
on until you run out of money or until 
you interrupt it. 

UNDER i OVER 

COPYRIGHT 1973 CREATIVE COMPUTING MORRISTOHN, NJ 
DO YOU HEED INSTRUCTIONS? YES. 



UNDER AND OVER 

THIS IS A GAME OF UNDER AND OVER IF YOU PICK 
UNDER OR OVER SEVEN, YOU HILL HIN EVEN MONEY'. 
IF YOU PICK EVEN YOU HILL Hill HONEY HT FOUR TO ONE 
ODDS. YOU HAVE $168 TO START HITR GOOD LUCK! 



• els ■ 



PRESS ANY KEY TO CONTINUE 
HHAT NUMBER DO YOU WISH TO PLAY AND HON MUCH 
DO YOU HUNT TO BET ON THE NUHBER? 4,10. 




THE DICE HAVE HOH BEEN THROWN. THE RESULTS 
ARE AS FOLLOWS. 

DIE tl DIE K Sift YOUR t TOSS 

2 4 6 4 UNDER 

******** YOU HIN EVEN HONEY ******** 
YOU NOH HAVE $118. 

HHAT NUMBER DO YOU WISH TO PLAY AND HOH MUCH 
DO YOU HANT TO BET ON THE NUMBER? 4,18. 

els 
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THE MCE HAVE HOH BEEN THRi HR THE RESULTS 
ORE AS FOLLOWS: 

DIE II DIE 42 SUM VOUR i 

5 4 9 4 

! I ! ! ! OU LOSE ! ! ! ! ! 
VOU HON HflVE *180. 



TOSS 
OVER 



VOU LOSE ! 



VOU HM HflVE $8. 



THE Q :: SC IS OVER RND VOU RRE FLAT BROKE. SORPV CHARLIE, 
THIS 'ROVES THRT IT IS NOT 6000 TO GAMBLE. 
DO VOJ WANT TO PLflV flOflIN? NO. 



■ els ■ 



WHAT NUMBER DO VOU WISH TO PLflV RND HON MUCH 
DO VOU HflNT TO BET ON THE UMBER? 7,20- 

ClB 



THE DICE HflVE NOH BEEN THR Ml THE RESULTS 
ORE AS FOLLOHS. 



DIE Ml 


DIE 42 SUH 


VOUR « 


TOSS 


4 


1 5 
!!!!'. ' OU LOSE !'. 


1 1 1 


UNDER 


VOU NOH HflVE 


m. 







HURT NUMBER DO VOU WISH TO PLflV RND HON MUCH 
DO VOU HftNT TO BET ON THE UMBER? 8,18. 

els 



THE DICE HAVE HOH BEEN THF Ml THE RESULTS 
RRE R5 FOLLOWS. 



DIES! 



VOU NOH HflVE 



DIE «2 SUM VOUR S TOSS 

4 18 8 OVER 

st« * VOU UIN EVEN MONEY ******** 



WHAT NUMBER DO VOU WISH TO PLflV AND HOH MUCH 
DO VOU HftNT TO BET ON THE IUBBER? 9,23- 



■ els ■ 



THE DICE HflVE NOH BEEN THR Ml THE RESULTS 
ARE RS FOLLOWS. 

DIE HI DIE «2 SUM VOUR t TOSS 

5 5 16 9 OVER 

****** n VOU WIN EVEN HONEY ******** 
VOU NOH HAVE $118. 

HURT NUMBER DO VOU WISH TC PLflV RND HOH HUCH 
DO VOU HflNT TO BET ON THE IUMBER? 5,10. 



■ els ■ 



THE DICE HflVE NOW BEEN THf )WM THE RESULTS 
RRE RS FOLLOWS: 



DIE 111 DIE 112 


SUM 


YOURU 


TOSS 


6 1 


7 


5 


EVEN 


1 1 1 1 1 


OTLOSE ! 


Mil 




VOJ NOW HAVE $160. 









WHAT NUMBER DO YOU WISH TC PLflV RND HOW HUCH 
DO VOU HflNT TO BET OH THE WHBER? 6,10- 



THE DICE HAVE NOH BEN THI DUN. THE RESULTS 
ARE RS FOLLOHS. 



DIE M. DIE »2 


SUM 


VOUR t 


TOSS 


S 5 


11 
!!'. VOU LOSE !! 


6 

1 1 1 


OVER 


YOUHOHHWE m. 









HHAT NUMBER DO VOU WISH T( PLflV AND HOH MUCH 
DO VOU HflllT TO BET OH THE NUMBERS 8,98. 



THE DICE HflVE NOH BEEN TH OWN. THE RESULTS 
ARE RS FOLLOHS. 



DIE 111 DIE #2 

1 4 



SUM 
5 



VOUR I 



TOSS 
UNDER 



10 CLS 

26 CLEAR 1088 

38 PRIN" 8 410, 'UNDER t OVER" 

40 PRINT 

58 PRIN" TRB(7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHM, NJ" 

60PRllf 8 968,"": 

78 INPUT'DO VOU HEED INSTRUCTIONS"; I* 

88F*=' t » M « X X" 

96 IF If="N" THEN 20O 

186 CLS 

116 PRINT TftB(28)i "UNDER AND OVER" 

120 PRINT 

136 PRII1T"THIS IS A GAME OF UNDER AND OVER IF VOU PICK" 

146 PRIIIT'UHDER OR OVER SEVEN, YOU HILL UIN EVEN MONEY " 

156 PRHIT'IF VOU PICK EYEN VOU WILL HIN MONEY AT FOUR TO ONE" 

160 PRINT-ODDS. YOU HflVE *180 TO START WITH. GOOD LUCK!" 

178 PRINT 

188 PRINT 

198G0SU3 756 

286 as 

210 A=1M 

228 RES"QRE 

238 PERT fit, B$, « 

240 DAB "UNDER", "OVER". "EVEN" 

256 PRINT'HHBT NUMBER DO VOU WISH TO PLflV AND HOH MUCH" 

263 PRIli™ VOU HflNT TO BET OH THE NUMBER"; 

270 INPUT B, C 

280 as 

298 PRIIiT-THE DICE HflVE NOH BEEN THROWN. THE RESULTS" 

360 PRIIIT"ARERS FOLLOHS:" 

318 PRINT 

226 Q=IIIT<6*RHD<8)+i> 

336 R=INT<6*RHD(6>+1> 

340 PRIIJT-DIE HI" TftB(15)"DIE 82" TRB(30)"SUH" TAB(40) , YOUR t" TflB<55)"T0SS" 

350 PRINT" " TflB(15)"— — " THB<20>" — " TflB(40>" " TAB<55>" " 

369 IF l!H&? THEN 416 

376 IF IHR=7 THEN 448 

380 PRINT USING Ft; Q, R, Q+R, B, A* 

398 PRINT 

486 GOTO 468 

410 PRINT USING FJ; u, R, 0+R, B, Bf 

420 PRINT 

438 GOTO 466 

448 PRINT USING Ft; Q, R, Q+R, B, « 

450 PRINT 

466 IF !<=0+R THEN 486 

478 IF '.B<7 RND fi+R<?> OR (B>7 AND 8+R>7) THEN 548 ELSE 588 

486 IF K=6 OR B>8 THEN 540 

490 R=R"(4*C) 

580 PRINT TflB(28)"»******* VOU HIN 4 TO 1 ********" 

516 PRINT 

520 GOSUB 708 

538 GOTO 628 

540 fXK 

550 PRINT TAB<20>"***«*** VOU WIN EVEN MONEV ********" 

560 GOSUB 768 

570 GOTO 628 

588 R=fK 

590 PRINT TflB<28)" 1 ! ! ! ! VOU LOSE I ! ! ! ! " 

688 GOSUB 788 

618 GOTO 628 

620 IF 109 THEN 226 

636 PRIIIT'THE GAME IS OVER AND VOU ARE FLAT BROKE SORRY CHARLIE, " 

648 PRlliT"THIS PROVES THAT IT IS NOT GOOD TO GAMBLE. " 

658 GOTO 668 

668 PRINT'DO VOU WANT TO PLAY AGAIN"; 

678 INPUT HI 

688 IF l.EFW.Ht, 1)=T THEN 298 

636 BID 

768 PRUT "VOU NOW HAVE"; 

710 PRINT USING "BUM"; A; 

728 PRINT ■ " 

730 PRINT 

740 RET.RN 

750 PRUT § 979, "PRESS ANY KEY TO CONTINUE"; 

760 IF TKEV1 ="" THEN 768 

776 RET.RN 
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VAN GAM is a simple game with an 
interesting solution set. The winning 
sequence pairs are formed by certain 
mutually exclusive sequences, using 
the golden mean, r- 

2 
as an irrational 

generator. See explanation, 

210. 



ines 110- 



IFT = 1 +V5" 



andX = T + 1,Y = -+1 



then for integers N the winning se- 
quence generators are 

INT (N * X) 2 5 7 10 13 

INT (N * Y) 1 3 4 6 8 

It is interesting to note that the union 
of these sequences is the set of 
integers, and their intersection is 
empty. That is the case, in fact, for any 
irrational generator, but only T will 
produce winning VAN GAM pairs. The 
game is not much fun in that the 
average user will never be able to beat 
the computer in non-trivial cases, 
unless he has been taught the winning 
sequences. 

This program by Alan Brown first 
appeared in Creative Computing, 
Jan/Feb 1978. 



VANGAM 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 
DO VOU NEED INSTRUCTIONS? YES_ 

Cl3 ■ 







LEFT RIGHT 






14 22 


VOUR MOVE ? 3L 






HM.. 










LEFT RIGHT 






9 17 


VOUR MOVE ? 3B 






HM. . 










LEFT RIGHT 
9 15 


VOUR MOVE ? 5R. 






Hit.. I TAKE. 2R 










LEFT RIGHT 






6 10 


VOUR MOVE ? 3B. 






HM. . I TAKE: 3L 










LEFT RIGHT 






3 5 


VOUR MOVE ? 3R_ 






HM. . I TAKE: 2R 










LEFT RIGHT 






1 2 


VOUR MOVE ? 1R_ 






HH. .. I TAKE: 2L 










LEFT RIGHT 



VAN WYTHOFF'S GAME 

VOU ARE TO CREATE TWO PILES OF MATCHES, EACH CONTAINING 108 
OR LESS. VOU PLAV ALTERNATELV WITH ME, AND OUR MOVES 
CONSIST OF 

<A) TAKING AWAY 1 OR MORE MATCHES FROM ONE PILE ONLV, 

OR 

<B> TAKING AWAY THE SANE NUMBER FROM EACH PILE. 

IHE ONE WHO TAKES AWAY THE LAST MATCH OF ALL WINS. 

ENTER YOUR MOVES IN THIS MANNER: 

2L - <2 LEFT) TAKE TWO FROM LEFT PILE 
3R - <3 RIGHT) TAKE THREE FROM RIGHT PILE 
5B - <5 BOTH) TAKE FIVE FROM EACH PILE 



SORRV - I WIN. DON'T FEEL BADLY - I'M AN EXPERT. 
DO YOU WANT TO PLAY AGAIN? . 
els 



DESIRED PILE SIZES (NUMBER, NUMBER)? 26,16 
DO YOU WANT TO GO FIRST? N0- 



■ els ■ 



PRESS ANY KEY TO CONTINUE 
els 



DESIRED PILE SIZES (NUMBER, NUMBER)' 17,22 
DO VOU WANT TO GO FIRST? YES- 



VOUR MOVE ? 2B- 
HM. .. I TAKE: 1L 



181 



LEFT RIGHT 
25 16 







LEFT 


RIGHT 






22 


14 


VOUR MOVE ~> 2B. 
Ml. I TAKE: 1L 












LEFT 


RIGHT 






19 


12 


VOUR MOVE ? IB. 
HM. .. I TAKE: 1L 












LEFT 


RIGHT 






17 


11 


VOUR MOVE ? 2B_ 
HM. . I TAKE: iL 












LEFT 


RIGHT 






14 


9 


VOUR MOVE ? IB. 
HM.. I TAKE: IL 












LEFT 


RIGHT 






12 


8 


TOUR HOVE ? 28. 
m. .. I TAKE: IL 












LEFT 


RIGHT 






9 


6 


VOUR MOVE ? 2B. 
HI .. I TAKE: IL 












LEFT 


RIGHT 


VOUR MOVE ? IB. 
HH. . . I TAKE: IL 




6 


4 






LEFT 


RIGHT 






4 


3 


VOUR MOVE ■> 2B. 
HM... I TAKE: IL 












LEFT 


RIGHT 






1 


1 


VOUR MOVE ? IB. 
HM... I TAKE. IL 












LEFT 


RIGHT 












VOUR MOVE ? IB 
HN. .. 












LEFT 


RIGHT 












VOUR MOVE ? IB 
HM. . 









VOU WIN! ' 



CONGRATULATIONS. VOU ARE A VERY CLEVER VAN WYTHOFF'S 
GAMESMHN. 



DO VOU WANT TO PLflV AGAIN? NO. 



10 CLS. PRINT0413, "VANGAM" 

20 PRINT- PRINT TBEK7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

38 PRINT§960, ""; : INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 

48 DIM QC280) 

50 X=(1+SQR<5)V2: V=i+VX: X=l+X 

60 FOR 1=0 TO 99 

70 Qa*2)=INT<I*X>:(MI*2+l)=INT<I*Y) 

80 NEXT I: T=0 

90 IF LEFWI*, 1)="N" THEN CLS: GOTO 220 

100 CLS: PRINT TAB' 23); "VAN MVTHOFF'S GAME"- PRINT 

110 PRINT "VOU ARE TO CREATE TWO PILES OF MATCHES, EACH CONTAINING 100" 

120 PRINT "OR LESS. VOU PLAV ALTERNATELY WITH ME, AND OUR MOVES" 

136 PRINT "CONSIST OF'" 

140 PRINT TAB<10); ,! (A) TAKING AWAV 1 OR MORE MATCHES"; 

150 PRINT " FROM ONE PILE ONLY, OR" 

160 PRINT TBB<10); ' (B) TAKING AWAV THE SAME NUMBER FROM EACH PILE. " 

170 PRINT "THE ONE WHO TAKES AWAV THE LAST MATCH OF ALL WINS. " 

189 PRINT "ENTER VOUR MOVES IN THIS MANNER:" 

190 PRINT TABdO); ' 2L - (2 LEFT) TAKE TWO FROM LEFT PILE" 
280 PRINT TABQ8); '3R - <3 RIGHT) TAKE THREE FROM RIGHT PILE" 
210 PRINT TABC10); ' 5B - (5 BOTH) TAKE FIVE FROM EACH PILE" 

220 PRINT0979, "PRESS ANY KEV TO CONTINUE"; 

221 IF INKEY$="" THEN 221 ELSE CLS 

230 CLS: INPUT "DESIRED PILE SIZES (NUMBER, NUMBER)"; SI, S2 

240 L=S1: R=S2 

258 IF L+R>5 THEN 270 

260 PRINT "OH, VOU'RE A SPORT, VOU ARE. " 

270 INPUT "DO VOU WBNT TO GO FIRST"; B*: CLS 

280 PRINT: PRINT Tfi3(27>; "LEFT RIGHT" 

290 PRINT TABC27); " ■ 

308 PRINT TAB(27);L,TAB(33);R 

310 P=L*2: IF L>R I HEN 330 

320 P=R*2 

330 IF LEFT$<8$, 1)= "N" THEN 530 

340 IF L=R THEN PRINT "VOU LIKE SITTING DUCKS, DON'T VOU?" 

350 PRINT8512, "VOIR MOVE ";CHR$<30); : INPUTB*: PRINT CHR$(31); 

360 FOR X=l TO LEN(B*> 

370 IF ASC<HID*(B$, X,l))<48 OR fiSCaiID*<8*, X, 1))>57 THEN 390 

380 NEXT X 

390 S3=VHL<MID$<B*,1,X-D) 

480 IF S3=0 THEN 440 

410 IF MID$<B$,X,1)="L" THEN 460 

420 IF MID$(B$, X, i)="R" THEN 48B 

430 IF MID*(B*,X,1)="B" THEN 500 

440 T=T+1: IF T>2 THEN 1170 

450 PRINT: PRINT "IMPROPER ENTRV, STOP FOOLING AROUND. ": GOTO 350 

460 IF S3>L THEN 443 

470 L=L-S3: GOTO 523 

489 IF S3>R THEN 443 

490 R=R-S3: GOTO 520 
500 IF S3>L THEN 440 
510 L=L-S3: GOTO 483 

520 PRINT0219, L,TAB<34);R 

530 PRINT0576, "HM. . "; 

540 FOR 1=1 TO 500: A=A+I: NEXT I 

558 IF L+R>0 THEN 630 

560 PRINT: PRINT: PRINT "VOU WIN!!": PRINT 

570 PRINT "CONGRATULATIONS. VOU ARE A VERV CLEVER VAN MYTHOFF'S" 

580 PRINT "GBMESMAN. " 

590 GOTO 1120 

60S 1=0: M=0 

610 IF Q<I)=L THEN 560 

628 IF Q<I+1)=L THEN 688 

630 IF S(I)=R THEN 780 

640 IF Q<I+1)=R THEN 720 

650 1=1+2: GOTO 610 

660 L1=I. L2=l: IF 1=1 THEN 740 

670 M=l: GOTO 630 



680 L1=I: L2=0: IF 
698 M=l. GOTO 630 



1=1 THEN 748 
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780 R1=I: R2=i: IF M=± THEN 740 

710 M=l: OOTO 650 

720 R1=I: R2=0: IF M=l THEN 740 

738 N=l: GOTO 650 

740 IF L=R THEN 880 

758 IF Rl=Li THEN 1030 

760 IF LDR1 THEN 810 

778 P=L1+L2 

738 IF Q<P»R THEN 840 

790 M=R-Q<P> : R=Q(P) ; fl$=»R" ■ OOTO 1060 

880 M=L. L=0: R=0: A$="B"- GOTO I860 

810 P=R1+R2 

820 IF Q<P»L THEN 840 

830 M=L-Q<P> • L=Q(P> : A*="L" : GOTO 1060 

840 11=0: fi$="B" 

859 P=L1: IF Rial THEN P=R1 

860 P=P-2: G=0 

870 M=M+1: L=L-1. R=R-1 

880 FOR I=P TO STEP -2 

890 IF Q(I)=L THEN 940 

930 IF Q<I+1>L THEN 960 

910 IF <XD=R THEN 980 

920 IF <KI+1>=R THEN 1000 

930 NEXT I: GOTO 870 

940 IF Q<I+1)=R THEN I860 

950 GOTO 1010 

S60 IF EKD=R THEN I860 

970 GOTO 1010 

980 IF Q<I+1)=L THEN 1060 

930 GOTO 1818 

1080 IF Q<I)=L THEN 1068 

1010 IF G=l THEN 868 

1828 G=l: GOTO 870 

1630 IF L>R THEN 1050 

1846 R=R-1: 11=1 : R$=»R": GOTO 1060 

1050 L=L-1: M=l: fl$="L" 

1060 B$=""- IF M>9 THEN 1150 

1070 B*=CHR*CM+48> 

1088 B$=B*+B* 

1090 PRINT "I TAKE: ";TABC14);B*- PRINT0219, LTflB(34)jR 

1180 IF L+R>8 THEN 350 

1110 PRINT: PRINT "SORRV - I WIN. DON'T FEEL BHDLV - I'M BN EXPERT. " 

1128 PRINT: PRINT "DO VOU WANT TO PLBV AGAIN"; CHR*<31>; : INPUTS* 

1138 IF LEFT$<B*, 1>="V" THEN 220 

1140 GOTO 1190 

1150 B$=CHR*aNTW10>+48>: B$=B*+CHR$<M-INT(l1/10)*10+48) 

1160 GOTO 1888 

1170 PRINT: PRINT "LOOK, VOU JUST WON'T STOP FOOLING ABOUT. BUZZ OFF 

1180 GOTO 1190 

1190 PRINT: PRINT "0. K. BVE NOW. " 

1280 FOR A=l TO 1880: NEXT: END 
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In this garr 
of an Amei 
mission to J 
many Japar 
during Worlc 

You mayu| 
for Japanese 
your torpede 
avoid Japane 
you. 

For the mc 
random prob 
interesting, yc 
a skill factor 
submarine o 
enemy ship, s 
so on. 

Warfish wa 



e, you're the commander 
ican submarine with a 
eek out and destroy as 
ese ships as possible 

War II. 
> your periscope to search 

ships, you may launch 
>es. or you may dive to 
se ships that are attacking 

st part, this is a game of 
abilities. To make it more 
u might wish to introduce 
in terms of aiming your 
• distance away from an 
ize of the enemy ship, and 

5 written by Randy Wit. 



JAPANESE AMMUNITION SHIP - 9650 TONS. 
ORDERS, COMMANDER? TORPEDO. 



■ els ■ 



26 TORPEDOES LEFT. 
NUMBER OF TORPEDOES TO FIRE? ; 

2 TORPEDOES FIRED - 2 HITS - 
ORDERS, COMMANDER? PERISCOPE. 



AMMUNITION. SHIP SUNK. 



WARFISH 
COPVRIGHT : 979 CREATIVE COMPUTING MORRISTOWN, NJ 



DO YOU NEED INSTRI CTIONS? YES. 



WARFISH 

VOU COMMAND AN AMI RICAN SUBMARINE THAT BEEN SENT OUT 
TO ATTACK JAPANESI SHIPS AT SEA DURING WORLD WAR TWO. 

THE ORDERS THAT CfN BE GIVEN ARE THE FOLLOWING: 
PERISCOPE - Tt SEARCH FOR JAPANESE SHIPS. 
TORPEDO - TO LI UNCH TORPEDOES AT JAPANESE SHIPS. 
DIVE - TO ESCAI E JAPANESE SHIPS THAT ARE ATTACKING. 

THESE ARE SOME HISTORIC U.S. NAVY SUBMARINES: 

TAUTOG, SIL'ERSIDES, CAVALLA, BLUEFISH, THRESHER 
SWORDFISH, FLASHER, TROUT, ARCHER. 

SELECT ONE OF THE ABOVE, OR USE A NAME OF YOUR CHOICE. 
PRINT THE NAME OF YOUR SUBMARINE? TROUT. 



■ els ■ 



JAPANESE TORPEDO I OAT IS ATTACKING. 
ORDERS, COMMANDER' DIVE. 



JAPANESE TRANSPORT - 8800 TONS. 
ORDERS, COMMANDER? TORPEDO. 



■CIS ■ 



24 TORPEDOES LEFT. 
NUMBER OF TORPEDOES TO FIRE? 2 

2 TORPEDOES FIRED - 1 HITS - TRANSPORT SUNK. 
ORDERS, COMMfiNDER? PERISCOPE. 



els ■ 



JAPANESE AMMUNITION SHIP - 9650 TONS. 
ORDERS, COMMANDER? TORPEDO. 



els - 



• els • 



DISTANCE OF TORPE >0 BOAT 



1753 YARDS 
1500 YARDS 
1253 YARDS 
1808 YARDS 
750 YARDS 
586 YARDS 
250 YARDS 
YARDS 



DEPTH OF USS TROUT 



FEET 
25 FEET 
50 FEET 
75 FEET 
180 FEET 
125 FEET 
150 FEET 
175 FEET 



22 TORPEDOES LEFT. 
NUMBER OF TORPEDOES TO FIRE? 10 

10 TORPEDOES FIRED - 6 HITS - AMMUNITION SHIP SUNK. 
ORDERS, COMMANDER? PERISCOPE. 



• els ■ 



THE USS TROUT IS INHURT. 
ORDERS, COMMANDER PERISCOPE. 



JAPANESE FREIGHTER - 6588 TONS. 
ORDERS, COMMfiNDER? TORPEDO. 



• els • 
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• els • 



12 TORPEDOES LEFT. 
NUMBER OF TORPEDOES TO FIRE? 6 

6 TORPEDOES FIRED - 3 HITS - FREIGHTER SUNK. 
JAPANESE DESTROVER IS ATTACKING. 
ORDERS, COMMANDER? TORPEDO. 

els 



THE USS TROUT HAS BEEN SUNK BV GUNFIRE. 

THE SUBMARINE USS TROUT HAS SUNK A TOTAL OF 4 SHIPS. 
TOTAL ENEMV TONNAGE SUNK: 34600 TONS 



DO VOU WANT TO TRY AGAIN? NO. 



• els • 



10 CLS: PRINT8413, "HARFISH" 

28 PRINT: PRINT TRB(?) "COPYRIGHT 1379 CREATIVE COMPUTING KORRISTOHH, NJ" 

38 PRINT0968, "i : INPUT "DO YOU NEED INSTRUCTIONS'; 1$ 



58 REM 

68 IF LEFT*<»,i>="N" THEN CLS: GOTO 198 

78 CLS: PRINT TAB(28)i "HflRFISH" • PRINT 

88 PRINT "YOU COMMAND AN AMERICAN SUBMARINE THRT HRS BEEN SENT OUT" 

98 PRINT "TO RTTACK JAPANESE SHIPS AT SEA DURING HORLD HAS TIB. " 

168 PRINT 

118 PRINT "THE ORDERS THAT CAN BE GIVEN ARE THE FOLLOWING." 

126 PRINT " PERISCOPE - TO SEARCH FOR JAPANESE SHIPS. " 

138 PRINT " TORPEDO - TO LAUNCH TORPEDOES AT JAPANESE SHIPS. " 

148 PRINT " DIVE - TO ESCAPE JAPANESE SHIPS THAT ARE ATTACKING. " 

158 PRINT "THESE ARE SOME HISTORIC U.S. NAVY SUBMARINES: ":PRINT 

166 PRINT " TRUTOG, SILVERSIDES, CRVALLA, BLUEFISH, THRESHER" 

178 PRINT " SHORDFISH, FLASHER, TROUT, ARCHER VPRINT 

188 PRINT "SELECT ONE OF THE ABOVE, OR USE A HfiHE OF YOUR CHOICE " 

198 PRINT "PRINT THE NAME OF YOUR SUBMARINE"; 

288 INPUT A* 

216 T=26 

228 D=INT<RHD<8)*i6> 

238 IF D<6 THEN 386 

248 IF D06 AM) DO? THEN 278 

256 R»="DESTROYER" 

268H=2i08 

276 IF D08 THEN380 

288 R*="DESTROYER ESCORT" 

298H=B50 

366 IF 0O9 THEN 330 

318 R*="TORPEDO BOAT" 

328 14=78 

338 IF D=6 OR D=7 THEN 366 

348 Q=l 

356 GOTO 378 

368 0=2 

376 PRINT'JAPANESE ■; R$i " IS ATTACKING " 

383 IF D>=6 THEN 468 

398 A=INT(RND(6)*16) 

406 REM 

418 PRINT "ORDERS, COWWNDER"; 

428 INPUT B 

438 CLS; C*=M!D*(C$,i,l) 

440 IF C$="P" THEN 488 

458 IF C*="T" THEN 1166 

466 IF C$="D" THEN 1378 

478 GOTO 418 

488 IF D>5 OR Q>8 THEN 1886 

498 IF A>=4 THEN 576 

508 R*="FREIGHTER" 

518 IF A06 AND flOl THEN 538 

528H=6580 

538 IF A02 THEN 550 

546 14=7586 

556 IF A03 THEN 576 

560 H=8188 

578 IF A07 AND A08 THEN 638 

586 R$="TAHKER' 

558 IF A08 THEN 628 

688 14=10868 

618 GOTO 638 

620«=3580 

638 IF AOt AND A05 THEN 698 

648 R$='TRANSPORT" 

658 IF A05 THEN 680 

666 H=1158B 

670 GOTO 698 



690 IF A06 THEN 726 

788 R$="RmUNITION SHIP" 

716 H=9656 

728 IF A>=9 OR A=6 THEN 746 

738 Q=4 

748 IF A06 THEN 768 

756 0=1 
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766 IF H<9 THEN 1888 

776 E=INKRH><8)*i8> 

788 IF E08 THEN 816 

798 R*="BATTLESHIP» 

888 14=33580 

810 IF EOl THEN 848 

828 RJ="A1RCRAFT CARRIER" 

836 N=25768 

840 IF E02 THEN 870 

858 R*="HEAVY CRUISER" 

868M=9988 

878 IF E03 THEN 988 

888 RJ="LIGHT CRUISER" 

898H=9688 

986 IF E04 AND E05 THEN 936 

910 R$="DESTROYER" 

928 14=2160 

936 IF E06 AND EO? THEN 960 

940 R*="SUBHARINE" 

950H=1580 

968 IF E08 AND E<>9 THEN 986 

970H=1350 

988 IF E<=5 THEN 1688 

990 0=1 

1688 IF EOS AND E05 THEN 1628 

1816 0=2 

1828 IF E02 AND E03 THEN 1846 

1636 0=3 

1040 IF EOl THEN 1868 

1050 14=4 

1860 IF EO0 THEN 1686 

1676 0=7 

1886 PRINT "JAPANESE '; RSi » -"; Hi "TONS. " 

1090 GOTO 488 

1108 IF ©=i THEN 1130 

1110 PRINT "NO JAPANESE SHIPS IN SIGHT - JUST OCEAN. " 

1128 IF (Kl THEN 418 

1136 PRINT T; 'TORPEDOES LEFT. " 

1148 PRINT "NUMBER OF TORPEDOES TO FIRE"; 

1150 INPUT R 

1160 IF R<0 OR T-R<0 THEN 1148 

1170 IF ROINT(R) THEN 1146 

1186 T=T-R 

1198 S=INT<RND<0>*10> 

1260 IF S5R THEN 1190 

1210 Q=S-S 

1228 IF QC=0 THEN 1240 

1230 G»="DAHRGED" 

1248 IF 0>=1 THEN 1288 

1258 Q*="SUHK" 

1268 0=0* 

1270 L=L+1 

1280 PRINT Ri "TORPEDOES FIRED -"; Si "HITS "s 

1298 IF SO0 THEN 1310 

1386 PRINT 

1316 IF S<=0 THEN 1338 

1320 PRINT "- "; R$i " "; Q$; " " 

1330 IF D>5 RND Q>0 THEN 1566 

1346 IF T<1 THEN 1586 

1350 IF (Kl THEN 228 

1360 GOTO 480 

1378 IF D>=€ THEN 1398 

1388 PRINT ' THE USS "; A*; " IS NOT UNDER ATTACK. " 

1398 IF D<6 THEN 418 

1480 U=INT(RND(8)*18)*258 

1410 PRINT "DISTANCE OF •; Rfc TBB(32)i "DEPTH OF USS °;fW 

1420 FOR XX=1 TO 63: PRINT "="i ■ NEXT 

1438 PRINT Ui "YARDS'i TAB(32)i 2i "FEET" 

1448U=U-258 

1458 Z=Z+25 

1468 IF U>250 THEN 1430 

1470 IF R*="TORPEDO BOAT" THEN 1510 

1488 N=INT<RND<8)*18)*25+58 

1498 IF N+26>2 RND N-26Q THEN 1548 

1588 U=0: Z=8 

1518 PRINT: PRINT "THE USS "s AJi " IS UNHURT. " 

1520 0=0 

1530 GOTO 228 

1546 CLS: PRINT "THE USS ■; A*i " HAS BEEN SUNK BY DEPTH CHARGES. " 

1558 GOTO 1618 

1568 FOR 1=1 TO 1588: NEXT I 

1565 OS; PRINT "THE USS "i AJi " HAS BEEN SUNK BY GUNFIRE " 

1576 GOTO 1618 

1588 FOR 1=1 TO 1580: NEXT I 

1585 CLS: PRINT "THE USS "i flfc " HAS EXPEIDED ALL ITS TORPEDOES. ■ 

1598 IF 0C=8 THEN 1616 

1680 PRINT: PRINT "CONGRATULATIONS ON A SUCCESSFUL DEPLOYMENT. " 

1610 PRINT 

1628 PRINT "THE SUBMARINE USS "i A$i " HAS SUNK A TOTAL OF"; U "SHIPS. ' 

1638 PRINT "TOTAL ENEMY TONNAGE SUNK: "; 0; "TONS" 

1648 PRINT: PRINT 

1658 INPUT "DO YOU HANT TO TRY AGRIN'iANS* 

1660 IF LEFT«ANS$,1)="Y" THEN 58 ELSE END 






yjjf^rfr^i] 



www 



Wwmm m 






This program generates the im- 
mensely poouiar word-search puzzles 
containing names of Presidents, states, 
types of animals, fish, and every 
manner of objects. It asks you the 
length and width of the puzzle you wish 
generated and then the number of 
words to be hidden in the puzzle. As the 
instructions note, ocasionally the com- 
puter may find that it can't hide a 
particular word in the puzzle and will 
ask you if il should start over or if you 
want that particular word deleted. If 
you start ov 3r, try giving it fewer words 
or larger puzzle dimensions. The 
program h des the words fairly ef- 
ficiently al hough you can usually 
improve on it slightly when you get the 
final puzzle out. Since you're probably 
just using :his program for fun, it's 
generally more than adequate. 

Word Jearch Puzzle runs best on 
a line prirter, but can certainly be 
used with \ ideo only. Just don't clear 
the screen before you solve the 
puzzle! 



WORD SEARCH PUZZLE 

THIS PROGRAM IS A WORD SEARCH PUZZLE GENERATOR!! 
THE PROGRAM TAKES A SET OF INPUT STRINGS, PURGES ALL 
NOII-flLPHflBETIC CHARACTERS OUT OF THEM, AND INCORPORATES 
THEM INTO A WORD SEARCH PUZZLE. 

IN THE COURSE OF MAKING THE PUZZLE, THE MACHINE MAV 
FIND THAT IT CAN'T PUT A PARTICULAR WORD ANVWHERE, AND- 
SO WILL ASK VOU IF IT SHOULD START THE WHOLE PUZZLE 
OVfS. IF VOU DON'T WANT IT TO START OVER, TVPING 'NO' 
WILL THROW AWAV THAT PARTICULAR WORD. IF THIS PERSISTS, 
TR" EITHER GIVING LESS WORDS OR BIGGER PUZZLE DIMENSIONS! 



PRESS ANV KEV TO CONTINUE 

els 



DO VOU WANT THIS TO GO TO THE PRINTER ? VES 

HOW MANV COLUMNS DOES VOUR PRINTER HAVE ? 60 

DO VOU WANT A SOLUTION PRINTOUT' VES 

HHFT IS TO BE THE WIDTH OF THE PUZZLE? 15 

THE LENGTH? 15 

HHFT IS THE MAXIMUM NUMBER OF WORDS IN THE PUZZLE? 10 

NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE. 

< 60 CHARACTERS MAXIMUM! ) 
? COMPUTER LANGUAGES. 




Cl8 ■ 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HVPHEN <-). 
HHEN VOU RUN OUT OF WORDS, TVPE A PERIOD C X 
NEXT WORD ' BASIC. 



■ els ■ 



This wore search puzzle generator 
was originated by Leor Zolman. 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HVPHEN <->. 
(HEM VOU RUN OUT OF WORDS, TVPE A PERIOD (.. ). 
KEXT WORD ? FORTRAN. 



-BA5IC- 



■ ols ■ 



(ORD SEARCH PUZZLE 
COPVRIGHT 1979 :REATIVE COMPUTING MORRISTOWN, NJ 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HVPHEN <-). 
IHEN VOU RUN OUT OF WORDS, TVPE A PERIOD <. ). 
NOT WORD ? PLI. 



DO VOU NEED INSTRUCTIONS? VES. 
els — 
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-BfSIC- 



-FORTRAN- 



. els ■ 



OK . ENTER R WORD RT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TYPE fl HVPHEN <-X 
WEN VOU RUN OUT OF WORDS, TVPE fl PERIOD <. X 
NEXT WORD ■> COBOL. 



-BftSIC- 



-FORTRflN- 



-PLI- 



• els ■ 



OK . . . ENTER R WORD RT EACH QUESTION MflRK. 
TO REDO THE PREVIOUS WORD, TVPE fl HVPHEN <-X 
WEN VOU RUN OUT OF WORDS, TVPE R PERIOD <. X 
(EXT WORD ? SNOBOL. 



-BRSIC- 
-ASSEHBLER- 



-FORTRflN- 
-RPG- 



-PLI- 
-ALGOL- 



CfS ■ 



-COBOL- 
-LISP- 



OK . . . ENTER fl WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HYPHEN (-X 
WEN VOU RUN OUT OF WORDS, TVPE A PERIOD (. ). 
NEXT WORD ? BSSEMBNLER- 



OK . . . ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HVPHEN (-). 
WEN VOU RUN OUT OF WORDS, TYPE A PERIOD (. X 
EXT WORD ? PILOT. 



-BRSIC- 



-FQRTRAN- 
cla ■ 



-PLI- 



-COBOL- 



-BfiSIC- 

-ASSEMBLER- 

-SNOBOL- 



-FORTRBN- 
-RPG- 



-PLI- 
-BLGOL- 



-COBOL- 
-LISP- 



ols- 



OK . ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HVPHEN <->. 
WEN VOU RUN OUT OF WORDS, TVPE A PERIOD <. X 
KEXT WORD ? -. 



NOW LET ME PONDER THIS 

HOW MANY COPIES OF THIS PUZZLE DO VOU WANT? 1 
FOR EACH COPV, HIT RETURN TO BEGIN PRINTING. . . ' 



• Cl8 ■ 



-BASIC- 
-ASSEMBNLER- 



-FORTRAN- 



-PLI- 



■ els • 



-COBOL- 



COMPUTER LANGUAGES 



OK . ENTER A WORD RT EACH QUESTION MflRK. 
TO REDO THE PREVIOUS WORD, TVPE fl HVPHEN <-). 
WEN VOU RUN OUT OF WORDS, TVPE A PERIOD (. X 
REDO RSSEMBNLER. . ? ASSEMBLER- 



-BASIC- 
-ASSEMBNLER- 



-FORTRAN- 



-PLI- 



■ els ■ 



-COBOL- 



J L N 

M P L 

F I D 

F L W 

I 

R T Z 

T Q F 

R V X 
ACL 

N y P 

C M Z 

J L R 

C Q M 

E P I 

D N 



V R V 

U M G 

I V W 

R T U 

N K V 

S L C 

Q P W 

K Z U 

F D K 

K L T 

W M 8 

S S E 

D B C 

G I E 

H R P 



S K 
Z C 
V D I 
PUP 
U G P 



D F 

T T 

S B 

R 

L P 

W V T 

M B L 

I S H 

U F 

V Z S 



G L R 
UNO 
REP 
V T T 
W L S 
D N 
A 
R E J 
B A I 
B H R 
CBS 
E R C 
K R S 
\Cl U 
J X Q 



U Z N 

K Q L 
BLR 

L Z 

N I C 

N H G 

G D B 

F L K 

C K A 

V M Q 
REP 

V M B 
Q V K 
E F V 
P Z T 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HVPHEN <-X 
WEN VOU RUN OUT OF WORDS, TVPE A PERIOD <. X 
NEXT WORD ? RPG- 



-BflSIC- 
-flSSEMBLER- 



-FORTRRN- 



-PLI- 



-COBOL- 



FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE: 

ALGOL ASSEMBLER BASIC 
FORTRAN LISP PILOT 
RPG SNOBOL 



0l8 ■ 



. Cl8 



COBOL 
PLI 



OK . . ENTER A WORD AT EACH QUESTION MflRK. 
TO REDO THE PREVIOUS WORD, TVPE A HYPHEN <-X 
WEN VOU RUN OUT OF WORDS, TVPE A PERIOD <. ). 
NEXT WORD ? ALGOL 



-BASIC- 
-ASSEMBLER- 



-FORTRAN- 
-RPG- 



-PLI- 



■ cla ■ 



HERE IS THE ANSWER KEY: 



F L 

R T 
T . 
R . 
A . 
N , 



I . . . G . . 

S C . 
. . P . I . . 

. . . SB 
OR 



L S . 
N 



ASSEMBLER 



OK . ENTER A WORD AT EACH QUESTION MflRK. 
TO REDO THE PREVIOUS WORD, TYPE fl HVPHEN (-X 
WEN VOU RUN OUT OF WORDS, TVPE fl PERIOD (. ). 
KEXT WORD ■> LISP- 



-BASIC- 
-ASSEMBLER- 



-FORTRAN- 
-RPG- 



cls - 



-PLI- 
-BLGOL- 



-COBOL- 



FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE: 

ALGOL ASSEMBLER BASIC 
FORTRAN LISP PILOT 
RPG SNOBOL 
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COBOL 
PLI 



18 CLS: PRINTO407, "WORD 
28 PRINT: PRINT TAB<7> " 
39 PRINT9968, ""; INPUT 
48 IF LEFT*(I$,1)="N" TH 
58 PRINT TRB<23>; "WORD 
68 PRINT " THIS PROGRAM 
78 PRINT "THE PROGRAM Tfl 
NON-ALPHRBETIC 
THEM INTO fl WO 



88 PRINT ' 
90 PRINT ' 
193 PRINT 
110 PRINT 
120 PRINT 
138 PRINT 



IN THE COUR 
FIND THAT IT 
50 WILL RSK V 
140 PRINT "OVER. IF VOU 
150 PRINT "WILL THROW RW 
168 PRINT "TRV EITHER GI 
178 PRINT0979, "PRESS RN 
188 IF INKEV$=" THEN 18 
190 CLEAR 3880 
208 INPUT "DO VOU WRNT T 
210 IF LEFT$<PR$, 1)="N" 
220 INPUT "HOW MRNV COLU 
238 INPUT "DO VOU WRNT fl 
240 INPUT "WHAT IS TO BE 
258 IF W*2<=TW THEN 270 
260 PRINT "THAT WILL NOT 
278 IF WCL THEN 243 
288 INPUT "THE LENGTH"; L 
290 IF L<1 THEN 288 
300 INPUT "WHRT IS THE tl 
318 IF M>=2 THEN 330 
320 PRINT "SORRV; THERE 
330 DIM fl*<L,W>,W$(M> 
340 DIM W<M,3),DXV<8,2>,t 
358 PRINT "NOW ENTER R H 
360 PRINT TABC15); "<"; 
370 INPUT XV$ 
380 CLS 

390 PRINT "OK . ENTE 
480 PRINT "TO REDO THE P 
418 PRINT "WHEN VOU RUN 
428 SC=328: FOR 1=1 TO M 
430 PRINT0192, "NEXT WOR 
440 IF T$0"-" THEN 470 
458 SC=SC-16: PRINT0192, 
460 INPUT T$: GOTO 448 
470 IF TS=". " THEN (1=1-1 
480 IF LEN(T$>=8 THEN PR 
<T. .F LEN<T*>=8 THEN IN 
500 TE$=MID*<T*, J, 1) : IF 
510 IF TE*< n A" OR TE$>"Z 
520 T$=LEFT*<T$, J-1HCHR 
530 GOTO580 

540 IF TE$=T$ THEN T$="" 
550 IF J=LEN<T$> THEN T$ 
560 IF J=l THEN T*=RIGHT 
570 T$=LEFT*<T$, J-1HRIG 
580 J=J+1: IF J<=L£N<T$> 
590 IF LEN<T*»MD THEN 6 
688 FOR 12=1 TO 1-1: IF 
610 NEXT: PRINT0SC, "-" 
620 IF LEN(T$)+FL>16 THE 
630 GOTO 680 
640 PRINTC192, 
650 GOTO 448 
660 PRINT8192, 
670 GOTO 440 
680 W«I>=T* 
690 NEXT I 
788 REM 

710 CLS: PRINT 
720 FOR 1=1 TO M-l 
738 FOR J=I+1 TO M 
740 IF LEN(W$<I» < LEN< 
750 NEXT J, I 

760 FOR 1=1 TO 8: READ t 
770 FOR 1=1 TO 28: RERD 



SEARCH PUZZLE" 

:OPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

"DO VOU NEED INSTRUCTIONS"; I* 
M CLS: GOTO 190 ELSE CLS 
EARCH PUZZLE"' PRINT 

IS A WORD SERRCH PUZZLE GENERATOR! !" 
.'ES A SET OF INPUT STRINGS, PURGES ALL" 

CHARACTERS OUT OF THEM, RND INCORPORATES" 
!D SEARCH PUZZLE. " 

!E OF MAKING THE PUZZLE, THE MACHINE MRV" 
:AN'T PUT A PARTICULAR WORD ANVWHERE, AND" 
)U IF IT SHOULD START THE WHOLE PUZZLE" 
DON'T WANT IT TO START OVER, TVPING 'NO'" 
IV THAT PARTICULAR WORD. IF THIS PERSISTS, " 
>ING LESS WORDS OR BIGGER PUZZLE DIMENSIONS!" 
' KEV TO CONTINUE"; 
) ELSE CLS 

IIS TO GO TO THE PRINTER "; PR* 

"HEN TW=64: GOTO 230 

INS DOES VOUR PRINTER HAVE "; TW 

SOLUTION PRINTOUT"; X* 

THE WIDTH OF THE PUZZLE"; W: MD=W 

FIT IN";TW;" COLUMNS. ": GOTO 240 

IF L>W THEN MD=L 

1XIMUM NUMBER OF WORDS IN THE PUZZLE"; M 

1UST BE AT LEAST 2 WORDS. ": GOTO 308 

D(28) 

M>ING THRT WILL BE PRINTED OVER THE PUZZLE:" 

'W; "CHARACTERS MAXIMUM! )" 



! A WORD RT EACH QUESTION MARK. " 
EVIOUS WORD, TVPE A HVPHEN <-). " 
HJT OF WORDS, TVPE A PERIOD <. X " 

) "; CHR$<38>; : INPUT T$ 
1SE 1=1-1 
"REDO "; W$<I>; " . "; CHR$<38>; 

GOTO 710 
:NT@192, "INPUT ERROR; REDO:"; CHR$G0>; 
>UT TS: GOTO 448 ELSE J=l 
TE£>="A" AND TE*<="Z" THEN 580 
' THEN 540 
;<ASC<MID*<T$,J,1)»+RIGHT$<T$,LEN<T*>-J> 

GOTO 488 
=LEFT$<T$,J-1): GOTO 618 
J<T*,LEN<T$)-1>: J=J-1: GOTO 580 
ma$, LEN<T$)-J) • J=J-1 

THEN 500 

10 

J$<IZ)=T$ THEN 660 

It; "-"; CHR*(31); : SC=SC+16: FL=2 
I SC=SC+16: FL=FL-16: GOTO 620 



STRING T) LONG; REDO: ";CHR*<30>; INPUT 1$ 
'DUPLICA7 : ENTRV; REDO: "; CHR*<30>; INPUT T* 



NON LET IE PONDER THIS. . 



IF XK1 OR X1>W THEN 830 
IF X1<1 OR X1>L THEN 830 



IN THE PUZZLE. 



«<J>) THEN HZ$=W$<I>: W*<D=W*<J>: W*<J)=HZ* 



<V(1, 1), DXVCI, 2) ■ NEXT 
)D<D- NEXT 



788 DUTA 0, 1, 1, 1, 1, 8, 1, -1, 0, -1, -1, -1, -1, 0, -1, 1 
790 DATA 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 2, 4, 6, 8, 1, 3, 5, 7 
880 FC-R 1=1 TO M 
818 LH=LEN<W$(I» 
820 NT=0 

830 SP=DD<RND<28>> 

840 SX=RND<W>: X1=SX+(LN-1)*DXV<SD,1): 
850 S/=RND<L): X1=SV+<LN-1>*DXV<SD,2>- 
868 NF=NT+1: IF NTOW*L*2 THEN 910 
870 P?INT "COULDN'T FIT '"; W$<I); "' 
888 INPUT "DO VOU WANT ME TO START OVER";A$ 
890 I- LEFWAJ, 1)="V" THEN 888 
980 Ws<D="": GOTO 998 
910 J==SV: K=SX 
928 FOR P=l TO LN 

930 IF LEN(A$<J,K» AND A$(J,K)ONID*(W$<D,P,l> THEN 838 
940 J=J+DXV<SD,2>: K=K+DXV<SD, 1) : NEXT P 
950 J«SV: K=SX 

960 F3R P=l TO LN: A$<J,K)=MID$<W$<I>,P,D 
970 J=J+DXV(SD, 2) ' K=K+DXV<SD,1): NEXT P 
980 W(I,1)=SX: W<I,2>=SV: W<I,3)=SD 
990 NEXT I 
1000 FOR 1=1 TO L 
1018 FOR J=l TO W 

1828 IF A«I,J>="" THEN AJ<I, J)=CHR$<RND<26>+96> 
1830 NEXT J, I 

1040 FOR 1=1 TO M-l: FOR J=I+1 TO M 
1050 IF W«IX=W$a> THEN 1080 
1868 HZ*=W*<D: W$<D=W$(J)- W$<J)=HZ$ 

1878 FOR K=l TO 3: HZ=W(I,K>: W<I,K>=WU,K>: W<J,K)=HZ: NEXT K 
1880 I1EXTJ: NEXT I 

1898 INPUT "HOW MANV COPIES OF THIS PUZZLE DO VOU WANT";N 
1188 PRINT "FOR ERCH COPV, HIT RETURN TO BEGIN PRINTING. . . "; 
1118 FOR C=l TO N: GOSUB 1120: NEXT C: GOTO 1400 
1120 PRINT PM$; INPUT fl$: PRINT: PR*=LEFT$<PR*, 1) 
1130 3 Mt= , HIT ENTER TO CONTINUE " 
1148 T=(TW-2*W)/2:CLS: PR=<PR$="V">: TS=(64-2*WV2 
1150 IF PR THEN LPRINT" " 
1160 PRINT: IF PR THEN LPRINT" " 
1170 CLS: PRINT TRB«64-LEN<XV$))/2>;XV* 
1180 IF PR THEN LPRINT TfiB<<TW-LEN<XV$)V2>; XV$ 
1190 PRINT: PRINT. IF PR THEN LPRINT" "■ LPRINT" " 
1200 FOR .1=1 TO L: PRINT TAB<TS>; : IF PR THEN LPRINT THB(T); 
1210 FOR K=l TO W: IFA$(J, KX>", " THEN 1240 
1220 PRINT " "; : IF PR THEN LPRINT " "; 
1230 (SOTO 1250 

1240 PRINT A*U,K>; " "; IF PR THEN LPRINT H*<J,K>; " «; 
1250 HEXT K: PRINT: IF PR THEN LPRINT" " 
1268 NEXT J 

1278 PRINT: PRINT: IF PR THEN LPRINT" ": LPRINT" " 
1288 P0=8: PRINT "FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE:" 
1298 IF PR THEN LPRINT "FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE: 
1380 PRINT: IF PR THEN LPRINT" " 
1310 FOR J=l TO M:IF LEN<W$<J»=0 THEN 1370 
1320 IF P0S(8HLEN<W$(J»>62 THEN PRINT 
1338 IF PR THEN IF P0+LEN<W$<J)»TW-2 THEN LPRINT" ": PO=0 
1348 PRINT ma), IF PR THEN LPRINT W$<J>, 
1358 ?0=P0+16 

1368 REM CHR*<12) IS THE PRINTER FORM FEED CHARACTER 

1370 NEXT J: PRINT: PRINT: PRINT: PRINT 

1388 IF PR THEN LPRINT" ": LPRINT" ": LPRINT" "• LPRINT" " 

1390 RETURN 

1488 IF LEFTKX*, 1>="V" OR LEFWX*, 1)="V" THEN 1420 

1410 RUN "MENU" 

1428 REM 

1438 FOR 1=1 TO L. FOR J=l TO W: A*(I,J>= 

1448 FOR 1=1 TO M 

1458 LN=LEN(W$<D>: J=W<I,2>- K=W<I,1> 

1460 FOR P=l TO LN 

1478 fl*CJ,K>=MID$<WJ<D,P,l> 

1480 J=J+DXY<W<L3>,2>: K=K+DXV<W<I,3),1): NEXT P 

1490 HEXT I 

1500 :;V$="HERE IS THE ANSWER KEV" 

1510 GOSUB 1120 

1528 PRINT: PRINT 

1530 END 



NEXT J: NEXT I 
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The Genesis of Wumpus 

Two years ago I happened by People's Computer 
Company (PCC) and saw some of their computer games — 
such as Hurkle, Snark, and Mugwump. My reaction was: 
"EECH!!" Each of these games was based on a 10 x 10 grid 
in Cartesian co-ordinates and three of them was too much 
for me. I started to think along the lines of: "There has to 
be a hide and seek computer game without that (exp. 
deleted) grid!!" In fact, why not a topological computer 
game — Imagine a set of points connected in some way and 
the player moves about the set via the interconnections. 

That afternoon in meditation the phrase "Hunt the 
Wumpus" arrived, and Wumpus was born. He's still a bit 
vague in physical detail as most dedicated Wumpus hunters 
know, but appearances are part of the game. (If you like, 
send me a picture of your version of a Wumpus. Perhaps 
friendly Dave, our editor, will publish the best one in 
Creative Computing.) The grid I chose was the vertices of a 
dodecahedron — simply because it's my favorite Platonic 
solid and once, ages ago, I made a kite shaped like one. The 
edges became the connecting tunnels between the caves 
which were the set of points for the game. 

My basic idea at this time was for the player to approach 
the Wumpus, back off, and come up to him by going 
around the dodecahedron. To my knowledge, this has never 
happened . . . most players adopt other strategies rather 
than this cold-blooded approach. 

Anyway . . . how to get the Wumpus! How about an 
arrow which could turn corners as it goes from room to 
room. Let the hunter tell the arrow where to go and let it 
fly. The shortest round trip without reversals is 5 caves — 
and thus the Crooked Arrow. 

Hmmrn . . . How does one sense the Wumpus? It's dark 
in yonder cave, and light would wake him up. If one got 
one cave away, the wumpus's distinct smell would serve as a 
warning. So far, so good . . . but Wumpus is still too easy, 
so let's find some appropriate hazards for the caves. 

Bottomless pits were easy. Any imaginary cave would 
have a few of those around the place. Superbats were 
harder to come by. It took me a day or two to get that 
idea. The Superbats are a sort of rapid transit system gone a 
little batty (sorry about that one). They take you a random 
distance to a random cave and leave you there. If that's a 
pit or a Wumpus, well, you are in Fate's hands. 

Around this time, I saw that Map-making would be a 
regular activity of Wumpus-hunters. I numbered the caves 
and made the scheme fixed in the hopes a practised player 
might notice this and make himself a permanent map of the 
caverns. (Another unrealised hope — as an exercise, make 
yourself such a map on a Squashed Dodecahedron). 

To start the game fairly, Wumpus, Hazards, and Hunter 
are located on different points at the start of the game. 
Each game starts with random choices of location, but the 




A Squashed 
Dodecahedron 



hunter may restart with the same set-up if he chooses. This 
allows re-plays if the hunter, say, fell into a pit on the first 
move. 

Wumpus was nearly done in my mind . . . (hint to a 
games-writer: Have a clear notion of your game before you 
start coding it. This saves MUCH confusion.) yet I felt it 
was a bit dull. Once you found the Wumpus all you had to 
do was shoot it. To fix this, the Wumpus was given a little 
life. If you shot an arrow or moved into his cave, he woke 
up and chose to move to a neighboring room or to the same 
room (one of 4 choices). If you and the Wumpus were in 
the same room after he moved, he ATE YOU UP!! 

Around here I noticed that the pits and the bats didn't 
affect the Wumpus. To explain this, I added some color by 
making him heavy and with the legendary sucker feet. After 
all, evolution works in strange ways!! If you are a Wumpus 
fiend, make a version of Wumpus in which he avoids pits and 
superbats can carry him only one room (with the possibility 
of being dumped into your cave). This can be done by 
making the wumpus moving procedure a subroutine. 

I wrote Wumpus and dropped it off at PCC. Then I went 
home and dreamed up Wumpus II 

The Birth of Wumpus 

Around a month later, 1 went to the Synergy conference 
at Stanford, where many of the far-out folk were gathered 
to share their visions of improving the world. PCC had a 
few terminals running in a conference room and I dropped 
by. To my vast surprise, all of the terminals were running 
Wumpus and scraps of paper on the floor with scrawled 
numbers and lines testified that much dedicated Wumpus- 
hunting was in progress. I had spawned a hit computer 
game!! I 

Later, PCC published Wumpus in its newsletter, and 
Creative Computing published it in their Sep/Oct 1975 
issue. 

Wumpus and this writeup are the products of the talented 
and creative Gregory Yob. 
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WUMPUS 1 
COPVRIGHT 197S CREATIVE COMPUTING MORRISTOWN, NJ 
DO VOU MEED INSTRUCT! 3NS? VES- 



HUNT THE WUMPUS 



ols ■ 



WUMPUS 1 

THE WUMPUS LIVES II A CAVE OF 20 ROOMS. EACH ROOM 
HAS 3 TUNNELS LEADINt TO OTHER ROOMS. <LOOK AT A 
DODECAHEDRON TO SEE I ON THIS WORKS - IF VOU DON'T KNOW 
WHAT A DODECHADRON I: , ASK SOMEONE) 

HAZARDS. 
BOTTOMLESS PITS - TW i ROOMS HAVE BOTTOMLESS PITS IN THEM 

IF VOU GO THERE VOU FALL INTO THE PIT « LOSE!) 
5UPERBHTS - TWO OTHE : ROOMS HAVE SUPER BATS. IF VOU 

GO THERE, A BAT GRABS VOU AND TAKES VOU TO SOME OTHER 

ROOM AT RANDOM. (WHICH MIGHT BE TROUBLESOME) 



P !£SS ANV KEV TO CONTINUE 
| 8 



WUMPUS 1 

WUMPUS. 

THE WUMPUS IS NOl BOTHERED BV THE HAZARDS <HE HAS SUCKER 
FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLV 
HE IS ASLEEP. TWO THNGS THRT WAKE HIM UP: VOUR ENTERING 
HIS ROOM OR VOUR SHC DTING AN ARROW. 

IF THE WUMPUS WA> ES, HE MOVES (P= 75) ONE ROOM 
OR STHVS STILL <P=. ; 5). AFTER THAT, IF HE IS WHERE VOU 
ARE, HE EATS VOU UP (« VOU LOSE!) 

F RESS ANV KEV TO CONTINUE 



els ■ 



WUMPUS i 



VOU: 



EACH TURN VOU MAV Ml VE OR SHOOT A CROOKED ARROW 

MOVING: VOU CAM GO ONE ROOM (THRU ONE TUNNEL) 

ARROWS. VOU HA' E 5 ARROWS. VOU LOSE WHEN VOU RUN OUT. 

EACH RRROW CAN GO FROM 1 TO 5 ROOMS. VOU AIM BV TELLING 

THE COMPUTER Tl E ROOMS VOU WANT THE ARROW TO GO TO. 

IF THE ARROW C IN'T GO THAT WAV (I. E. , NO TUNNEL) IT MOVES 

AT RANDOM TO T IE NEXT ROOM. 

IF THE ARROW HITS THE WUMPUS, VOU WIN. 
IF THE ARROW HITS VOU, VOU LOSE. 

'RESS ANV KEV TO CONTINUE 



WUMPUS 1 

WARNINGS: 
WHEN VOU ARE 3NE ROOM AWAV FROM WUMPUS OR HAZARD, 
THE COMPUTER «WS: 

HUMPUS- 'I SMELL 1 WUMPUS' 
BAT - 'BATS NEf ?BV 
PIT - 'I FEEL f DRAFT' 

PRESS ANV KEV TO CONTINUE 

CIS 



I SMELL A WUMPUS! 
VOU ARE IN ROOM 7 
TUfWELS LEAD TO 6 



8 1? 



SHOOT OR MOVE <S-M)? S 
NO. OF R00MS(i-5>? 1 
ROOM #? 17 
HISSED 



HUNT THE WUMPUS 



VOU ARE IN ROOM 7 
TUNNELS LEAD TO 6 8 17 

SHOOT OR MOVE (S-M)? M 
HHERE TO? a. 



■ els • 



HUNT THE WUMPUS 



I SMELL A fcUMPUS! 
I FEEL A DRAFT 1 
VOU ARE IN ROOM 8 
TUNNELS LEfD TO 1 



7 9 



SHOOT OR MOVE (S-M)' S 
NO. OF RO0MS(l-5>? 1 
ROOM #? 1- 




AHA! VOU G3T THE WUMPUS! 

KEE HEE HEE - THE WUMPUS'LL GETCHA NEXT TIME! ! 

SAME SET-IP (V-N) OR '0' TO QUIT 
? Q_ 



VOU ARE IN ROOM 6 
TUNNELS LEAD TO 5 7 

SHOOT OR MOVE (S-M)' M 
WERE TO? 7. 



HUNT THE WUMPUS 



15 



■ Cl3 ■ 



HUNT THE WUMPUS 



1 SMELL A WUMPUS! 
YOU ARE IN ROOM 7 
TUNNELS LEAD TO 6 8 17 

SHOOT OR MOVE (S-M) ' S 
IB. OF RO0MS(i-5>? . 
ROOM #? 17. 
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IB CLS: PRINT0412, "WUMPUS 1" 

26 PRINT. PRINT TAB(7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINT£)S0, ""; . INPUT "DO VOU NEED INSTRUCTIONS"; I* 

40 IF LEF-«»,1)="N" THEN 60 

58 GOSUB 618 

69 CLS. REM- SET UP CAVE (DODECAHEDRAL NODE LIST) 

79 DIM S(23,3) 

88 FOR J=l TO 20 

98 FOR K=l TO 3 

100 READ S<J,K) 

110 NEXT K 

120 NEXT J 

130 DATA 2, 5, 8, 1, 3, 10, 2, 4, 12, 3, 5, 14, 1, 4, 6 

140 DATA 15, 7, 15, 6, 8, 17, 1, 7, 9, 8, 10, 18, 2, 9, 11 

158 DATA 10, 12, 19, 3, 11, 13, 12, 14, 20, 4, 13, 15, 6, 14, IS 

168 DATA ::5, 17, 20, 7, 16, 8, 9, 17, 19, 11, 18, 20, 13, 16, 19 

170 REM- LOCATE L ARRAV ITEMS 

180 REM- :.-VOU, 2-WUMPU5, 3S4-PITS, 5S6-BATS 
198 DIM L<i5),M(6) 

280 FOR J==i TO 6 

210 L(J)=RMD(20) 

220 M(J)=L(J) 



230 NEXT J 

240 REM- CHECK FOR CROSSOVERS (IE L(1)=L(2) ETC) 

258 FOR J=l TO 6 

260 FOR K=\F TO 6 

278 IF J=K THEN 238 

288 IF L(J)=L(K) THEN 218 

298 NEXT K 

380 NEXT J 

310 REM- SET# RRROS 

320fl=5 

330 L=L(1) 

340 REM- RUN THE GAME 

350 CLS: PRINT THB(24); "HUNT THE WUMPUS": PRINT 

368 REM- HAZARD WARNINGS S LOCATIONS 

378 FOR AX=1 TO 1888: NEXT: PRINT8128, CHR$(3i>; : GOSUB 1108 

380 REM- MOVE OR SHOOT 

390 GOSUB 1270 

408 ON GOTO 428,468 

410 REM- SHOOT 

420 GOSUB 1368 

438 IF F=8 THEN 378 

448 GOTO 488 

450 REM- MOVE 

460 GOSUB 1868 

478 IF F=8 THEN 378 

488 IF F>8 THEN 538 

490 REM- LOSE 

500 PRINT "HA HA Hfl - VOU LOSE!" 

510 GOTO 540 

520 REM- HIN 

530 PRINT "HEE HEE HEE - THE MUMPUS'LL GETCHH NEXT TIME! "' 

540 FOR J=l TO 6 

550 L(J)=M(J) 

560 NEXT J 

570 PRINT: PRINT "SAME SET-UP (Y-N) OR 'Q' TO SUIT" 

588 INPUT I* 

598 I*=LEFT*(I*,1) 

688 IF I*="N" THEN 208 ELSE IF I*=»Y" THEN 328 ELSE END 

610 REM ***** INSTRUCTIONS ***** 

620 CLS: PRINT TAB(28); "WUMPUS 1": PRINT 

638 PRINT " THE WUMPUS LIVES IN A CAVE OF 28 ROOMS. EACH ROOM" 

640 PRINT "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A" 

650 PRINT "DODECAHEDRON TO SEE HOW THIS WORKS - IF VOU DON'T KNOW" 

660 PRINT "WHAT A DODECHHDRON IS, ASK SOMEONE)" 

S?!) PRINT 

680 PRINT " HAZARDS:" 

690 PRINT "BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM" 

788 PRINT " IF VOU GO THERE, VOU FALL INTO THE PIT « LOSE!)" 

710 PRINT "SUPERBRTS - TWO OTHER ROOMS HAVE SUPER BATS. IF VOU" 

720 PRINT " GO THERE, A BAT GRABS VOU AND TAKES VOU TO SOME"; 

730 PRINT " OTHER" 

740 PRINT " ROOM AT RANDOM. (WHICH MIGHT BE TROUBLESOME)" 

?58 PRINT0979, "PRESS HNV KEV TO CONTINUE"; 

760 IF INKEV$=" THEN 760 aSE PRINT&128, CHR*(31); 

770 PRINT " WUMPUS:" 

780 PRINT " THE WUMPUS IS NOT BOTHERED BV THE HAZARDS (HE HAS SUCKER" 

790 PRINT "FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLY" 

800 PRINT "HE IS ASLEEP. TWO THINGS THAT WAKE HIM UP: VOUR ENTERING" 

818 PRINT "HIS ROOM OR VOUR SHOOTING AN ARROW. " 

820 PRINT " IF THE WUMPUS WAKES, HE MOVES (P= 75) ONE ROOM" 

830 PRINT "OR STAVS STILL (P=. 25). AFTER THAT, IF HE IS WHERE VOU" 

848 PRINT "ARE, HE EATS VOU UP (& VOU LOSE!)" 

858 PRINT8979, "PRESS ANV KEV TO CONTINUE"; 

868 IF INKEY*="» THEN 860 ELSE PRINT0128, CHR*(31); 

870 PRINT " VOU:" 

880 PRINT "EACH TURN VOU MAV MOVE OR SHOOT A CROOKED ARROW": PRINT 

890 PRINT ■ MOVING: VOU CAN GO ONE ROOM (THRU ONE TUNNED" 

900 PRINT " ARROWS: VOU HAVE 5 ARROWS. VOU LOSE WHEN VOU RUN OUT. " 

910 PRINT " EACH ARROW CAN GO FROM 1 TO 5 ROOMS. VOU HIM BV "; 

920 PRINT "TELLING" 

930 PRINT " THE COMPUTER THE ROOMS YOU WANT THE ARROW TO GO TO. " 

940 PRINT " IF THE ARROW CAN'T GO THAT WAV (I. E. , NO TUNNEL) IT "; 

950 PRINT "MOVES" 

968 PRINT " AT RANDOM TO THE NEXT ROOM. " : PRINT 

978 PRINT " IF THE ARROW HITS THE WUMPUS, VOU WIN. " 

988 PRINT " IF THE ARROW HITS VOU, VOU LOSE. " 

998 PRINTO979, "PRESS ANV KEV TO CONTINUE"; 

1880 IF INKEY*="" THEN 1000 ELSE PRINTO128, CHR*(31); 

1010 PRINT " WARNINGS:" 

1020 PRINT " WHEN VOU ARE ONE ROOM AWAV FROM WUMPUS OR HAZARD, " 

1030 PRINT " THE COMPUTER SAVS:":PRINT 

1040 PRINT "WUMPUS- 'I SMELL A WUMPUS" 



- 'BATS NEARBY'" 

- 'I FEEL A DRAFT'" 
"PRESS ANV KEV TO CONTINUE"; 
" THEN 1888 ELSE PRINT6128, CHR*(31); 



1050 PRINT "BAT 

1060 PRINT "PIT 

1070 PRINT§979, 

1088 IF INKEY*= 

1898 RETURN 

1188 REM- PRINT LOCATION S HAZARD WARNINGS 

1118 PRINT 

1120 FOR J= 2 TO 6 

1130 FOR K=l TO 3 

1140 IF S(L(1), K)OL(J) THEN 1210 

1150 ON J-l GOTO 1160, 1180, 1180, 1200, 1200 

1168 PRINT "I SMELL A WUMPUS!" 

1178 GOTO 1218 

1180 PRINT "I FEEL A DRAFT!" 

1190 GOTO 1210 

1208 PRINT "BATS NEARBY 1 " 
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1218 NEXT K 

1228 NEXT J 

1238 PRINT "YOU ARE IN ROOM ";L(D 

1248 PRINT "TUNNELS LEAD TO «;S(L,1);S(L,2);S(L,3) 

1258 PRINT 

1268 RETURN 

1278 REM- CHOOSE OPTION 

1280 PRINT "SHOOT OR MOVE (S-M)«; 

1298 INPUT I* 

1300 IF I*<>"S" THEN 1330 

1310 0=1 

1328 RETURN 

1338 IF I*<>"M" THEN 1288 

1348 0=2 

1358 RETURN 

1360 REM- ARROW ROUTINE 

1378 F=B 

1388 REM- PATH OF ARROW 

1399 L=L(1) 

1408 PRINT "NO. OF R00MS(l-5)"; 

1418 INPUT J9 

1428 IF J9<1 OR J9>5 THEN 1480 

1430 FOR K=l TO J9 

1448 PRINT "ROOM #"; 

1458 INPUT P(K) 

1468 IF K<=2 THEN 1508 

1478 IF P(K)OP(K-2) THEN 1508 

1488 PRINT "ARROWS AREN'T THAT CROOKED - TRV ANOTHER ROOM" 

1490 GOTO 1440 

1508 NEXT K 

1510 REM- SHOOT ARROW 

1520 FOR K=l TO J9 

1538 FOR Kl=l TO 3 

1548 IF S<L,K1)=P(K) THEN 1788 

1558 NEXT Kl 

1568 REM- NO TUNNEL FOR ARROW 

1570 L=S(L,RND(3» 

1588 GOTO 1718 

1598 NEXT K 

1600 PRINT "MISSED" 

1610 L=L(1) 

1628 REM- MOVE WUMPUS 

1638 GOSUB 1780 

1648 REM- AMMO CHECK 

1650 A=A-1 

1668 IF A>0 THEN 1688 

1678 CLS: PRINT "YOU'RE OUT OF ARROWS": PRINT: F=-l 

1688 RETURN 

1690 REM- SEE IF ARROW IS AT L(l) OR L(2) 

1788 L=P(K) 

1718 IF LOL(2) THEN 1758 

1720 CLS: PRINT "AHA! VOU GOT THE WUMPUS!" 

1738 F=l 

1740 RETURN 

1758 IF LOL(l) THEN 1590 

1760 CLS: PRINT "OUCH! ARROW GOT YOU!" 

1770 F=-i: RETURN 

1780 REM- MOVE WUMPUS ROUTINE 

1790 K=RND(4) 

1880 IF K=4 THEN 1820 

1818 L(2)=S(L(2),K) 

1828 IF L(2)OL THEN 1850 

1838 CLS: PRINT "TSK TSK TSK - WUMPUS GOT VOU!" 

1840 F=-l 

1850 RETURN 

1868 REM- MOVE ROUTINE 

1870 F=0 

1888 PRINT "WHERE TO"; 

1890 INPUT L 

1900 IF L<1 OR L>20 THEN 1880 

1918 FOR K=l TO 3 

1920 REM- CHECK IF LEGAL MOVE 

1930 IF S(L(1), K)=L THEN 1998 

1940 NEXT K 

1958 IF L=L(1) THEN 1990 

I960 PRINT "NOT POSSIBLE -"; 

1970 GOTO 1880 

1988 REM- CHECK FOR HAZARDS 

1990 L(1)=L 

2808 REM- WUMPUS 

2010 IF LOL(2) THEN 2080 

2020 PRINT "... OOPS! BUMPED A WUMPUS!" 

2830 REM- MOVE WUMPUS 

2040 GOSUB 1790 

2058 IF F=8 THEN 2080 

2868 RETURN 

2978 REM- PIT 

2880 IF LOL(3) AND LOL(4) THEN 2130 

2090 PRINT "VVYIIIIEEEE FELL IN PIT" 

2108 F=-l 

2110 RETURN 

2128 REM- BATS 

2130 IF LOL(5) AND LOL(6) THEN 2178 

2140 PRINT "ZAP— SUPER BAT SNATCH! ELSEWHEREVILLE FOR VOU 1 " 

2150 L=RND(20) 

2160 GOTO 1998 

2170 RETURN 

2180 END 
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tut, you've got it!! The drawing tries 
j prefer, think of it as a complicated 
, Play in this one is very similar to 



nnel leads to another cave and only 
i pair of caves. This need not be a 
:t two caves illustrate variations on 
i branching pattern like a tree or a 
he plant are "leaves" which are caves 
or multiple tunnels. This cave is 
o severance by pits and getting stuck 
impus. A nice thing is that you often 
ere the Wumpus is when you come 



CAVE 5 (one way streets) 

This is the extreme example of all tunnels are one-way. 
You will find that getting about this cave is like travel in 
Los Angeles - much going to get to the neighbor's house. If 
you oversroot, you must travel all the way around, just like 
missing a f -eeway offramp. 

CAVE 6 4Do Your OWN) 

Draw up a map of caves, each cave with tunnels GOING 
TO three (exactly three) caves (same or different). Then the 
computer will ask you for the numbers of the destination 
tunnels for each of the 20 caves in Wumpus. When you have 
it entered, play Wumpus on your own caves. Let me know 
of your favorite ones, and your most frustrating ones!!! 

FINIS 

In any case, Wumpus has spawned several versions and 
spread about the computer games-dom really nicely. For 
myself, the soul of the game is in the idea and fun of it 
rather than the program or the computer which hosts it. I 
feel that all really good games will turn programmers on 
enough for them to write it for their system from the idea 
alone and encourage games writers to think carefully on the 
art and esthetics of their games before writing a line of 
code. 

Wumpu3-2 and this description are products of Gregory 
Yob. They appeared previously in Creative Computing, 
Jan/Feb 1 976 and the game in People's Computer Co. 



THE 

CAVES 
OF 

WUMPUS 2 
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Cave 6 
(Anything You Like) 



WUMPUS II 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 

DO VOU NEED INSTRUCTIONS? VES_ 

els 



*** HflPPV HUNTING! *** 



OWE # (B-6) ■> 4_ 



*** HUNT THE WUMPUS *** 



WELCOME TO WUMPUS II 

THIS VERSION HfiS THE SAME RULES AS 'HUNT THE WUMPUS' 
HOWEVER, VOU NOW HAVE A CHOICE OF CAVES TO PLAV IN. 
SOME CAVES ARE EASIER THAN OTHERS. ALL CAVES HAVE 20 
ROOMS AND 3 TUNNELS LEADING FROM ONE ROOM TO OTHER ROOMS. 

THE CAVES ARE: 
- DODECAHEDRON: THE ROOMS OF THIS CAVE ARE ON A 
12-SIDED OBJECT, EACH FORMING A PENTAGON. 
THE ROOMS ARE AT THE CORNERS OF THE PENTAGONS. 
EACH ROOM HAVING TUNNELS THAT LEAD TO 3 OTHER ROOMS 

PRESS ANV KEV TO CONTINUE 



■ ols ■ 



WELCOME TO WUMPUS II 

1 - MOBIUS STRIP: THIS CAVE IS TWO ROOMS 

WIDE AND 10 ROOMS AROUND <LIKE A BELT). 
VOU WILL NOTICE THERE IS A HALF TWIST 
SOMEWHERE. 

2 - STRING OF BEADS; FIVE BEADS IN A CIRCLE. 

EACH BEAD IS A DIAMOND WITH A VERTICAL 
CROSS-BAR. THE RIGHT & LEFT CORNERS LEAD 
TO NEIGHBORING BEADS. (THIS ONE IS DIFFICULT 
TO PLAV). 

PRESS ANV KEV TO CONTINUE 



• CIS ■ 



WELCOME TO WUMPUS II 

3 - HEX NETWORK. IMAGINE A HEX TILE FLOOR TAKE 
A RECTANGLE WITH 20 POINTS (INTERSECTIONS) 
INSIDE (4X4). JOIN RIGHT & LEFT SIDES TO MAKE A 
CVLINDER. THEN JOIN TOP & BOTTOM TO FORM A 
TORUS (DOUGHNUT). 
HAVE FUN IMAGINING THIS ONE! ! 

CAVES 1-3 ARE REGULAR IN THE SENSE THAT EACH ROOM 
GOES TO THREE OTHER ROOMS & TUNNELS ALLOW TWO- 
HAV TRAFFIC. HERE ARE SOME 'IRREGULAR' CAVES: 

PRESS ANV KEV TO CONTINUE 



WELCOME TO WUMPUS II 

DENDRITE WITH DEGENERACIES: PULL A PLANT FROM 
THE GROUND. THE ROOTS & BRANCHES FORM A 
DENDRITE - I. E. , THERE ARE NO LOOPING PATHS. 
DEGENERACV MEANS A) SOME ROOMS CONNECT TO 
THEMSELVES AND B) SOME ROOMS HAVE MORE THAN ONE 
TUNNEL TO THE SAME OTHER ROOM, I. E. . 12 HAS 
TWO TUNNELS TO 13. 

ONE WAV LATTICE: HERE ALL TUNNELS GO ONE 

WAV ONLV. TO RETURN, VOU MUST GO AROUND THE CAVE 

(ABOUT 5 MOVES). 



PRESS ANV KEV TO CONTINUE 
els 



WELCOME TO WUMPUS II 

ENTER VOUR OWN CAVE: THE COMPUTER WILL ASK YOU 
THE ROOMS NEXT TO EACH ROOM IN THE CAVE. 

FOR EXAMPLE: 

ROOM #1 ? 2,3,4 - VOUR REPLV OF 2, 3, 4 

MEANS ROOM 1 HAS TUNNELS GOING TO ROOMS: 

2, 3, & 4. 



VOU ARE IN ROOM 28 — TUNNELS LEAD TO 16 20 28 
SHOOT OR MOVE "> M 
WHERE TO ? 16. 



■ els • 



*** HUNT THE WUMPUS *« 



I FEEL A DRAFT' 
I FEEL A DRAFT! 
VOU ARE IN ROOM 16 — TUNNELS LEAD TO 14 19 20 

SHOOT OR MOVE ? M 

KHERE TO ■> 14. 



*** HUNT THE WUMPUS *** 

WVIIIEEEE . FELL IN A PIT 1 
HA HA HA - VOU LOSE! 
PLAV AGAIN? VES 



SAME SET-UP ■> NO 
CAVE # (0-6) ? 1. 



*** HUNT THE WUMPUS *** 



- els ■ 



VOU ARE IN ROOM 20 — TUNNELS LEAD TO 1 18 19 
SHOOT OR MOVE ■> M 
mERE TO ? 1. 
els 



*** HUNT THE WUMPUS *** 

VOU ARE IN ROOM 1 — TUNNELS LEAD TO 28 2 
SHOOT OR MOVE ? N 
WHERE TO ? 2_ 
els 



*** HUNT THE WUMPUS *** 

I FEEL A DRAFT 1 

VOU ARE IN ROOM 2 — TUNNELS LEAD TO 19 1 4 

SHOOT OR MOVE ? M 

KHERE TO ? 4. 



• els ■ 



*** HUNT THE WUMPUS *** 

WVIIIEEEE FELL IN A PIT 1 
HA HA HA - VOU LOSE! 
PLAV AGAIN? NO 



• els 
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10 CLS: PRINTC412, "HUM 

20 PRINT: PRINT TAB(7) 

38 PRINT0960, ""; INPU 

48 REM- WUMPUS VERSION ; 

58 DIM S(20, 3) 

68 DIM L(6),M(6),P(5) 

70 IF LEFT*(I*,i) O "V 

88 GOSUB 680 

38 REM- CHOOSE RND SET I 

100 GOSUB 2470 

118 REM LOCATE L RRRflV 

128 REM 1-YOU, 2-MUMPUS 

138 FOR J=i TO 6 

146 L(J)=RND(28) 

150 M(J)=L<J) 

160 NEXT J 

178 REM CHECK FOR CROSS 

188 FOR J=l TO 6 

198 FOR K=J TO 6 

260 IF J=K THEN 220 

218 IF L(J)=L(K> THEN 1 

22B NEXT K 

230 NEXT J 

248 REM SET * ARROWS 

250 ft=5 

268 L=L(1) 

278 REM- RUN THE GAME 

280 CLS: PRINT "*** HUN 

298 REM-HfiZARDS WARNING 

380 GOSUB 1210 

310 REM MOVE OR SHOOT 

320 GOSUB 1380 

338 ON GOTO 358, 390 

340 REM SHOOT 

350 GOSUB 1520 

368 IF F=0 THEN 320 

370 GOTO 410 

388 REM MOVE 

390 GOSUB 2090 

408 IF F=0 THEN 300 

418 IF F>0 THEN 460 

428 REM LOSE 

430 PRINT "HA HA HR 

440 GOTO 470 

450 REM WIN 

460 PRINT "HEE HEE HEE 

478 FOR J=l TO 6 

480 L(J)=M(J) 

490 NEXT J 

500 PRINT "PLAV AGAIN"; 

510 INPUT It 

520 PRINT 

530 PRINT 

540 IF LEFT*(I*,1X>"Y" 

558 PRINT "SAME SET-UP ' 

560 INPUT I* 

570 PRINT 

580 IF LEFT*(I$,DO"Y" 

590 GOTO 258 

680 CLS: REM- INSTRUCTK 

610 PRINT TAB(28); "WELC 

628 PRINT "THIS VERSION 



>US II 

'COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

r "DO YOU NEED INSTRUCTIONS"; It 



1 THEM CLS. GOTO 188 
P CAVE 



TEMS 
3S4-PITS, 5&6-BATS 



1VERS <IE L(1)=L(2) ETC) 



r THE WUMPUS ***" : PRINT 
J AND LOCATION 



VI U LOSE!" 



THE WUMPUS'LL GET YOU NEXT TIME! '" 



630 PRINT 


"HOWEVER, YOU 


640 PRINT 


"SOME CAVES A 


658 PRINT 


"ROOMS AND 3 


660 PRINT 






670 PRINT ' 


'THE CAVES ARE 


680 PRINT 


" 


- DODE 


690 PRINT 


" 


12-S 


788 PRINT 


" 


THE 


710 PRINT 


" 


EACH 


728 PRINT0979, 


"PRESS A; 


730 IF INKEY*=" 


" THEN 7 


740 PRINT 


" 1 


- MOB I 


750 PRINT 


" 


WIDE 


760 PRINT 


" 


YOU 


770 PRINT ' 




SOME! 


780 PRINT 






790 PRINT 


" 2 


- STRI 


888 PRINT 


" 


EACH 


810 PRINT 


» 


CRO£ 


828 PRINT 


" 


TO h 


830 PRINT 




TO P, 


848 PRINT§979, 


"PRESS A 



THEN 3448 



THEN 100 

NS 

(ME TO WUMPUS II": PRINT 

HAS THE SAME RULES AS 'HUNT THE WUMPUS' " 

NOW HAVE A CHOICE OF CAVES TO PLAY IN. " 

!E EASIER THAN OTHERS. ALL CAVES HAVE 20" 

"UNNELS LEADING FROM ONE ROOM TO OTHER ROOMS. 



:RHEDRON: THE ROOMS OF THIS CAVE ARE ON A" 

DED OBJECT, EACH FORMING A PENTAGON. " 

MOMS ARE AT THE CORNERS OF THE PENTAGONS. " 

ROOM HAVING TUNNELS THAT LEAD TO 3 OTHER ROOMS" 

IY KEY TO CONTINUE"; 

® ELSE PRINTU128, CHR*(31); 

IS STRIP- THIS CAVE IS TWO ROOMS" 

RND 10 ROOMS RROUND <LIKE A BELT). " 

(ILL NOTICE THERE IS fl HALF TWIST" 

HERE. " 

IG OF BEADS. FIVE BEADS IN A CIRCLE. " 
BEAD IS A DIAMOND WITH A VERTICAL" 
S-BRR. THE RIGHT « LEFT CORNERS LEAD" 
EIGHBORING BEADS. (THIS ONE IS DIFFICULT" 
AY). " 
IY KEY TO CONTINUE"; 



THEN 850 ELSE PRINTU128, CHR*(31); 

■ HEX NETWORK: IMAGINE A HEX TILE FLOOR. TAKE" 
A RECTANGLE WITH 20 POINTS (INTERSECTIONS)" 
INSIDE (4X4). JOIN RIGHT S LEFT SIDES TO MAKE A" 
CYLINDER. THEN JOIN TOP & BOTTOM TO FORM A" 
TORUS (DOUGHNUT). " 
HAVE FUN IMAGINING THIS ONE!!" 



850 IF INKEY$=' 

860 PRINT " 3 

870 PRINT " 

880 PRINT " 

890 PRINT " 

500 PRINT " 

910 PRINT " 

920 PRINT 

938 PRINT "CAVES 1-3 ARE REGULAR IN THE SENSE THAT EACH ROOM 

940 PRINT "GOES TO THREE OTHER ROOMS & TUNNELS ALLOW TWO-" 

950 PRINT "WAY TRAFFIC. HERE ARE SOME 'IRREGULAR' CAVES:" 

968 PRINT@979, "PRESS ANY KEY TO CONTINUE"; 



970 If INKEY*= 
980 PRINT " 4 
990 PRINT " 
1808 FRINT " 
1818 FRINT " 
1028 FRINT " 
1830 PRINT " 
1040 FRINT " 
1858 PRINT 
1868 PRINT 
1670 PRINT " 
1080 PRINT " 
1090 FRINT8979. 



THEN 970 ELSE PRINT@128, CHR$(31); 
- DENDRITE WITH DEGENERACIES: PULL A PLANT FROM" 
THE GROUND. THE ROOTS & BRANCHES FORM A " 
DENDRITE - I.E., THERE ARE NO LOOPING PATHS. " 
DEGENERACY MEANS A) SOME ROOMS CONNECT TO" 
THEMSELVES AND B) SOME ROOMS HAVE MORE THAN ONE" 
TUNNEL TO THE SAME OTHER ROOM, I. E. , 12 HAS " 
TWO TUNNELS TO 11 " 



5 - ONE WAY LATTICE: HERE ALL TUNNELS GO ONE" 

WRY ONLY. TO RETURN, YOU MUST GO AROUND THE CRVE" 
(ABOUT 5 MOVES). " 
"PRESS ANY KEY TO CONTINUE"; 
1108 ::F INKEY$="" THEN 1100 ELSE PRINTS128, CHR*(31); 

ENTER YOUR OWN CAVE; THE COMPUTER WILL ASK YOU" 
THE ROOMS NEXT TO EACH ROOM IN THE CAVE. " 



1118 PRINT 
1128 PRINT 
1138 PRINT 
1148 FRINT 
1150 PRINT 
1168 PRINT 
1170 PRINT 
1188 PRINT: 



"YOU ARE IN ROOM";L(l); 
— TUNNELS LEAD T0";S(L1);S(L,2);S(L,3) 



FOR EXAMPLE:" 

ROOM 81 ? 2, 3, 4 - YOUR REPLY OF 2, 3, 4 

MEANS ROOM 1 HAS TUNNELS GOING TO ROOMS:" 

2, 3, S 4. " 
PRINT 

1198 PRINT "*** HAPPY HUNTING! ***"■ PRINT 
1208 RETURN 
1210 REM 
1228 PRINT 
1230 FOR J=2 TO 6 
1248 FOR K=l TO 3 
1258 IF S(L(1), K)Ct(J) THEN 1320 
1268 ON J-l GOTO 1270,1290,1290,1310,1310 
1278 PRINT "I SMELL fl WUMPUS!" 
1280 GOTO 1328 

1298 F'RINT "I FEEL A DRAFT 1 " 
1308 COTO 1320 
1310 PRINT "BATS NEARBY!" 
1328 hEXT K 
1330 rexT J 
1340 PRINT 
1350 PRINT 
1360 FRINT 
1370 RETURN 

1388 REM- CHOOSE OPTION 
1390 (iOTO 1430 
1408 PRINT "ERROR "; 
1418 INPUT Z9 
1428 FRINT ""; 

1438 PRINT "SHOOT OR MOVE "; 
1448 INPUT I* 
1458 PRINT 

1468 IF LEFT*(I*,DO"S" THEN 1490 
1478 0=1 
1488 RETURN 

1490 IF LEFT*(I$,DO"M" THEN 1480 
1500 0=2 
1510 RETURN 

1528 REM- ARROW ROUTINE 
1538 F=8 

1540 REM- PATH OF ARROW 
1550 GOTO 1590 
1560 PRINT "ERROR "; 
1570 INPUT 29 
1588 PRINT ""; 
1598 PRINT "NO. OF ROOMS "; 
1600 INPUT J9 
1610 PRINT 

1620 IF J9<1 OR J9>5 OR INT(J9)OABS(J9) THEN 1560 
1630 FOR K=l TO J9 
1648 PRINT "ROOM »"; 
1658 INPUT P(K) 

1660 IF P(K»0 AND P(KX21 RND INT(P(K»=ABS(P(K» THEN 1710 
1678 -RINT "ERROR "; 
1680 INPUT Z9 
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1690 PRINT ""; 

1700 GOTO 1640 

1710 NEXT K: PRINT0128, CHRSOl); 

1720 PRINT 

1730 REM - SHOOT ARROW 

1740 fl=R-l 

1750 f)9=L(l) 

1768 FOR K=l TO J9 

1770 FOR Kl=l TO 3 

1780 IF SCA9, K1)=P<K> THEN 1930 

1790 NEXT Kl 

1800 REM - NO TUNNEL FOR THE ARROW 

1810 fl9=S<R9, RND<0» 

1820 GOTO 1940 

1838 NEXT K 

1848 PRINT "MISSED. " 

1858 REM - MOVE WUMPUS 

1860 GOSUB 2010 

1870 REM - AMMO CHECK 

1880 IF A>8 THEN 1918 

1890 PRINT "VOU HAVE USED ALL OF VOUR ARROWS. " 

I960 F=-l 

1918 RETURN 

1920 REM - SEE IF ARROW IS AT L<1> OR L<2) 

1930 R9=P<K> 

1940 IF R9<>L(2) THEN 1980 

1950 PRINT "RHA! VOU GOT THE WUMPUS! HE WRS IN R00M",LC2> 

I960 F=l 

1970 RETURN 

1980 IF R90L(1) THEN 1830 

1998 PRINT "OUCH! ARROW GOT VOU!" 

2600 GOTO 1908 

2010 REM - MOVE WUMPUS ROUTINE 

2820 K=RND<4) 

2038 IF K=4 THEN 2888 

204@L(2)=5(L(2)>K) 

2059 IF L(2)OL THEN 2080 

2060 PRINT "TSK TSK TSK- WUMPUS GOT VOU!" 
2870 F=-l 

2880 RETURN 

2090 REM - MOVE ROUTINE 

2160 F=0 

2118 GOTO 2150 

2120 PRINT "ERROR "; 

2130 INPUT Z9 

2140 PRINT ""; 

2158 PRINT "WHERE TO ",' 

2160 INPUT L 

2170 PRINT0128, CHR$(31); 

2180 IF L<1 OR L>20 OR ABSCDOINTCL) THEN 2120 

2190 FOR K=l TO 3 

2200 REM - CHECK IF LEGAL MOVE 

2210 IF S<L<1>, K)=L THEN 2290 

2220 NEXT K 

2236 IF L=LC1) THEN 2290 

2240 PRINT "NOT POSSIBLE - "; 

2258 INPUT Z9 

2260 PRINT "»; 

2270 GOTO 2150 

2280 REM - CHECK FOR HAZARDS 

2298 L(1>=L 

2300 REM - WUMPUS 

2310 IF LOLC2) THEN 2370 

2326 PRINT ". . OOPS! BUMPED fl WUMPUS!" 

2330 REM - MOVE fl WUMPUS 

2340 GOSUB 2020 

2350 IF F=0 THEN 2370 

2368 REM - PIT 

2378 IF LOLC3) RND LOLC4) THEN 2420 

2380 PRINT "VVVIIIEEEE FELL IN fl PIT 1 " 

2390 F=-l 

2408 RETURN 

2410 REM - BATS 

2420 IF LOL(5) AND LOL<6) THEN 2460 

2430 PRINT "ZAP— SUPER BAT SNATCH! ELSEWHERESVILLE FOR YOU! 

2440 L=RND<20) 

2450 GOTO 2298 

2460 RETURN 

2470 REM - SELECT CAVE 

2488 GOTO 2520 

2490 PRINT "ERROR "; 

2500 INPUT Z9 

2518 PRINT "; 

2520 PRINT "CAVE # (8-6) "; 

2530 RESTORE 

2548 INPUT N 

2550 PRINT 

2560 IF N<0 OR N>6 OR INT(N)ORBS<N) THEN 2490 
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2570 ON N+l GOSUB 2720,2660,2780,2900,3020,3148,3260 

2588 RETURN 

2590 REM - DODECAHEDRON 

2600 DATA 2, 5, 8, 1, 3, 10, 2, 4, 12, 3, 5, 14, 1, 4, 6 

2610 DATA 5, 7, 15, 6, 8, 17, 1, 7, 9, 8, 10, 18, 2, 9, 11 

2626 DATA 10, 12, 19, 3, 11, 13, 12, 14, 20, 4, 13, 15, 6, 4, 16 

2630 DATA 15, 17, 20, 7, 16, 18, 9, 17, 19, 11, 18, 20, 13, 16, 19 

2640 GOSUB 3370 

2658 RETURN 

2668 REM - MOBIUS STRIP 

2670 FOR Bl=l TO 1 

2680 FOR B2=l TO 60 

2690 READ 80 

2700 NEXT B2 

2710 NEXT Bl 

2720 DATA 20, 2, 3, 19, 1, 4, 1, 4, 5, 2, 3, 6, 3, 6, 7 

2738 DATA 4, 5, 8, 5, 8, 9, 6, 7, 10, 7, 10, 11, 8, 9, 12 

2740 DATA 9, 12, 13, 10, 11, 14, 11, 14, 15, 12, 13, 16, 12, 16, 17 

2750 DATA 14, 15, 18, 15, 18, 19, 16, 17, 20, 2, 17, 20, 1, 18, 19 

2768 GOSUB 3378 

2770 RETURN 

2780 REM - STRING OF BEADS 

2798 FOR Bl=l TO 2 

2808 FOR B2=l TO 60 

2818 READ BB 

2828 NEXT B2 

2830 NEXT Bl 

2840 DATA 2, 3, 20, 1, 3, 4, 1, 2, 4, 2, 3, 5, 4, 6, 7 

2858 DATA 5, 7, 8, 5, 6, 8, 6, 7, 9, 8, 10, 11, 9, 11, 12 

2860 DATA 9, 18, 12, 10, 11, 13, 12, 14, 15, 13, 15, 16, 13, 14, 16 

2870 DATA 14, 15, 17, 16, 18, 19, 17, 19, 20, 17, 18, 20, 1, 18, 19 

2888 GOSUB 3370 

2898 RETURN 

2908 REM - HEX NUT ON TORUS 

2918 FOR Bl=l TO 3 

2928 FOR B2=i TO SB 

2538 READ B0 

234B NEXT B2 

2950 NEXT Bl 

2960 DATA 6, 10, 16, 6, 7, 17, 7, 8, 18, 8, 9, 19, 9, 10, 20 

2978 DATA 1, 2, 15, 2, 3, 11, 3, 4, 12, 4, 5, 13, 5, 6, 14 

2988 DATA 7, 16, 20, 8, 16, 17, 9, 17, 18, 10, 18, 19, 6, 19, 20 

2990 DATA 1, 11, 12, 2, 12, 13, 3, 13, 14, 4, 14, 15, 5, 11, 15 

3000 GOSUB 3370 

3910 RETURN 

3020 REM - DENDRITE W DEGENERACIES 

3030 FOR Bl=l TO 4 

3040 FOR B2=l TO 60 

3050 READ B0 

3860 NEXT B2 

3878 NEXT Bl 

3880 DflTR 1, 1, 5, 2, 2, 5, 3, 3, 6, 4, 4, 6, 1, 2, 7 

2090 DATA 3, 4, 7, 5, 6, 10, 8, 9, 9, 8, 8, 18, 7, 9, 11 

2180 DRTfl 10, 13, 14, 12, 13, 13, 11, 12, 12, 11, 15, 16, 14, 17, 18 

3110 DRTfl 14, 19, 20, 15, 17, 17, 15, 18, 18, 16, 19, 19, 16, 20, 28 

3120 GOSUB 3370 

3130 RETURN 

3140 REM - ONE WAV LATTICE 

3150 FOR Bl=l TO 5 

3166 FOR B2=l TO 60 

3178 READ B0 

3188 NEXT B2 

3190 NEXT Bl 

3280 DATA 5, 4, 8, 1, 5, 6, 2, 6, 7, 3, 7, 8, 8, 9, 12 

3210 DATA 5, 9, 10, 6, 10, 11, 7, 11, 12, 12, 13, 16, 9, 13, 14 

3220 DATA 10, 14, 15, 11, 15, 16, 16, 17, 20, 13, 17, 18, 14, 18, 19 

3230 DATA 15, 19, 20, 1, 4, 20, 1, 2, 17, 2, 3, 18, 3, 4, 19 

324B GOSUB 3378 

3258 RETURN 

3260 REM - INPUT VOUR OWN CAVE 

3270 FOR J=l TO 20 

3280 PRINT "ROOM S"iJ; 

3290 INPUT S(J,1),S(J,2),S(J,3) 

3380 FOR K=l TO 3 

3310 IF S(J,K)>0 AND SCXKX21 AND ABS(S(J,K))=ABS<S(J,K» THEN 3340 

3320 PRINT "***** ERROR!!!! 1 " 

3338 GOTO 3280 

3340 NEXT K 

3358 NEXT J 

3268 RETURN 

3378 REM - INPUT CAVE 

3388 FOR J=l TO 20 

3390 FOR K=l TO 3 

3400 READ S(J, K) 

3418 NEXT K 

3420 NEXT J 

3428 RETURN 

3440 END 
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Here is the sequel to the best-selling book 

Basic Computer Games 




84 fascinating and entertaining games 

for solo and group play- 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, 
trek across the desert on your camel, 

navigate in deep space. 



^^^ 



All games come complete with program listing, 
sample run, and description. All run in standard 



Micros 




Basic. 



Easy to use with any computer. 
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